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FOREWORD 


This  report  is  one  of  four  manuals  prepared  under  Contract  Number 
DOT-FH-11-8265  for  the  Federal  Highway  Administration,    U.S.    Department 
of  Transportation  for  the  purpose  of  summarizing  and  upgrading  docu- 
mentation of  the  Highway -Vehicle -Object  Simulation  Model  (HVOSM).     The 
HVOSM  had  been  previously  developed  for  the  Federal  Highway  Administration 
(FHWA)  by  the  Calspan  Corporation  (formerly  Cornell  Aeronautical 
Laboratory)  under  Contract  Number  C PR -11-3988  during  the  period  from 
1966  to  1971  and  extended  under  this  contract.     Contained  in  this  report  is  a 
description  of  the  experimental  validation  procedures  employed  in 
determining  the  degree  and  range  of  validity  of  the  HVOSM. 

Complete  documentation  of  the  HVOSM  is  contained  in  the  following 
manuals: 

•  Highway-Vehicle -Object  Simulation  Model 
Volume  1  -  Users  Manual 

•  Highway-Vehicle-Object  Simulation  Model 
Volume  2  -  Programmers  Manual 

•  Highway-Vehicle -Object  Simulation  Model 
Volume  3  -  Engineering  Manual  -  Analysis 

•  Highway-Vehicle -Object  Simulation  Model  -  Volume  4  - 
Engineering  Manual  -  Validation 

This  report  has  been  reviewed  and  is  approved  by: 


Edwin  A.    Kidd,   Head 
Transportation  Research  Department 


11 


TABLE  OF  CONTENTS 

Page  No, 

FOREWORD  ii 

LIST  OF  FIGURES  iv 

1.  INTRODUCTION  1 

2 .  SYMBOLOGY  6 

3.  PROGRAM  DOCUMENTATION  36 

3.1  Roadside  Design  Version  36 

3.1.1  HV0SM-RD2  Subroutine  Documentation  40 

3.1.2  HV0SM-RD2  Program  Stops  and  Messages  112 

3.1.3  HV0SM-RD2  Program  Listing  115 

3.2  Vehicle  Dynamics  Version  283 

3.2.1  HV0SM-VD2  Program  Listing  287 

3.2.2  HV0SM-VD2  Program  Stops  and  Messages  363 

3.2.3  HV0SM-VD2  Program  Listing  366 

4.  SYSTEM  REQUIREMENTS  547 

5.  HVOSM  PREPROCESSING  PROGRAM  550 

6.  REFERENCES  571 


iii 


LIST  OF  FIGURES 

Figure  No.  Title  Page  No. 

3.1-1  HV0SM-RD2  Overall  Program  Block  Diagram 

3.1-2  HV0SM-RD2  Common  Block  Allocations 

3.1-3  HV0SM-RD2  Matrix  of  Subroutine  Calls 

3.2-1  HV0SM-VD2  Overall  Program  Block  Diagram 

3.2-2  HV0SM-VD2  Common  Block  Allocations 

3.2-3  HV0SM-VD2  Matrix  of  Subroutine  Calls 

4.1-1  HVOSM  Job  Control  Language 

4.1-2  Calspan  Procedure  LOADGO 


IV 


1.        INTRODUCTION 

In  1966  Calspan  Corporation  (formerly  Cornell  Aeronautical  Laboratory, 
Inc.)  began  development  of  a  general  mathematical  model  and  computer  simulation 
of  the  dynamic  responses  of  an  automobile  in  accident  situations  under 
Contract  CPR-11-3988  with  the  Bureau  of  Public  Roads. 

The  mathematical  model  of  vehicle  dynamics  developed  in  the  first 
year  of  that  effort  included  the  general  three-dimensional  motion  resulting 
from  vehicle  control  inputs,  traversal  of  irregular  terrain,  or  from  collisions 
with  simple  roadside  barriers.   The  model  was  subsequently  named  the  Highway- 
Vehicle-Object  Simulation  Model  (HVOSM) .   Later,  the  model  was  further 
developed  and  a  comprehensive  validation  program  was  carried  out  including  a 
series  of  repeatable  full-scale  tests  with  an  instrumented  vehicle  in  order  to 
objectively  assess  the  degree  of  validity  of  the  vehicle  model.   Extensive 
measurements  of  the  vehicle  parameters  required  for  input  to  the  HVOSM  were 
made  under  a  subcontract  with  the  Ford  Motor  Company  as  a  part  of  the  validation 
procedure.   This  effort  was  reported  in  Reference  1  and  the  model  as  described 
therein  has  been  referred  to  as  the  V-3  version  of  the  HVOSM. 

Modifications  were  subsequently  made  to  the  simulation  in  order  to 
study  the  effects  of  terrain  (specifically,  railroad  grade  crossings)  on  vehicle 
control  ability.   The  impact  routines  were  removed  and  extended  terrain 
definition  capabilities  were  added  along  with  a  more  realistic  model  of 
suspension  properties.   This  program  version  (Reference  2)  has  been  informally 
referred  to  as  the  V-4  version  of  the  HVOSM  and  has  since  been  used  extensively 
for  study  of  roadway  and  roadside  geometries. 


Further  developments  of  HVOSM  aimed  at  providing  a  simulation  model 
suitable  for  the  study  of  the  complex  dynamics  resulting  from  pre-collision 
evasive  maneuvers  were  reported  in  Reference  3,   This  version,  informally 
called  the  V-7  version  of  the  HVOSM,  includes  a  detailed  model  of  the  braking 
and  driving  systems  and  an  empirically  based  definition  of  the  relationships 
between  longitudinal  and  lateral  tire  forces  through  the  inclusion  of 
rotational  degrees  of  freedom  of  the  four  vehicle  wheels. 

During  development  of  the  HVOSM,  documentation  efforts  primarily 
fulfilled  the  objectives  of  maintaining  communication  within  the  program 
development  structure,  ensuring  quality  control  of  the  development  and 
providing  a  historical  reference.   It  was,  however,  recognized  early  in 
the  development  of  the  HVOSM,  that  this  state-of-the-art  advance  in  the 
modeling  of  a  vehicle  and  its  environment  could  be  put  to  best  use  through 
its  widespread  distribution  to  organizations  interested  in  its  application  to 
highway  safety.   As  a  result,  distribution  of  the  HVOSM  was  begun  before  its 
development  was  complete  and  before  instructional  documentation  could  be 
provided. 

Recognizing  the  need  to  bring  documentation  of  the  several  HVOSM 
versions  together  and  to  provide  the  highway  safety  community  with  an  effective 
description  of  the  programs  and  their  use,  the  Federal  Highway  Administration 
(FHWA)  awarded  Calspan  Corporation  contract  number  D0T'-FH-ll-8265  for  the 
purpose  of  providing  such  documentation  for  the  then  existing  versions  of  the 
HVOSM. 

Three  versions  of  the  HVOSM  were  covered  by  this  documentation. 
They  were,  the  HVOSM-SMIl  (Sprung  Mass  Impact)  version  (formerly  known  as  the 
V-3  version),  the  HVOSM-RDl  (Road  Design)  version  (formerly  known  as  the  V-4 
version)  and  the  HVOSM-VDl  (Vehicle  Dynamics)  version  (formerly  known  as  the 
V-7  version).   Under  the  first  phase  of  that  effort,  only  those  versions  as 
developed  by  Calspan  were  covered  by  the  documentation. 


The  second  phase  of  contract  number  DOT-FH-11-8265  called  for 
extension  of  the  capabilities  of  the  HVOSM  by  adding  new  features,  including 
some  additional  modifications  made  by  other  research  organizations,  and 
providing  additional  ease  of  use  features. 

Accordingly,  Calspan  has: 

•  Generalized  the  basic  vehicle  model  to  include  the 
capability  for  simulating  an  independent  front  and 
rear  suspension  vehicle  and  a  vehicle  with  solid 
front  and  rear  axles. 

•  Generalized  the  tire  model  to  allow  specification  of 
up  to  four  different  tires  on  a  vehicle  and  revised 
the  friction  ellipse  tire  model. 

•  Combined  the  sprung  mass  impact  version  with  the 
roadside  design  version  resulting  in  only  two  program 
versions  at  the  end  of  the  second  phase. 

•  Incorporated  the  Preview-Predictor  Driver  Model 
described  in  Reference  4  into  the  vehicle  dynamics 
model. 

•  Incorporated  impact  forces  due  to  localized  structural 
hard  points  into  the  sprung  mass  impact  algorithm. 
This  modification  was  originally  developed  by  the  Texas 
Transportation  Institute  (TTI)  and  was  added  as 
reported  in  Reference  5. 

•  Extended  the  curb  impact  algorithm  to  allow  up  to  six 
planes  to  describe  a  curb.   This  modification  was  also 
developed  by  TTI  and  was  reported  in  Reference  6. 


•  Developed  a  road  roughness  algorithm  to  allow 
determination  of  the  effects  of  road  roughness  on 
vehicle  performance. 

•  Revised  imput  and  output  format  to  provide  an  easy 
to  use,  more  flexible  data  interface. 

•  Developed  a  Pre-Processing  Program  to  calculate  a 
number  of  program  inputs  including  vehicle  and 
terrain  data  or  to  supply  input  cards  from  a  stored 
library  of  vehicle  data. 

The  documentation  provided  now  covers  the  two  program  versions: 
the  HV0SM-RD2  Version  (Roadside  Design)  and  the  HV0SM-VD2  Version  (Vehicle 
Dynamics) .   It  is  intended  to  be  a  base  to  which  further  developments  and 
modifications  to  the  HVOSM  can  be  added,  thus  providing  a  uniform  reporting 
format  and  centralized  source  of  information  for  the  many  HVOSM  users.   It 
consists  of  four  volumes,  each  describing  a  separate  aspect  of  the  HVOSM, 
Two  volumes  are  directed  toward  the  engineer/analyst  containing  the  analysis 
(derivation  of  governing  equations,  assumptions,  and  development  of  controling 
logic)  and  experimental  validation.   Another  volume  is  directed  toward  the 
general  program  user  and  contains  analysis/program  symbology,  descriptions  of 
the  models  and  solution  procedures,  descriptions  of  input  requirements  and 
program  application  examples.   The  fourth  volume  of  documentation  is  intended 
for  use  by  those  interested  in  the  detailed  computer  programs.   This  volume 
contains  descriptions  of  the  computer  code  including  a  discussion  of  subroutine 
functions,  annotated  flowcharts  and  program  listings.   Also  included  are  a 
list  of  program  changes,  a  description  of  program  stops  and  messages,  and 
computer  system  requirements  necessary  to  run  the  programs. 


This  report  contains  detailed  descriptions  of  the  three  HVOSM 
computer  programs.   Symbology  is  defined  in  Section  2.   Section  3  contains 
detailed  descriptions  of  the  programs  including  subroutine  functions,  flowcharts, 
listings,  messages  and  codes,  and  program  changes.   Section  4  contains  system 
requirements  for  execution  of  the  programs,  a  listing  of  the  HVOSM  Preprocessing 
program  is  given  in  Section  5,  and  references  are  contained  in  Section  6, 


2.        SYMBOLOGY 

The  HVOSM  symbology  is  presented  in  this  section  with  a  cross- 
reference  between  analytical  and  programming  symbols.   The  first  listing  of 
symbols  is  ordered  with  respect  to  analytical  symbol  and  includes  a 
corresponding  program  symbol,  a  brief  definition  and  an  equation  number 
referencing  the  calculation  of  the  variable  in  the  "HVOSM  Engineering  Manual  - 
Analysis".   Input  variables  are  indicated  by  an  I  in  the  equation  number 
column. 

The  second  listing  of  variables  is  organized  by  program  symbol  name 
and  includes  a  corresponding  analytical  variable  or  expression  and  variable 
usage  in  each  program  version.   The  codes  U  and  A  under  the  program  version 
name  indicate  that  the  variable  is  used  or  appears,  but  is  not  used  respectively 
in  that  version. 
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U 

a 

A 

I 

Distance  along  vehicle  fixed  x 

in. 

(AR)j 

ARBRF 

I 

Drive  axle  ratio   (propeller  shaft 

axis   from  the  sprung  mass  center 

ARBRR 

speed/wheel  speed).   Default  of 

of  gravity  to  the  center  line  of 

1.0 

the  front  wheels 

Ag.A^.A^ 

A0,A1,A2 

I 

Constant  coefficients   for  tire 

a.,b   ,c. 

K5 

Directional   components  of  a  line 

side  force  due  to  slip  angle 

1            1            1 

perpendicular  to  both  the  normal 

to  the  wheel    plane  and  the  radial 

h'\ 

A3,A4 
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Constant  coefficients  for  tire 

tire  force,  F^ 
i 

b 
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side  force  due  to  camber  angle 
Distance  along  the  vehicle  fixed 
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APD 

APD 
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Accelerator  pedal   deflection 

in 

X  axis   from  the  sprung  mass   cen- 

APDMAX 

APDMAX 
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and  maximum  accelerator 
pedal   deflection 

ter  of  gravity  to  the  centerline 
of  the  rear  wheels   (entered  posi- 
tive) 

asiVv 

AS(4) 
BS(4) 
CS{4) 

258 

Directional    components  of  a  line 

[B] 

BMTX(3,3) 

i34 

Transformation  matrix  from  wheel 

perpendicular  to  both  a  normal    to 
the  tire-terrain  contact  plane 

fixed  to  space  fixed  coordinate 
systems 

and  the  line  of  intersection  of 

the  wheel   and  ground  planes 

^FPl 

"fpz 

BFPl 

I 

First  and  second  order 

psi/lb, 
psi/lb*^ 

'^x'K-'z 

AX{4) 
BX(4) 
CX(4) 

99 

Direction  components  of  a  line 

BFP2 

coefficients  for  relationship 
between  brake  pedal   force 

I          I           I 

perpendicular  to  both  a  normal 
to  the  tire-terrain  contact  plane 

and  brake  system  pressure 

and  the  vehicle  fixed  y  axis 

t^] 

BNMTX{3,3) 

bO 

Transformation  matrix  from 
orientation  of  vehicle  axes  at 

\''y:% 

AY(4) 

\CA 

Direction  component  of  a  line  per- 

indexing to  soace  fixed  axes 

BY(4) 

pendicular  to  both  a  normal    to  the 

(Euler  angles=  V^j'.e^  .i^i^'       ) 

CY(4) 

tire-terrain  contact  plane  and  the 
vehicle  fixed  x  axis 

Ceo 

2151  Small  angle  camber  stiffness 

Ib/rad 

[A] 

AMTX(3,3) 

53 

Transformation  matrix  from  vehicle 

Cp.C, 

CF 

I 

Front  and  rear  viscous  damping 

Ib-sec/in 

fixed  to  space  fixed  coordinate 

CR 

coefficient  for  a  single  wheel. 

systems 

effective  at  the  wheel   for  the 

(^Nl'i 

AINTI 

2»7 

Intersection  area  of  cutting  plane 

in2 

front  and  at  the  spring  at  the 
rear 

i  with  the  sprung  mass 

\ 

[A^] 

AJMTX(3,3) 

131 

Transformation  matrix  from  wheel 

C'p.C, 

CFP 
CRP 

I 

Front  and  rear  coulomb  damping 
for  a  single  wheel,  effective 

lb 

fixed  to  vehicle  fixed  coordinate 

at  the  wheel   for  the  front  and 

systems 

at  spring  for  the  rear 

AMU 

AMU 

I 

Tire-terrain  friction  coefficient 
at  zero  speed  and  nominal   tire 
loading 

[C,] 

CMTX(3,4) 

WO 

Coefficient  matrix  for  simul- 
taneous solution  of  the  ground 
contact  point 

AMUG 

AMUG{5) 

I 

Tire-terrain  friction  coefficient 
factor  for  5  terrain  tables 

CONS 

CONS 

I 

Ratio  of  conserved  energy  to 
total  energy  absorbed  by  the 

(AP)p 

APF(21) 

I 

Anti -pitch  coefficients  for  front 

Ib/lb-ft 

sprung  mass 

suspension  positive  for  anti- 

tCp] 

CNMTX(3.3) 

bO 

Transformation  matrix  from 

pitch  for  forward  braking 

n 

vehicle  fixed  axes  to  most 

(AP), 

APR(21) 

I 

Anti -pitch  coefficients  for  rear 

Ib/lb-ft 

recently  indexed  axes   (Euler 

suspension,  effective  at  the 

angles=^r',e;,!Z>f     ) 

wheels;  positive  for  anti -pitch 
effect  for  forward  braking 

'-RRMi 
4o 

RRMC(4) 

I 
IV, 

Rolling  resistance  moment 
coefficient 

Small   angle  cornering  stiffness 

Ib-in/lb 
Ib/rad 

(CT) 

TCT(12) 

1 1 

Closed  throttle  engine  torque 

Jb-ft 
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DELS 
DELE 
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F 
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CT(4) 
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CONE 
CTWO 
CTHREE 
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DELTAX 

DELB 
DELE 
DDEL 
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D2(4) 
D3{4) 

EI 


EN 
APITCH 

FB 
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Circumferential  tire  force 
stiffness 

Coulomb  resistance  torque  in 
the  steering  system  effective 
at  the  wheels 

Coefficients  in  relationship 
approximating  aerodynamic  and 
rolling  resistance 

Mass  matrix  of  coupled  second 
order  differential  equations. 
Column  11  contains  the  forcing 
functions 

Desired  vehicle  acceleration 

Beginning,  end,  and  incremental 
wheel   deflection  for  entered 
front  wheel   camber  table 

Desired  speed  differential 
nulling  distance 

Incremental   tire  deflection  for 
calculation  of  the  equivalent 
tire  force-deflection  character- 
istic in  the  radial  mode 

37!  Direction  components  of  a  line 
perpendicular  to  the  normals  of 
both  the  wheel  plane  and  the  tire- 
terrain  contact  plane 
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Error  between  predicted  and 
desired  path  at  the  ith 
viewing  position 

Number  of  points  at  which  e^ 
is  determined 

Anti-pitch  force  at  wheel   i 

Force  at  wheel   i   due  to 
auxiliary  roll   stiffness 

Resistance  force  normal   to  the 
contact  surface  of  a  deformable 
barrier 

Brake  pedal   force 

Circumferential   tire  force 

Components  of  the  circumferential 
tire  force  along  the  x,y,  and  2 
axes 

Table  of  equivalent  radial  spring 
forces  as  a  function  of  deflection 

Jacking  force  at  wheel   1 

Vehicle  force  produced  by  deforma- 
tion of  the  vehicle  structure  nor- 
mal  to  the  contacted  surface 
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301 

Structural  hard  point  force 

lb 

'«, 

FR(4) 

114 

Radial   tire  force  in  the  plane  of 
the  wheel 

lb 

'i, 

FRCP(4) 

m 

Tire  force  perpendicular  to  the 
tire-terrain  contact  plane 

lb 

(FRICT) 

FRICT 

H 

Friction  force  acting  between  the 
vehicle  sprung  mass  and  barrier 

lb 

pRxui 
•■Ryui 
FRiui 

FRXU(4) 
FRYU(4) 
FRZU(4) 

253 

Components  of    F^^    along  the 
sprung  mass  axes     for  wheel   i 

lb 

^  Wi 
^  Vi 

I  F     , 
Rz  i 

SFRX(4) 
SFRY(4) 
SFRZ(4) 

Sunmation  of  the  components  of 
radial   spring  mode  forces  over 
tire  i,  with  respect  to  space 

lb 

^Si 

FS(4) 

m 

Tire  side  force  in  the  plane  of  the 
tire-terrain  contact  patch  perpen- 
dicular to  the  line  of  intersection 
of  the  wheel   plane  and  ground  plane 

lb 

''si 

m 

Resultant  side  force  correspond- 
ing to  small   angle  properties  for 
slip  and  camber  angles 

lb 

(^i'max 

m 

Maximum  achievable  side  force  as 
limited  by  the  available  friction 

lb 

^^s 

SFXS 

Sprung  mass  impact  force  or  com- 
bination of  rolling  resistance 
and  aerodynamic  drag  acting  along 
the  vehicle  x  axis 

lb 

Fsxui 
Fsyui 
Fszui 

FSXU(4) 
FSYU(4) 
FSZU(4) 

256 

Components  of  tire  side  force," 
Fj^   along  the  sprung  mass  axes 

lb 

Fxui 
Fyui 
Fzui 

FXU(4) 
FYU(4) 
FZU(4) 

2« 
m 

Total  tire  force  components  along 
the  vehicle  axes 

lb 

ZFxu 
£Fyu 

SFXU 
SFYU 

3?3 

3M 

Resultant  forces  acting  on  the 
vehicle  through  the  unsprung 
masses  in  the  x  and  y  directions 

lb 

ZFys 

SFYS 

JP? 

Sprung  mass  impact  force  acting 
along  the  vehicle  y  axis 

lb 

ZFzs 

SFZS 

307 

Sprung  mass  impact  force  acting 
along  the  vehicle  z  axis 

lb 

^^Zl 

SFZl 

3S 

Resultant  force  transmitted 
through  the  suspensions  in  the 
z  direction 

lb 

"^IFI 
■^IRi 

F1FI(2) 
F1RI(2) 

Front  and  rear  suspension  coulomb 
damping  forces  for  a  wheel,  effec- 
tive at  the  wheel   for  the  front 
and  at  the  spring  for  the  rear 

lb 
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F2F!(2) 

175 

Front  and  rear  suspension  spring 

lb 

Ir 

XIR 

I 

Rear  unsprung  mass  moment  of 

Ib-sec^-ir 

F2RI(2) 

IK 

and  bumper  forces  for  a  wheel , 

inertia  about  a  line  through 

effective  at  the  wheel   for  the 

its  center  of  gravity  and 

front  and  at  the  spring  for  the 

parallel  to  the  vehicle  x  axis 

rear 

^wj 

FIWJ(4) 

Rotational   inertia  of  an  indi- 

lb-sec^-1n 

9 

G 

I 

Acceleration  due  to  gravity 

in/sec^ 

vidual  wheel   at  the  front  or  rear 

Ib-sec^-in 

GEAR, 

GEARl 

I 

Transmission  gear  ratios 

— 

Ix.Iy.Iz 

XIX 

Spring  mass  moments  of  inertia 

gear' 

GEAR^ 
GEAR^ 

GEAR2 

XIY 

about  the  vehicle  axes 

GEAR  3 

XIZ 

GEAR4 

Ixz 

XIXZ 

Spring  mass  roll -yaw  product  of 

Ib-sec^-in 

'^5 

GN{1,J) 

I 

Lever  arm  lengths  in  brake  types 

in 

inertia 

1,2  and  3 

(rx)t 

47 

Effective  inertial  term    due  to 

G,. 

GN(2,J) 

I 

Brake  actuation  constant,  assumed 

time  varying  positions  of  the 

2j 

to  be  equal    for  both  shoes  of 
brake  types  1   and  2 

(rz)t 

47 

unspring  masses 

Effective  inertial  term    due  to 

Sj 

GN(3,J) 

I 

Effective  lining-to-drum  or  lining 

time  varying  positions  of  the 

to-disk  friction  coefficient  at 

unspring  masses 

design  temperature  for  all  shoes 

(rx2)t 

47 

Effective  Inertial  term    due  to 

or  disks  in  types  1,2  and  4  and 

time  varying  positions  of  the 

for  the  primary  shoe  of  type  3 

in^ 

unspring  masses 

^4j 

GN(4,J) 

I 

Cylinder  area  for  actuation  of 

(ryz)t 

♦7 

Effective  Inertia     term    due  to 

leading  shoe  of  brake  type  1,  or 

time  varying  positions  of  the 

for  each  shoe  in  types  2  and  3. 

unspring  masses 

Also  used  for  total   cylinder  area 

2   . 

per  side  of  disk  in  type  4 

V 

XIPS 

Moment  of  inertia     of  the  steering 

lb-sec  -in 

system  effective  at  the  front 

in2 

wheels   (includes  both  wheels) 

% 

GN{5,J) 

I 

Cylinder  area  for  actuation  of 

trailing  shoe  of  brake  Type  1 

^d 

FKD 

Performance  parameter  charac- 

sec^/1n 

V'llJ 

GN(6,J)- 

I 

Brake  dimensions  for  type  3. 

in 

terizing  understeer/oversteer 

GN(ll.J) 

properties  of  the  vehicle 

•^izj 

GN(12,J) 

I 

Effective  lining  to  drum  friction 

^•h 

AKF 

Front  and  rear  suspension  load 

lb/in 

coefficient  for  secondary  shoe  of 

AKR 

deflection  rate  in  the  quasi - 

brake  type  3 

linear  range  about  the  design 

S30 

GN(13,J) 

1 

Mean  lining  radius  for  brake  type 
4 

in 

position  effective  at  the  front 
wheels  and  the  rear  springs 

^143 

GN(14,J) 

I 

Coefficient  of  heat  transfer  for 
convective  losses 

'^FC'^RC 

AKFC 
AKRC 

Coefficients  for  the  compression 
bumpers  of  the  front  and  rear 
suspension  effective  at  the 

•^IBj 

GN(15,J) 

I 

Specific  heat  of  brake  assembly 

BTU/1b/°F 

front  wheels  and  rear  springs 

S6j 

GN(16,J) 

I 

Effective  weight  of  brake  assem- 

lb 

•^FC.Sc 

AKFCP 

Coefficients  for  the  cubic  terms 

bly  for  heat  absorption 

AKRCP 

of  the  suspension  compression 

h^ 

HI(4) 

Tire  rolling  radius 

in 

bumpers 

'Dj 

FIDJ(2) 

I 

Drivel ine  inertia  for  front  or 
rear  (Note  that  a  value  of  zero 
is  entered  at  the  non-driving 
end  of  the  vehicle) 

Ib-sec^-in 

Kpj.KRE 

AKFF 
AKRE 

Coefficients  for  the  extension 
bumpers  of  the  front  and  rear 
suspension  effective  at  the 
front  wheels  and  rear  springs 
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^e/re 

AKFEP 
AKREP 

I 

Coefficients  for  the  cubic  terms 
of  the  suspension  extension 
bumpers 

1 

Kp 

FKP 

!28 

Driver  steer  control   gain 

hs 

AKRS 

I 

Rear  axle  roll -steer  coefficient, 
positive  for  roll  understeer 

h^'h^ 

FKSl 
FKS2 

I 

Drivers  estimate  of  vehicle 
braking  and  accelerating  gains 

^STi 

AKST(3) 

I 

Structural   hard  point 
spring  rates 

lb/in 

^T 

AKT 

I 

Radial   tire  rate  in  the  quasi - 
linear  range 

lb/in 

Kv 

AKV 

I 

Load-deflection  characteristic 
of  the  vehicle  structure 

Ib/in^ 

AKDS 
AKDSl 
AKDS2 
AKDS3 

I 

Coefficients  of  the  cubic 
representation  of  rear  wheel 
steer  as  a  function  of  de- 
flection for  independent  rear 
suspension 

V 

AKPS 

I 

Load-deflection  rate  for  the 
linear  steering  stop,  effective 
at  the  wheels 

Ib-in/rad 

•^1 

AKl 

I 

Slope  of  Pp  vs  Pp  for  values  of 
Pp  between  P^   and  P2 

h 

AK2 

I 

Slope  of  P(^  vs  Pp  for  values  of 
Pp  greater  than  P_ 

(LF). 

FLF 

I 

Fade  coefficient  for  brake  at 
wheel   i 

"s 

XMS 

I 

Sprung  mass 

Ibsec^/in 

%r%R 

XMUF 
XMUF 

I 

Front  (both  sides)  and  rear 
unsprung  masses.     Note 

Ibsec  /in 

M^.M^ 

XMUF 
2 

Right  and  left  front  unsoninq 
masses 

Ibsec  /in 

M3 

XMUR 

I 

Rear   unsprung  mass 

Ibsec^/in 

NBX 

NBX(5) 

I 

Number  of  x'   boundaries  supplied 
for  5  terrain  tables 

NBY 

NBY(5) 

I 

Number  of  y'   boundaries  supplied 
for  5  terrain  tables 

NDEL 

NDEL 

Number  of  entries  in  the  front 
wheel  camber  table 

NX 

NX(5) 

Number  of  x'   grid  points  in  5 
terrain  tables 

NY 

NY(5) 

Number  of  y'   grid  points  in  5 
terrain  tables 

NZTAB 

NZTAB 

I 

Number  of  terrain  tables  entered 
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P^.P^ 

PONE 
PTWO 

I 

"Break"  pressures  for  brake 
system  proportioning  valve 

psig 

(RATIO). 

Factor  used  to  modify  the 
nominal   tire-terrain  friction 
coefficient  at  wheel   i   to 
reflect  the  effects  of  vehicle 
speed  and  tire  loading 

1 

"bb 

RBB 

2SD 

'Constant  for  barrier  bottom 
plane 

in 

^Bi 

RBI 

W 

Constant  for  barrier  face  plane 

in 

hi 

RBT 

m 

Constant  for  barrier  top  plane 

in 

\ 

RBI 

m 

Constant  for  the  plane  perpen- 
dicular to  the  barrier  face 
plane  and  containing  the  axis 
of  rotation 

in 

NZ5 

NZ5 

I 

Flag  to  indicate  whether  the 
variable  increment  terrain  table  is 
supplied,  =0,no,^0,  yes 

2N^P 

SNPF 

3fe7 

Roll  moment  acting  on  the 
front  axle 

Ib-in 

^v 

SNPR 

^ 

Roll  moment  acting  on  the  rear  axle 

Ib-in 

^\s 

SNPS 

ieg 

Roll   moment  on  the  sprung  mass 
resulting  from  sprung  mass  impact 
forces 

Ib-in 

^\s 

SNTS 

309 

Pitch  moment  on  the  sprung  mass 
resulting  from  sprung  mass  impact 
forces 

Ib-in 

ZN^ 

SNPSS 

310 

Yaw  moment  on  the  sprung  mass 
resulting  from  sprung  mass  impact 
forces 

Ib-in 

SNPU 
SNTU 
SNPSU 

^57 

Moments  acting  on  the  sprung  mass 
produced  by  forces  acting  on  the 
unsprung  masses 

Ib-in 

P.Q.R 

P,Q,R 

+6 

Scalar  components  of  the  sprung 
mass  angular  velocity  along  the 
vehicle  x,y  and  z  axes 

rad/sec 

'c 

PC 

I 

Hydraulic  pressure  in  brake  system 
master  cylinder 

psig 

"j 

PP(2) 

197 

Hydraulic  pressure  in  brake 
cylinders  at  front  or  rear  brakes 

psig 

(PS) 

Prop  shaft  speed 

rpm 

10 
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(PT) 

XPS 

I 

Pneumatic  trail  of  front  tires 

1n 

(TQ)^ 

TQE 

21c 

Engine  torque 

Ib-ft 

Rp.Rp 

RF.RR 

I 

Auxiliary  roll   stiffness  of 
the  front  and  rear  suspensions 

Ib/in/rad 

["ro)p(TO)^ 

TQF(50) 
TQR(50) 

I 

Front  and  rear  torque  tables  for 
a  single  wheel   and  effective  at 

Ib-ft 

(RPHE) 

RPME 

211 

Engine  speed 

rpm 

the  wheel    (positive  for  traction. 

(RPS)^ 

RPSI(4) 

44 

Rotational   velocity  of  wheel 

rad/sec 

negative  for  braking) 

i,  positive  for  forward  motion 

(TR) 

TTTR 

I 

Transmission  ratio  (speed  ratio 

of  the  vehicle 

of  engine  to  prop  shaft) 

''rmi 

RRM(4) 

m 

Rolling  resistance  moment 
acting  on  wheel   i 

lb-1n 

^R   '^R 
R,     R2 

TESTRl 
TESTR2 

I 

Lower  and  upper  skid 
thresholds 

\ 

RW 

I 

Undeflected  tire  radius 

in 

h 

TS 

I 

Distance  between  spring  mounts 

in 

RWHJB 

RWHJB 

I 

Beginning  and  ending  radii   for 

in 

for  a  solid  rear  axle 

RWHJE 

RWHJE 

calculation  of  the  radial   tire 

force-deflection  characteristic 

hf 

TSF 

I 

Distance  between  spring 

in 

used  in  the  radial   tire  mode 

mounts  for  a  solid  front  axle 

SET 

SET 

I 

Ratio  of  permanent  deflection  to 
maximum  deflection  of  deformable 
barrier 

(TS) 

THS 

I 

Throttle  setting  expressed  as 
the  decimal   portion  of  wide  open 
throttle 

Si 

SI(4) 

173 

Total   suspension  force  for  a 

lb 

^sr'''s2 

TESTSl 

I 

Driver  threshold/indifference 

In/sec 

1 

163 

wheel,  acting  at  the  front  wheels 

TESTS2 

levels  for  positive  and 

and  rear  springs 

negative  speed  errors 

(SLIP)^ 

SLIP(I) 

241 

The  amount  by  which  the  rotational 
speed  of  wheel   i   is  less  than  that 

(TYPE) 

NBTYPE 

1 

Brake  type  indicator 

of  free  rotation  expressed  as  a 
decimal  portion  of  the  speed  of 
free  rotation 

h. 

TIPSI 

34 

Coulomb  friction  torque  in  steer- 
ing system  effective  at  the 
wheel 

Ib-in 

(SLIP^^ 

SLIPP 

m 

The  value  of  (SLIP)i,  at  a  given 
wheel  center  speed  Upj  for  which 

the  value  of/i^.   is  a  maximum 

'2, 

T2PSI 

ih 

Resistance  torque  produced  by 
the  front  wheel   steer  stops, 
effective  at  the  wheel 

Ib-in 

SPn 

ST(5,2) 

I 

Coefficients  for  straight  line 
segments  defining  the  desired 
path 

u,v,w 

U.V.W 

+6 

Scalar  components  of  linear 
velocity  of  the  sprung  mass  along 
the  sprung  mass  x,y  and  z  axes 

in/sec 

u'.v'.w' 

DXCP 

vA 

Scalar  components  of  linear 

in/ sec 

(SJi  .  (S,);  , 

SI  I 

2SA 

Characteristic  lengths  of  inter- 

in 

DYCP 

velocity  of  the  sprung  mass  along 

S2I 

m 

section  area  between  the  sprung 

DZCP 

the  space  fixed  x'.y'   and  2' 

(5,)i 

S3I 

2«. 

mass  and  barrier 

axes 

t 

T 

Time 

sec 

u^,v.wi 

UI(4) 

90- 

Scalar  components  of  the  tire 

1n/sec    . 

T, 

TESTB 

I 

Braking  indifference  level 

in/sec 

VI(4) 

^8 

contact  points  linear  velocity 

b 

WI(4) 

along  the  vehicle  axes 

^B-'^E 
TINCR 

TB.TE 

I 

Beginning,  ending  and  Incremen- 

sec 

\s 

UG(4) 

m 

Wheel  center  forward  velocity  in 

in/sec 

TINCR 

tal   times  for  entry  of  control 

direction  parallel   to  the  tire- 

tables   (TQ)|.,   [1^)^  and  f  ^ 

terrain  contact  plane 

^rh 

TF.TR 

I 

Front  and  rear  track 

in 

^Gwl 

UGW(4) 

m 

Ground  contact  point  velocity 

in/sec 

h 

TI(4) 

m 

Circumferential   tire  force 
resulting  from  applied  torque 

lb 

along  the  circumferential  direct- 
ion of  the  wheel 

"'n 

UNP(17) 

m 

Components  of  the  velocity  of  the 

1n/sec 

h'\ 

TIL 

I 

Driver  steering  model   lag 

sec 

n 
V 

VNP(17) 

three  or  four  points  that  define 

TL 

and  lead  times 

w 

WNP{17) 

the  Intersection  area  of  the 

(tq)b, 

(TQ)oj 

TQB(4) 
TQD(4) 

204. 
211 

Brake  torque  at  wheel   1 

Drive  line  torque  at  prop  shaft 

Ib-ft 
Ib-ft 

n 

barrier  and  vehicle  along  the  spac 
fixed  axes 

- 

at  vehicle  end  j 

11 
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^'  ^ 

URP 

303 

Components  of  the  velocity  of  the 

in/sec 

'^n 

XNN(17) 

1% 

Coordinates  of  intercept  points 

in 

V'r 

VRP 

point  of  application  of  the  sprung 

^n 
z_ 

YNN(17) 

between  the  barrier  and  sprung 

,  r 

wrp 

mass  Impact  force  along  the  space- 

ZNN(17) 

mass  in  the  vehicle  axes 

r 

fixed  axes 

n 

•,STi 
"  STi 

UPT(4) 
VPT(4) 
WPT(4) 

299 

ji3 

Components' of  the  velocity  of  the 
deformed  structural   hard  points 
along  the  space  fixed  axes 

in/sec 

X    p^ 

y'pi 

X 

Y 

iid 

Coordinates  of  the  location  on 
the  desired  path  at  which  the 
ith  error  is  determined 

in 

^T 

UT 

Total  vehicle  velocity 

in/ sec 

yRi 

^Ri 

XRI 

2fH 

Coordinates  of  the  centroid  of 

in 

^Gi 

VG(4) 

Ob 

Contact  point  lateral   velocity 

in/sec 

YRI 

the  intersection  area  on  cutting 

in  the  direction  parallel  to  the 

ZRI 

plane  i,  projected  on  to  the 

tire-terrain  contact  plane 

actual   vehicle  barrier  interface 

of  the  previous  time  increment 

vgr'( 

VGR,' 

VGR12 

I 

Vehicle  speed  at  which  trans- 

mph 

(^"Rlt 

VRR21 

mission  upshifts  and  downshifts 

SXR 

295 

Coordinates  of  the  point  of  ap- 

in 

VGR23 

occur 

^^R  t 

SYR 

2*. 

plication  of  the  sprung  mass 

VGR32 
VGR,, 

VGR32 

(^Vt 

SZR 

297 

impact  force 

VGR  34 

VGR;, 

VGR43 

JsTi 

ysTi 

XSTI(3) 

301 

Coordinates  of  the  deformed 

in 

43 

YSTI(3) 

structural   hard  points  in 

(VTAN) 

VTAN 

505 

Tangential   velocity  between  the 

in/sec 

ZSTI(3) 

the  vehicle  axes 

vehicle  and  barrier 

STi 

WE. 

WEIGHT(I) 

123 

Driver  steering  error  weighting 
function 

!!sTi„ 
^STi° 
^STi° 

XSTI0(3) 
YSTI0(3) 

I 

Coordinates  of  the  underformed 
structural   hard  points  in  the 

in 

ZSTI0(3) 

vehicle  axes 

WI. 

XIMPOR(I) 

I 

Driver  steering  error  importance 

1 

weighting  function 

"VF 

XVF 

I 

Distance  from  the  sprung  mass 

in 

(WOT) 

TWOT 

Wide  open  throttle  torque 

Ib-ft 

e.g.   to  the  vehicle  front  along 

XINCR 

XB(5) 

I 

Beginning,  ending  and   incre- 

in 

the  X  axis 

XE{5) 

mental   x'   for  terrain  tables 

'^VR 

XVR 

I 

Distance  from  the  sprung  mass 

XINCR(5) 

e.g.   to  the  vehicle  rear  along 

2^^ 

XBB 

^9 

Coordinates  of  the  intersection 

in 

the  x  axis 

YBB 

of  the  z'   axis  with  the  barrier 

X' 

XVP 

in 

Driver  prediction  of  vehicle 

in 

^BB 

ZBB 

bottom  plane  in  the  vehicle  axes 

^VP. 

location  at  the  ith  sample 

''bdry 

XBDRY(4,5) 

I 

x'    intercept  for  angled  bound- 
aries within  terrain  tables 

in 

y'vp. 

YVP 

313 

increment  in  the  future 

Xn  ■ 

XBI 

2fc7 

Coordinates  of  the  intersection 

in 

Xi,Y,.Zt 

XI  ,Y1 ,Z1 

I 

Coordinates  of  accelerometer 

in 

Bl 

YBI 

of  the  y'   axis  with  cutting 

X2,Y2,Z2 

positions  with  respect  to  the 

^Bi 

ZBI 

plane  i,   in  the  vehicle  axes 

'z'^z-h 

vehicle  axes  for  which  acceler- 

^Bi 

X 

BT 

ation  components  are  output 

{y} 

VAR 

System  dependent  variable, 

XBT 

Z7e 

Coordinates  of  the  intersection 

in 

integral  of  fy) 

YBT 

with  the  barrier  top  plane  in 

^BT 

ZBT 

the  vehicle  axes 

IM 

DER 

47 

First  derivatives  with  respect 

^BT 

to  time  of  the  system  dependent 

variables 

>^c-yc-^c 

XCP 

iS 

Coordinates  of  the  origin  of  the 

in 

Y     Y,- 

Beginning,  ending  and  incremental 
y'   for  terrain  tables 

in 

YCP 

lo'e 

fc7 

vehicle  axes   (sprung  mass  center  of 

'b  'e 

YB(5) 

I 

ZCP 

gravity)  with  respect  to  the 

YINCR 

YE(5) 

space  fixed  axes 

YINCR(5) 

"cpn 

XCPN(3) 
YCPN(3) 

m 

Coordinates  of  the  vehicle 
corner  n  in  the  vehicle  axes 

in 

^BDRY 

YBDRY(4.5) 

I 

Lateral  position  of  y'   terrain 
boundaries  with  respect  to  space 

in 

cpn 
z 

ZCPN(3) 

y's 

YBP 

I 

Lateral   position  of  the  barrier 

in 

cpn 
x' 

XCPNP{3) 

m 

Coordinates  of  the  vehicle 

in 

face  plane  with  respect  to 

cpn 

YCPNP(3) 

corner  n  in  the  space-fixed  axes 

space 

^cpn 

ZCPNP(3) 

^'cTy'c2 

YClP 

I 

Lateral   positions  of  slope 

in 

cpn 

XGPP(4) 

ISO 

Coordinates  of  the  ground 

in 

YC2P 

changes  defining  a  curb 

^Gp; 

YGPP(4) 

1S1 

contact  points  with  respect  to 

YC3P 

ZGPP(4) 

the  space-fixed  axes 

y'c3'y'c4 

YC4P 
YC5P 
YC6P 

XP(4) 

fa8- 

Coordinates  of  the  wheel  centers 

in 

,          , 

^l.y.'i^i 

YP(4) 

8Z 

with  respect  to  the  space  fixed 

y  05'^  06 

I  '  "   '    '        L 

ZP(4) 

axes 

'' 

YV 

I 

Distance  from  the  sprung  mass 
e.g.  to  the  vehicle  side 

in 

Z'nn 

ZBBP 

I 

Elevation  of  the  bottom  barrier 

in 

BB 

plane  in  space 

12 


ANALYTICAL 

PROGRAM 

d 

z 

ANALYTICAL 

PROGRAM 

i 

SYMBOL 

SYMBOL 

z 
o 

DEFINITION 

UMITS 
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z'bt 

ZBTP 

I 

Elevation  of  the  top  barrier 
plane  in  space 

in 

oL  ,5  .,r. 

CI  'cr'  ci 

255 

Direction  angles  of  a  line  per- 
pendicular to  the  normals  of  both 
the  wheel   plane  and  t1re-terrain 

rad 

Z'C2.Z'C3 

ZC2P 

I 

Elevation  of  curb  at  slope-. 

in 

contact  plane  with  respect  to 

^'C4/'C5 

ZC3P 

I 

Change  lateral  positions 

space 

Z'C6 

ZC4P 
ZC5P 
ZC6P 

%;^f?iz. 

B't 

Direction  angles  of  a  normal   to 
the  tire-terrain  contact  plane 
at  wheel   i  with  respect  to  space 

rad 

h 

ZF 

I 

Static  distance  along  z  axis 

in 

"kA'^i^ 

]% 

Direction  angles  of  the  resultant 

rad 

between  the  sprung  mass  center 

radial   force  on  wheel   i  with 

of  gravity  and  the  center  of 

respect  to  the  vehicle  axes 

gravity  of  the  front  unsprung 

masses 

"1^4'-^. 

143 

Direction  angles  of  a  line  from 

wheel   center  i   to  the  ground 

Z'g             2GP(Z1,ZI,5) 

I 

Input  elevations  of  the  terrain 

in 

contact  point  of  tire  radial 

table  grid  points 

spring  j  with  respect  to  the 

Z'Gi 

ZPGI(4) 

\% 

Ground  elevation  with  respect  to 

in 

vehicle  axes 

the  space  axes  of  the  point 

%;4.'7^. 

148 

Direction  angles  of  the  resultant 

rad 

beneath  the  wheel  centers 

radial'  force  on  wheel   i  with 

Z'Gi 

A  vector  through  the  ground  con- 

respect to  the  space  axes 

tact  point  normal   to  the  actual 

%'4'^, 

257 

Direction  angles  of  a  line  per- 

rad 

or  equivalent  ground  contact 

pendicular  to  both  a  normal   to 

plane 

the  tire-terrain  contact  plane 

Zr 

ZR 

I 

Static  distance  along  the  z  axis 

in 

and  the  wheel   axis  with  respect 

between  the  sprung  mass  center 

to  space 

of  gravity  and  the  rear  axle  roll 

a,.A,r;< 

J02 

Direction  angles  of  the  x  axis 

center 

^               ^ 

with  respect  to  space 

^VB 

ZBV 

I 

Distance  from  the  sprung  mass 
e.g.  to  the  plane  defining  the 
bottom  of  the  vehicle  along  the 
z  axis 

in 

W 
85 

Direction  angles  of  the  y  axis 
with  respect  to  space 

Direction  angles  of  a  normal   to 
the  wheel   1  with  respect  to  space 

^T 

ZVT 

I 

Distance  from  the  sprung  mass 

in 

e.g.   to  the  plane  defining  the 

(x.p  r 

B6 

Direction  angles  of  kingpin  axis 

top  of  the  vehicle,  along  the 

"      "       ( 

of  wheel   i 

z  axis 

^1 

Slip  angle  at  wheel   1 

rad 

a   /?   7- 
B'    B'  B 

M 

Direction  angles  of  a  normal  to 
the  barrier  face  plane  in  the 
vehicle  axes 

^'i 

BETP(4) 

lie 

Equivalent  slip  angle  produced  by 
camber  of  wheel   i 

rad 

a/3    7 

277 

Direction  angles  of  a  normal  to 

?i 

BETBR(4) 

in 

Non  dimensional   slip  angle 
variable  for  wheel   1 

BT'BT'BT 

the  barrier  top  plane  in  the 

^1 

vehicle  axes 

GAMl 

47 

a  /?    7- 

273 

Direction  angles  of  a  normal  to 

(^2't 

GAM2 

■Inertial  expressions 

BTBT  Bl 

the  plane  perpendicular  to  the 

(^3't 

GAM3 

barrier  face  plane  and  containing 
the  axis  of  rotation 

13 
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tl 

^hh 

GAM6 
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(r,), 

GAM7 

(^s't 

GAMS 

(^g't 

GAM9 

/ 

DELBB 

Barrier  deflection 

in 

^i 

DELI 

Right  front  suspension  deflec- 
tion for  independent  front 
suspension  or  front  axle  roll 
center  deflection  relative  to 
the  vehicle  from  position  of 
statis  equilibrium 

in 

4 

DEL2 

Left  front  suspension  deflec- 
tion relative  to  the  vehicle 
from  static  equilibrium  position 

in 

S3 

DEL3 

Right  rear  suspension  deflec- 
tion for  independent  rear  sus- 
pension or  rear  axle  roll   center 
deflection  relative  to  the 
vehicle  from  static  equilibrium 
position 

in 

s^ 

DEL4 

Left  rear  suspension  deflection 
relative  to  the  vehicle  from 
static  equilibrium  position 

in 

A<j 

DELG 

I 

Distance  between  road  roughness 
input  points 

in 

A( 

DELTA (4) 

111 

Distance  between  the  wheel   cen- 
ter and  ground  contact  point 

in 

^t 

DT 

I 

Numerical   integration  step 
interval 

sec 

t,t^ 

DELTB 

I 

Time  increment  for  use  during 
barrier  impacts 

sec 

l\t 

DELTC 

I 

Numerical   integration  step  size 
for  curb  impact  option 

sec 

^tn 

DTR 

Integration  step  size  for  use 
with  wheel   spin  equations  of 
motion 

sec 

DTHFl 
DTHF2 
DTHR3 
DTHR4 

I 

Front  and  rear  half-track 
changes  with  suspension 
deflection 

in 

^y'a 

DELYBP 

I 

Incremental   deflection  of  the 
barrier  position 

In 

Av,j 

DPSILF 

326 

Ideal  steer  angle  change 

rad 

f^ 

EPSB 

I 

Acceptable  error  in  the  force 
balance  between  the  vehicle 
structure  and  barrier 

lbs 

ANALYTICAL 
SYMBOL 

PROGRAM 
SVMBOL 

i 

DEFINITION 

UNITS 

f^.f« 

EPSF 
EPSR 

I 

Friction  lag  in  front  and  rear 
suspensions 

in/sec 

^n 

EPSL 

Permanent  set  of  the  barrier 
for  secondary  impacts 

in 

£v 

EPSV 

I 

Friction  lag  in  the  vehicle- 
barrier  friction  force 

in/sec 

Pw 

EPSPS 

I 

Friction  lag  in  steering  system 

deg/sec 

?3 

ZETAB 

I 

Threshold  value  of  wheel   rotation- 
al  velocity  below  which  logic  is 
applied  to  limit  brake  torques 

rad/sec 

?.• 

Hf 

Suspension  displacement  of  the 
relative  to  the  vehicle  from  the 
position  of  static  equilibrium 

in 

CDC 
CDl 
CD2 

Coefficients  for  unloading  force 
deflection  characteristic  of  the 
barrier 

% 

THESKD 

^% 

Vehicle  slip  angle 

rad 

Oo, 

THGI(4) 

m 

Pitch  angle  of  terrain  under  wheel 
i   relative  to  the  space  axes 

rad 

^n 

THETN 

Value  of  0  at  t=0  or  at  the  nth 
indexing  of  the  axes 

rad 

0t 

THETT 

■57 

integrated  value  of  e  from  t=0 
or  the  nth  indexing  of  the  axes 

^XG^' 

01 

Angle  between  the  x  axis  and  the 
tire-terrain  contact  plane  at 
wheel   i 

rad 

^3 

TLAMB 

M 

Coefficient  for  inertial  coupling 
terms  in  relationships  for 
driving  end  of  vehicle 

^f^^ 

XLAMF 
XLAMR 

I 

Ratio  of  conserved  to  absorbed 
energy  in  the  front  and  rear 
suspension  bumpers  or  multiple 
of  Kp.Kn  for  use  in  simulating 

suspension  bumpers 

^r 

XLAMT 

I 

Multiple  of  K^  for  use  in  non- 
linear range  of  tire  deflection 

■ 

XLM1(4) 
XLM2(4) 
XLM3(4) 
AMUB 

10/ 

106 
109 

I 

Contants  for  simultaneous  solution 
of  the  ground  contact  point 

Effective  coefficient  of  friction 
between  the  vehicle  sprung  mass  ani 
barrier 

/"c 

AMUC 

I 

Tire-curb  friction  factor 

14 
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PMOaMAM 
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i 
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uNi-n 

^^L 

XMUGI(4) 

I 

Nominal  coefficient  of  friction 
be.tween  t1  re  1  and  ground 

/"/ 

XMUI(4) 

I 

Peak  value  of  friction  coefficient 
for  side  forces  for  prevailing 
conditions  of  speed  and  load  at 
wheel   1 

Mmi 

XMUM(4) 

I 

Nominal   test  surface  friction 
coefficient  on  which  tire 
properties  were  measured 

/^x-i 

XMUX(4) 

vc 

Effective  friction  coefficient 
between  tire  and  terrain  at 
wheel   i   in  the  direction  along 
the  tire  circumference 

^^P, 

XMUXP(4) 

I 

Peak  circumferential   friction 
coefficient  for  tire  i 

M.s, 

XMUXS(4) 

I 

Sliding  circumferential  friction 
coefficient  for  tire  1 

It 

PI 

3.14159... 

y 

RHO 

I 

Distance  between  rear  axle  center 
of  gravity  and  roll   center, 
positive  for  roll   center  above 
e.g. 

Distance  between  front  axle 
center  of  gravity  and  roll   center, 
positive  for  roll   center  above  eg 

1n 

y>f 

RHOF 

I 

in 

At 

RHOS(I) 

l« 

Ratio  of  circumferential  to  peak 
side  force  friction  coefficients 
for  prevailing  conditions  of  speed 
and  load 

^SlUx 

RHOMAX 

m 

Maximum  value  of    si  at  the  exis- 
ting forward  velocity  of  wheel  1 

^/? 

SIGR 

I 

Coefficients  for  the  polynomlnal 
form  of  barrier  load  deflection 
characteristic 

^r 

SIGT 

I 

Maximum  radial   tire  deflection 
for  quasl-Hnear  load-deflection 
characteristic 

In 

2^ 

TAUA 

I 

Ambient  temperature 

"F 

^■ 

TAU(4) 

Temperature  of  brake  assembly 

"F 

^^0 

TAU0(4) 

I 

Initial  temperature  of  brake 
assembly 

°F 

0,e,jc 

PHIT 

THETT 

PSIT 

Euler  angles  of  sprung  mass 
axes  relative  to  inertlal  axes 

rad 

PHIC(50) 
PHIRC(50) 

I 

Table  of  front  and  rear  wheel 
canter  as  a  function  of  de- 
flection 

deg 

^co. 

PHICI(4) 

* 

Camber  angles  of  wheels  relative 
to  the  normal  to  tire-terrain 
contact  plane 

rad 

Pcx,0et_ 

PHIC1,  PHIC2 
PHIC3.  PHIC4 
PHIC5,  PHIC6 

I 

Curb  slope  angles 

rad 

ANALYTICAL 
tVMaOL 

raOQHAM 
tVIMOL 

i 

8 

DEFINITION 

UNITt 

<fF 

phif 

Angular  displacement  of  front 
axle  relative  to  the  vehicle 
about  a  line  parallel   to  the 
X-axis  through  the  front  roll 
center 

rad 

\ 

PH6I(4) 

WS 

Camber  angle  of  terrain  under 
wheel  i 

rad 

^    i 

PHII(4) 

Camber  angles  of  four  wheels 
relative  to  vehicle 

rad 

<P'n 

PHIN 

Value  of        at  t=0  or  at  the 
nth  indexing  of  the  axes 

rad 

0^ 

PHIR 

Angular  displacement  of  rear 
axle  relative  to  the  vehicle 
about  a  line  parallel   to  the  x  - 
axis  through  the  rear  roll  center 

rad 

0r 

PHIT 

55 

Integrated  value  of  (g    from  t=0 
or  the  nth  axis  indexing 

rad 

0ye, 

«5 

Angle  between  y  axis  and  tire- 
terrain  contact  plane 

rad 

'''bdry 

PSBDRY(4.5) 

I 

Angle  of  Interpolation  boundaries 
in  terrain  tables,  measured  from 
the  x'axis 

rad 

^f 

PSIF(50) 

I 

Table  of  front  wheel   steer  angle 
vs  time 

rad 

y^. 

PSn(4) 

Steer  angles  of  wheels  relative 
to  vehicle  (positive-clockwise 
as  viewed  from  above) 

rad 

Vi 

PSIIP(4) 

M 

Steer  angles  of  wheels  In  tire- 
terrain  contact  plane 

rad 

¥n 

PSIN 

Value  ofyr  at  t-0  or  the  nth 
Indexing  of  the  axes 

rad 

Vi 

PSIT 

59 

Integrated  value  of  ^  from  t«0 
or  the  nth  axis  Indexing 

rad 

«F 

"r 

OMEGF 
OMEGR 

I 

Maximum  suspension  deflections 
from  the  equilibrium  position 
for  linear  load-deflection 
characteristic  of  the  springs 

in 

«FC 

"kc 

OMEGFC 
CMEGRC 

I 

Front  and  rear  suspension 
deflections  at  which  the 
compression  bumpers  are 
contacted,  measured  at  the 
front  wheels  and  the  rear 
springs 

in 

"fe 

'^RE 

0ME6FE 
OMEGRE 

I 

Front  and  rear  suspension 
deflections  at  which  the 
extension  bumpers  are  con- 
tacted, measured  at  the  front 
wheels  and  rear  springs 

In 

°T 

OMEGT 

I 

Multiple  of  A2  at  which  the 
assumed  parabolic  variations 
of  small  angle  cornering 
and  camber  stiffnesses  with 
tire  loading  are  abandoned 

Q 

OHGPS 

I 

Front  wheel  steering  angle  at 
which  the  linear  steering 
stops  are  engaged 

rad 

15 
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3.        PROGRAM  DOCUMENTATION 

3. 1       Roadside  Design  Version 

A  description  of  each  computational  subroutine  of  the  HV0SM-RD2  is 
provided  in  this  section.   Included  is  a  brie:^  description  of  the  purpose  of 
the  subroutine,  a  description  of  the  linkages  to  the  rest  of  the  program  in 
the  forms  of  subroutine  called,  calling  arguments,  common  blocks  appearing, 
variables  within  the  common  blocks  that  are  the  result  of  a  computation,  and, 
in  the  subroutine  size.   Also  included  is  a  description  of  the  computational 
procedure  employed  either  in  the  form  of  a  verbal  listing  of  the  computational 
steps  or  an  annotated  flowchart  illustrating  the  logical  sequence  of 
computations.   Since  this  part  of  the  subroutine  description  is  intended  to 
illustrate  the  procedure,  it  does  not  always  illustrate  each  individual  line 
of  coding.   When  a  detailed  investigation  of  the  coding  is  required,  the 
computational  procedure  should  be  used  in  conjunction  with  a  subroutine 
listing. 

An  overall  program  block  diagram  is  shown  in  Figure  3.1-1,  a  matrix 
of  common  blocks  appearing  in  each  subroutine  in  Figure  3.1-2,  and  a  matrix 
of  subroutine  calls  in  Figure  3.1-3. 
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Figure  3.1-3    HV0SM-RD2  MATRIX  OF  SUBROUTINE  CALLS 
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HV0SM-RD2 
3.1.1     HV0SM-RD2  Subroutine  Documentation 
1.        MAIN  ROUTINE 

a.  Purpose: 

1.  Clear  selected  COMMON  blocks 

2 .  Obtain  input  and  print  input 

3.  Program  initialization 

4.  Control  computation  of  constants 

5.  Control  the  integration  loop 

6.  Control  abnormal  program  stops 

7.  Control  indexing  of  coordinate  system 

8.  Control  integration  step  size  for  curb  and 
sprung  mass  impact 

9.  Control  output 

b.  Common  Blocks  Required: 

HEAD,  INPT,  INPTl,  INTG,  DIMV,  COMP,  COMPN,  E INDEX, 
ADTNL,  INPT2,  INPT3,  TIRIN,  BARIER,  APTABL,  INSUS, 
SUSCMP,  NEWCRB,  BARSTR,  DRIVTT,  DRIVI,  NSTOP, 
HARDPT,  RUFNES 

c.  Subroutines  Required: 

CLEAR,  CNSTNT,  DATE,  DVDCHK,  EGYSUM,  IDOUT,  INITEQ, 
INPUT,  OUTPUT,  PINTl,  PLOTTP,  WHEEL,  RUFRED 

d.  Arguments: 
None 

e.  Common  Variables  Claculated: 

T,  DT,  FJP,  NEQ,  ZGP,  DADE,  DELG,  IHIT,  IRUF,  LCBl, 
LCB2,  NEND,  NFJP,  PHIN,  PI02,  PSIN,  DGMAX,  ILOAD, 
JBHIT,  PHITL,  THETN,  TPATH,  UVWM2 ,  XINDL,  XINDN, 
ICBHIT,  IDRIVE,  IPATHT,  JCBHIT,  NLDCTR,  PSIMAX, 
THETTL 

f.  Size: 

D42),,  =  3394),-  bytes 
io         iU 

g.  Computational  Procedure: 
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HV0SM-RD2 
SUBROUTINE  AREA 

a.  Purpose: 

1.  Compute  the  intersection  area  between  the  vehicle 
and  barrier 

2.  Compute  the  projection  of  the  intersection  volume 
centroid  on  the  interface 

b.  Common  Blocks  Required: 
DIMV,  BARIER 

c.  Subroutines  Required: 
SIMSOL 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 

13,  SRX,  SRY,  SRZ,  XRI,  YRI,  ZRI ,  SDEN,  XMTX,  AINTI, 
AINTP,  INDXPT 

f.  Size: 

9F6)^^  =  2550) ^Q  bytes 

g.  Computational  Procedure: 
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HV0SM-RD2 
SUBROUTINE  BLKOl 

a.  Purpose: 

1.   Assign  input  values  of  simulation  control  data 

b.  Common  Blocks  Required: 

HEAD,  INPT,  INPTl,  INPT2,  INSUS,  NEWCRB 

c.  Subroutines  Required: 
None 

d.  Arguments: 

NBLK  -  Input  data  block  number 

NBCRD  -  Card  number  within  the  block 

NSEQ  -  Table  sequence  number 

NCARD  -  Card  number 

DUM   -  Array  containing  input  values  read  in 
Subroutine  INPUT  to  be  assigned  to 
the  appropriate  variable  names  within, 
this  subroutine 

NERR  -  Error  indicator 

e.  Common  Variables  Calculated: 

EM,  TO,  Tl,  AAA,  BET,  HED,  EBAR,  HMAX,  HMIN,  INDB, 
ISUS,  MODE,  DELTB,  DELTC,  NPAGE,  THMAX,  DTCOMP, 
DTPRNT,  INDCRB,  NCRBSL,  PQRMIN,  UVWMIN 

f.  Size: 

480)^^  =  1152)^^  bytes 
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HV0SM-RD2 
SUBROUTINE  BLK02 

a.  Purpose: 

1.   Assign  input  values  of  simulation  vehicle  data 

b.  Common  Blocks  Required: 

HEAD,  INPT,  INPTl,  INPT2,  INPT3,  APTABL,  INSUS,  BARSTR 

c.  Subroutine  Required: 
TREAD 

d.  Arguments: 

NBLK  -  Input  data  block  number 

NBCRD  -  Card  number  within  the  block 

NSEQ  -  Table  sequence  number 

NCARD  -  Card  number 

DUM   -  Array  containing  input  values  read  in 
Subroutine  INPUT  to  be  assigned  to  the 
appropriate  variable  names  within  this 
'  subroutine 

NERR  -  Error  indicator 

e.  Common  Variables  Calculated: 

A,  B,  G,  CF,  CR,  RF,  RR,  TF,  TR,  TS,  XI,  X2 ,  YV, 
Yl,  Y2,  ZF,  ZR,  Zl,  Z2,  AKF,  AKR,  AKV,  APF,  APR, 
CFP,  CRP,  RHO,  TSF,  XIF,  XIR,  XIX,  XIY,  XIZ,  XMS,  XPS, 
XVF,  XVR,  ZVB,  ZVT,  AKDS,  AKFC,  AKFE,  AKPS,  AKRC, 
AKRE,  AKRS,  AKST,  CPSP,  DDEL,  DELB,  DELE,  DTHF, 
DTHR,  EPSF,  EPSR,  NAPF,  NAPR,  NDEL,  PHIC,  RHOF, 
VHED,  XI PS,  XI XZ,  XMUF,  XMUR,  AKDSl,  AKDS2, 
AKDS3,  AKFCP,  AKFEP,  AKRCP,  AKREP,  DAPFB,  DAPFE, 
DAPRB,  DAPRE,  DDAPF,  DDAPR,  EPSPS,  lAPFR,  NDTHF, 
NDTHR,  NPAGE,  OMGPS,  PHIRC,  XLAMF,  XLAMR,  XSTIO, 
YSTIO,  ZSTIO,  OMEGFC,  OMEGFE,  OMEGRC,  OMEGRE 

f.  Size: 

906),^  =  2310),^  bytes 
io        lU 
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HV0SM-RD2 
SUBROUTINE  BLK05 

a.  Purpose: 

1.   Assign  input  values  of  simulation  tire  data 

b.  Common  Blocks  Required: 
HEAD,  INPTl,  TIRIN 

c.  Subroutines  Required: 
T2READ 

d.  Arguments: 

NBLK  -  Input  data  block  number 

NBCRD  -  Card  number  within  the  block 

NSEQ  -  Table  sequence  number 

NCARD  -  Card  number 

DUM   -  Array  containing  input  values  read  in 
Subroutine  INPUT  to  be  assigned  to  the 
appropriate  variable  names  within  this 
subroutine 

NERR  -  Error  indicator 

e.  Common  Variables  Calculated: 

AO,  Al,  A2,  A3,  A4,  RW,  AKT,  AMU,  ITIR,  SIGT, 
THED,  DRWHJ,  OMEGT,  RWHJE,  XLAMT 

f.  Size: 

45A)^^  =  1114) ^Q  bytes 
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HV0SM-RD2 
6.        SUBROUTINE  BLK04 

a.  Purpose: 

1.   Assign  input  values  of  simulation  vehicle  control  data 

b.  Common  Blocks  Required: 
HEAD,  INPT 

c.  Subroutines  Required: 
TREAD 

d.  Arguments: 

NBLK  -  Input  data  block  number 

NBCRD  -  Card  number  within  the  block 

NSEQ  -  Table  sequence  number 

NCARD  -  Card  number 

DUM   -  Array  containing  input  values  read  in 
Subroutine  INPUT  to  be  assigned  to  the 
appropriate  variable  names  within  this 
subroutine 

NERR  -  Error  indicator 

e.  Common  Variables  Calculated: 

TQF,  TQR,  CHED,  PSIF,  NPAGE,  NTBLl,  NTBL2,  NTBL3, 
TINCR 

f.  Size: 

3AC},,  =  940), „  bytes 


47 


HV0SM-RD2 
7.        SUBROUTINE  BLK05 

a.  Purpose: 

1.   Assign  input  values  of  simulation  terrain,  curb  and 
barrier  data 

b.  Common  Blocks  Required: 

HEAD,  INPT,  INPTl,  INPT2 ,  NEWCRB,  RUFNES 

c.  Subroutines  Required: 
TEREAD 

d.  Arguments: 

NBLK  -  Input  data  block  number 

NBCRD  -  Card  number  within  the  block 

NSEQ  -  Table  sequence  number 

NCARD  -  Card  number 

DUM   -  Array  containing  input  values  read  in 
Subroutine  INPUT  to  be  assigned  to  the 
appropriate  variable  names  within  this 
subroutine 

NERR  -  Error  indicator 

e.  Common  Variables  Calculated: 

NX,  NY,  XB,  XE,  YB,  YE,  NBX,  NBY,  NZ5,  SET,  AMUB, 
AMUC,  AMUG,  CONS,  DELG,  EPSB,  EPSV,  GHED,  IRUF, 
NEND,  SIGR,  YBPO,  YClP,  YC2P,  YC3P,  YC4P,  YC5P, 
YC6P,  ZBBP,  ZBTP,  ZC2P,  ZC3P,  ZC4P,  ZC5P,  ZC6P, 
DGMAX,  EPSP,  NPAGE,  NZTAB,  PHICl ,  PHIC2,  PHIC3, 
PHIC4,  PHIC5,  PHIC6,  XINCR,  YINCR,  DELYBP 

f.  Size: 

746)^^  =  1862) ^Q  bytes 
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HV0SM-RD2 
8,        SUBROUTINE  BLK06 

a.  Purpose: 

1,   Assign  input  values  of  simulation  initial  conditions 

b.  Common  Blocks  Required: 
HEAD,  INPT,  INPTl,  INSUS 

c.  Subroutines  Required: 
None 

d.  Arguments: 

NBLK  -  Input  data  block  number 

NBCRD  -  Card  number  within  the  block 

NSEQ  -  Table  sequence  number 

NCARD  -  Card  number 

DUM   -  Array  containing  input  values  read  in 
Subroutine  INPUT  to  be  assigned  to  the 
appropriate  variable  names  within  this 
subroutine 

NERR  -  Error  indicator 

e.  Common  Variables  Calculated: 

PO,  QO,  RO,  UO,  VO,  WO,  PHIO,  PSIO,  SHED,  XCOP, 
YCOP,  ZCOP,  DELIO,  DEL20,  DEL30,  DEL40,  PHIFO, 
PHIRO,  DELIOD,  DEL20D,  DEL30D,  DEL40D,  PHIFOD, 
PHIROD,  PSIFDO,  PSIFIO,  THETAO 

f.  Size: 

318)^^  =  792)^Q  bytes 
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HV0SM-RD2 
SUBROUTINE  CLEAR (A, B) 

a.  Purpose: 

1.   To  set  a  block  of  storage  to  zero 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 
None 

d.  Arguments: 

A  -  beginning  address  to  be  cleared 

B  -  end  of  the  full -word  address  to  be  cleared 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

182}^^  =  386)^Q  bytes 
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HV0SM-RD2 
10.       SUBROUTINE  CNSTNT 

a.  Purpose: 

1 .  Evaluate  program  constants 

2.  Initialize  dependent  variables  and  derivatives  to 
input  initial  conditions 

b.  Common  Blocks  Required: 

HEAD,  INPT,  INPTl,  INTG,  COMP,  COMPN,  EINDEX,  INPT2, 
TIRIN,  BARIER,  INSUS,  SUSCMP,  NEWCRB 

c.  Subroutines  Required: 
None 

d.  Arguments: 
None 

.6.    Common  Variables  Calculated: 

P,  Q,  R,  U,  V,  W,  AAl,  AA2,  A12,  A23,  BBl ,  BB2 , 
CCl,  CC2,  RRl,  RR2,  RTF,  RTR,  TIZ,  TM4 ,  XCP,  YCP, 
ZCP,  ZFO,  ZPR,  ZRO,  AMUF,  A234,  BMUR,  DELI,  DEL2, 
DEL3,  DEL4,  GAMl ,  PHIF,  PHIN,  PHIR,  PI02,  PI04, 
PSIN,  RFTF,  RH02,  RRTR,  RRTS,  SUMM,  TF02 ,  TR02, 
TS02,  XCPN,  YBPT,  YCLP,  YCPN,  YC3P,  YC4P,  YC5P, 
YC6P,  ZCPN,  ZC3P,  ZC4P,  ZC5P,  ZC6P,  DELID,  DEL2D, 
DEL3D,  DEL4D,  PHIFD,  PHIRD,  PHITL,  PHITP,  PSIFI, 
PSITL,  PSITP,  RHMR2,  RH0F2,  YBPTP,  A02APB,  AXMF02, 
B02APB,  BROMUR,  BXMR02,  0MT2A2 ,  0MT2M1,  PHICLR, 
PHICIR,  PHIC2R,  PHIC3R,  PHIC4R,  PHIC5R,  PHIC6R, 
PS I FID,  RF2MF1,  RHFMUF,  RHF2MF,  RHMR2I,  RHOMUR, 
TANPCL,  TANPCl,  TANPC2 ,  TANPC3,  TANPC4 ,  TANPC5, 
TANPC6,  THETTL,  THETTP,  XMTF04,  XMTR04 ,  XMUF02, 
XMUR02 

f.  Size: 

A2E)  ,  =  2606)   bytes 

g.  Computational  Procedure; 

1 .  Compute  program  constants 

2.  Initialize  dependent  variables  converting  degrees 
to  radians 

3.  Initialize  XINDT  =  10,  if  THETN  or  PHIN  are  not 

zero  for  use  in  MAIN  and  TMCNST  to  control  coordinate 
system  indexing 
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HV0SM-RD2 
11.       SUBROUTINE  CRBIMP(I) 

a.  Purpose: 

1.   Determine  the  radial  tire  force  and  equivalent  ground 
contact  point  when  a  tire  is  in  contact  with  a  curb 

b.  Common  Blocks  Required: 

INPTl,  DIMV,  COMP,  COMPN,  INTG,  TIRIN,  NEWCRB 

c.  Subroutines  Required: 
INTRPL 

d.  Arguments: 

The  argument  I  indicates  the  wheel  number  for  which 
calculations  are  made 

e.  Common  Variables  Calculated: 

FR,  HI,  RW,  CAR,  CBR,  CGR,  CPG,  CTG,  SPG,  STG,  . 
BMTX,  PHGI,  SFRX,  SPRY,  SFRZ,  THGI,  XGPP,  YGPP, 
ZGPP,  AJMTX 

f.  Size: 

F32)    =  3890)  Q  bytes 

g.  Computational  Procedure: 
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(  RETURN  J 

(^TnT) 
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SUBROUTINE  DATE 

a.  Purpose: 

1.   Return  the  calender  date  in  8  byte  form,  e.g., 
23MAR'68 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 
None 

d.  Arguments: 

DADE  -  Array  into  which  the  date  is  loaded 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

D6)^^  =  214) ^Q  bytes 

g.  Procedure: 

This  subroutine  is  written  in  IBM  S/360 
Assembler  Language 
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13.       SUBROUTINE  DAUX 

a.  Purpose: 

1.   Evaluate  the  derivatives  of  the  dependent  variables 
for  subsequent  integration  in  PINTl 

b.  Conunon  Blocks  Required: 

INPT,  INPTl,  INTG,  DIMV,  COMP,  COMPN,  ADTNL,  INPT2, 
INSUS,  SUSCMP,  NSTOP 

c.  Subroutines  Required: 

VPOS,  VGORNT,  TMCNST,  MATRIX,  SIMSOL,  MTRXIR,  MTRXSF, 
SFORCE,  SUSFRC,  UMOMNT 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 

DP,  DQ,  DR,  DU,  DV,  DW,  DXCP,  DYCP,  DZCP,  GAM2, 
GAM3,  GAM4,  GAMS,  GAM6,  GAM7,  GAMS,  GAM9,  XIYP,  XIXP, 
XIZP,  DDELl,  DDEL2,  DDEL3,  DDEL4,  DMATX,  DPHIF, 
DPHIR,  TIPSI,  T2PSI,  XIXZP,  XIYZP,  DDELID,  DDEL2D, 
DDEL3D,  DDEL4D,  DDPSFI,  DPHIFD,  DPHIRD,  DPHITP, 
DPSIFI,  DPSITP,  DTHTTP 

f.  Size: 

AD4)^^  =  2772) ^Q  bytes 

g.  Computational  Procedure: 

1.  Test  for  abnormal  program  stop  (ISTOP  /  0)  and  return 
if  indicated, 

2.  Calculate  time  dependent  variables  by  calling  subroutine 
TMCNST. 

3.  Calculate  time  dependent  inertial  terms:  XIXP,  XIYP, 
XIZP,  XIXZP,  XIYZP,  GAM2,  GAM3,  GAM4,  GAMS,  GAM6,  GAM7, 
GAMS,  GAM9.  Note  that  these  variables  differ  with  the 
suspension  option  in  effect,  thus  branching  to  the 
appropriate  set  of  calculation  occurs  based  in  ISUS. 

4.  Call  subroutines  VPOS  and  VGORNT  to  determine  the 
position  and  orientation  of  the  vehicle. 

5.  Calculate  suspension  displacements  and  velocities  depending 
on  suspension  option. 

6.  Call  subroutines  SUSFRC  to  calculate  suspension  forces, 
and  UMOMNT  to  calculate  moments  acting  on  the  sprung 
mass  and  solid  axles  (if  being  used). 
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7.  If  the  barrier  option  is  being  used  (INDBt^O)  call 
subroutine  SFORCE  to  obtain  impact  forces  and  moments. 

8.  Depending  on  the  suspension  option  in  effect,  call 
either  subroutine  MATRIX,  MATRXIR  or  MTRXSF  to  evaluate 
the  inertial  matrix  and  forcing  function  stored  in  the 
array  DMATX. 

9.  Call  subroutine  SIMSOL  to  solve  the  10x10  set  of 
simultaneous  equations  of  motion  for  the  10  derivatives 
of  the  dependent  variables. 

10.  Set  the  solution  vector  from  SIMSOL,  DMATX(I,11),  to 
the  appropriate  variable  names  and  set  the  remaining 
10  derivatives  depending  on  suspension  option. 

11.  Compute  the  derivatives  of  the  steering  degree-of- 
freedom  if  in  effect  as  indicated  by  either  INDCRB<0 
or  IHIT=1  and  INDCRB>0. 
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14.       SUBROUTINE  DRIVER(SA,SADOT,  ISA) 

a.  Purpose: 

1.  DRIVER  is  a  dummy  subroutine  included  to  provide 
linkages  for  an  automatic  steering  algorithm  and 
provides  no  other  function  in  this  program  version. 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 
None 

d.  Arguments: 

SA    -  front  wheel  steer  angle 

SADOT  -  front  wheel  steer  angle  velocity 

ISA   -  driver  option  indicator 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

EO)^^  =  224) ^Q  bytes 

g.  Computational  Procedure: 

1.   This  subroutine  sets  the  driver  indicator  argument 
(ISA)  to  zero  insuring  this  option  is  not  used. 
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15.       SUBROUTINE  DRIVID 

a.  Purpose: 

1.   DRIVID  is  a  dummy  subroutine  to  provide  linkages 

in  order  to  print  automatic  steering  control  inputs. 
It  provides  no  function  in  this  program  version. 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 
None 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

A4)^^  =  164) ^Q  bytes 
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16.       SUBROUTINE  DVDCHK 

a.  Purpose: 

1.   This  subroutine  processes  interuptions  caused  by 
arithmetic  instructions 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 
None 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

452) j^  =  1108) ^Q  bytes 

g.  Procedure: 

1.   A  call  to  DVDCHK  processes  the  following 
interuptions : 

1.  fixed  point  divide  exception 

2.  exponent  overflow  exception 

3.  exponent  underflow  exception 

4.  floating  point  divide  exception 

This  subroutine  is  written  in  IBM  Assembler 
Language.   The  services  provided  are  also 
given  by  extended  FORTRAN  error  handling. 
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17.       SUBROUTINE  EGYSUM 

a.  Purpose: 

1.  Calculate  energy  absorbed  by  the  vehicle  and  barrier 
during  a  barrier  impact 

2.  Set  previous  values  of  some  barrier  impact  variables 

b.  Common  Blocks  Required: 
INPT2,  BARIER 

c.  Subroutines  Required: 
None 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 

FNP,  DISS,  PCAB,  PCBB,  PCGB,  PPRB,  PSZR,  DELBB,  ININD, 
PVDEF,  SWORK,  YBPTP,  DELBBP,  SPENGY 

f.  Size: 

18E),,  =  398), »  bytes 
io        iU 

g.  Computational  Procedure: 
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EGYSUM 


OISS=ENRGY-EEE 


CALCULATE  ENERGY  DISSIPATED 
IN  BARRIER 


SVWORK=SWORK+FRICT»VTAN»DT 


SPENGY=SPENGY+.5*(FN*FNP)»(VDEF-PVDEF) 


DELBB=EPSL+SET*DELX 


PVDEF=-VDEF 


FNP=FN 


ININD=2 


PPRB=RB 

PCAB=CAB 

PCBB=CBB 

PCGB==CGB 

YBPTP=YBPT 

PSZR=SZR 


CALCULATE  ENERGY  DISSIPATED  IN 
SLIDING  FRICTION 


CALCULATE  ENERGY  DISSIPATED  IN 
VEHICLE  STRUCTURE 


SET  PREVIOUS  VALUES 


IF  FN=0,  SET  BARRIER  DEFLECTION  TO 
PERMANENT  SET 


SET  PREVIOUS  VALUES 


n 

lETURr 

'   ) 

i 

c 

END 

) 
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18.  SUBROUTINE  GCP(I) 

a.  Purpose: 

1,  Compute  the  coordinates  of  the  tire  ground  contact 
point  in  space 

2,  Compute  the  rolling  radius  of  the  tire 

3,  Compute  the  direction  and  magnitude  of  the  tire 
radial  force 

b.  Common  Blocks  Required: 
DIMV,  COMP,  TIRIN 

c.  Subroutines  Required: 
SIMSOL 

d.  Arguments: 

The  argument  I  indicates  the  wheel  number  for  which 
calculations  are  made 

e.  Common  Variables  Calculated: 

FR,  HI,  TX,  TY,  TZ,  CAR,  CBR,  CGR,  TRH,  CMTX, 
XGPP,  XLMl,  XLM2,  XLM3,  YGPP,  ZGPP,  DELTA 

f.  Size: 

36C),^  =  876h„  bytes 
io       iu 

g.  Computational  Procedure: 

1.  Calculate  the  coordinates  of  the  ground  contact  point  by 
simultaneous  solution  of  the  intersection  of  three  planes 
the  wheel  plane  (normal  direction  CAYW(I) ,  CBYW(I), 
CGYW(I)  );  the  ground  plane  (normal  direction  CAGZ(I), 
CBGZ(I),  CGGZ(I);  and  a  plane  perpendicular  to  both 
passing  through  the  wheel  center  (normal  direction 
D1(I),  D2(I),  D3(I)  ).   The  simultaneous  solution  is 
performed  by  SIMSOL  with  the  CMTX  array  containing 

the  above  direction  cosines  and  the  target  array 
(XLMl (I),  XLM2(I),  XLM3(I)  )  contained  in  the  fourth 
column  of  CMTX.   The  solution  is  returned  in  the  fourth 
column  of  CMTX  and  set  to  the  coordinates  of  the  ground 
contact  point  (XGPP(I),  YGPP(I),  ZGPP(I)  ). 

2.  Calculate  the  distance  between  the  wheel  center  and 
ground  contact  point,  DELTA(I). 

3.  Calculate  the  direction  cosines  of  the  line  of  action  of 
the  tire  radial  force  with  respect  to  the  space  axes 
(CAR(I),  CBR(I),  CGR(I)  ), 

4.  Determine  the  rolling  radius,  HI (I). 

5.  Calculate  the  radial  tire  force,  FR(I),  as  shown: 
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FR(l)=0.0 


f       RETURN      J« 


FR(I)=AKT(I)'TRH 


f       RETURN        J 


INITIALIZE  RADIAL  FORCE  TO  ZERO 


TEST  IS  TRUE  IF  TIRE  IS  NOT  DEFLECTED 
FR(I)  IS  ZERO 


CALCULATE  TIRE  DEFLECTION 


TEST  IS  TRUE  IF  DEFLECTION  IS 
NON  LINEAR  PART  OF  TIRE 


FOR  LINEAR  PORTION  OF  TIRE 
CALCULATE  FORCE 


FR(l)=AKT(l)*(XLAMT(ir(TRH-SIGT(l))+SIGT<l)) 


(        RETURN       J 


CALCULATE  FORCE  FOR  NON-LINEAR 
PART  OF  TIRE 
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19.       SUBROUTINE  I POUT 

a.  Purpose: 

1.   Print  input  values  with  units  and  headings 

b.  Common  Blocks  Required: 

HEAD,  INPT,  INPTl,  COMP,  INPT2,  INPT3,  APTABL, 
TIRIN,  INSUS,  NEWCRB,  BARSTR 

c.  Subroutines  Required: 
DRIVID 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

47D0)^^  =  18384)^Q  bytes 


64 


I 


HV0SM-RD2 
20.       SUBROUTINE  INITEQ 

a.  Purpose: 

1.   To  perform  calculations  to  situate  the  vehicle  in 
initial  vertical  equilibrium  on  flat,  level  terrain 

b.  Common  Blocks  Required: 

INPT,  COMP,  DIMV,  COMPN,  INSUS,  TIRIN 

c.  Subroutines  Required: 
None 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 
FR,  HI,  ZF,  ZR 

f.  Size: 

324)^^  =  804) ^Q  bytes 

g.  Computational  Procedure: 

If  ZF  and  ZR  are  input  as  zero,  this  subroutine 
calculates  these  variables  based  on  the  requirement 
for  initial  vertical  equilibrium  of  the  vehicle. 
Also  calculated  are  tire  radial  forces  and  rolling 
radii. 
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21.        SUBROUTINE  INPUT 


a. 

Purpose: 

1 .  Obtain  card  input 

2.  Print  card  images 

b. 

Common  Blocks  Required: 

None 

c. 

Subroutines  Required: 

BLKOl,  BLK02,  BLK03,  BLK04,  BLK05,  BLK06 

d. 

Arguments: 

None 

e. 

Common  Variables  Calculated: 

None 

£. 

Size: 

D5E),,  =  3422),^  bytes 

ID  iU 

Computational  Procedure; 
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22.       SUBROUTINE  INTRPL 
a.    Purpose 


1.  To  obtain  a  quadratic  interpolation  of  a  one-dimensional 
table 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 
None 

d.  Arguments: 

TABLE  -  one-dimensional  array  of  data 

XMIN  -  minimum  abscissa  value 

XMAX  -  maximum  abscissa  value 

DX    -  abscissa  increment 

X     -  abscissa  value  at  which  ordinate  is  desired 

Y     -  ordinate  of  X 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

4A2),,  =  1186), _  bytes 
16        10 

g.  Procedure: 

1.  Quadratic  interpolation  of  the  values  of  TABLE  at  X 

2.  ENTRY  INTRPC  also  includes  the  additional  argument 
SLOPE  which  is  calculated  as  d (TABLE)   at  X 

dx 
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23.       SUBROUTINE  INTRP5(INDX) 

a.  Purpose: 

1.  Calculate  the  elevation  and  slopes  under  the  wheel 
indicated  by  the  argument  INDX. 

2.  Set  the  nominal  friction  coefficient  according  to  the 
table  for  the  wheel  location. 

b.  Common  Blocks  Required: 

INPT,  DIMV,  COMP,  COMPN,  TIRIN 

c.  Subroutines  Required: 
None 

d.  Arguments: 

INDX  -  wheel  number  for  which  calculations  are  to  be  made 

e.  Common  Variables  Calculated: 

IX,  lY,  XXX,  XXI,  XX2,  YYY,  YYl ,  YY2,  ZZl,  ZZ2, 
PHGI,  THGI,  THGl,  ZPGI,  XMUGI 

f.  Size: 

129C),,  =  4764), „  bytes 
lb         iv 

g.  Computational  Procedure: 
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XXX  '  XPIINDXI 
YYY  =  YPdNOXI 
IT  .  0 


-^  CONTINUE     I 


13 


ZPGIIINOXI  -  00 
THGKINDXI  -  00 
PHGKINDXI  -  0  0 
XMUGKINDXI-AMUdNOXI 


c 


XMUGKINDXI-AMUGdTI'AMUIINDXI 
XBT  -  XBIITI 
XET  ■  XEilTI 
YBT  =  YBdTl 
YET  -  YEdTI 
NXT  •  NXdT) 
NYT  -  NYIITI 
NBXT  -  NBXIITI 
NBYT  =  NBYIITI 


XINCRT  -  XINCRUTl 
YINCRT  »  YlNCRdTI 


IX"  IXXX  XBTI/XINCBT 
lY  -  lYYYYBTI/YINCRT 


TTol 

liiJ 


XXI  •  XBT+FLOATIIX  II'XINCRT 
XX2  ■  XXItXINCRT 
YY1  -  YBT*FLOATdY  11-YINCRT 
YY3  '  YYUYINCRT 


INITIALIZE  ERROR  INDICATOR 


SET  WHEEL  POSITION  FOR 
INTERNAL  TESTING 


IF  TEST  IS  TRUE,  WHEEL  IS 
LOCATED  IN  TABLE  NUMBER  I 


IF  TEST  IS  FALSE.  WHEEL  IS  NOT 
WITHIN  ANY  TABLE.  .:  SET  TEH 
RAIN  VARIABLES  TO  DEFAULT 
OF  LEVEL  GROUND  AT  0.0 
ELEVATION  AND  RETURN 


IF  TEST  IS  TRUE.  WHEEL  IS 
LOCATED  IN  THE  VARIABLE 
INCREMENT  TABLE 


SET  FRICTION  COEFFICIENT  FOR 
WHEEL  I    AND  TABLE  PARAMETERS 
FOR  TESTING 


TEST  IS  TRUE  IF  TABLE  IS 
VARIABLE  INCREMENT 


/-v 


PGl   =  ZGPIIX.IY.ITI 
=G2  =  ZGPIIX+IIY.  IT) 
>G3  '  ZGP(IX,IY*1.IT1 
=G4  =  ZGP'.IX'l.lY+l.lT) 


1tXXMXXlMZPG2ZPGll/XINCBT 
3»XXMXX1MZPG4  ZPG3I/XINCRT 


OBTAIN  ELEVATIONS  AT  THE  GRID 
CORNER  POINTS 


INTERPOLATE  ALONG  X' 


CALCULATE  TERRAIN  SLOPE 
ALONG  X'  BOUNDS  OF  GRID 
SEGMENT 


INTERPOLATE  TO  OBTAIN 
TERRAIN  PITCH  SLOPE  AT 
WHEEL  POSITION 


CALCULATE  SOME  COORDINATES 
OF  THE  CORNER   POINTS  OF  THE 
GRID  SEGMENT  OF  THE  TABLE 
THAT   CONTAINS  THE  WHEEL  FOR 
CONSTANT  INCREMENT  TABLE 


CALCULATE  TERRAIN 
CAMBER  EULER  ANGLE 
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24.       SUBROUTINE  MATRIX 

a.  Purpose: 

1.  Evaluate  the  elements  c*J  the  inertial  matrix  for  the  ten 
coupled  degrees  o£  freedom  (DMATX(I,J),  I  =  1,10, 

J  =  1,10)  for  the  independent  front/solid  axle  rear 
suspension  option 

2,  Evaluate  the  forcing  column  matrix  for  the  ten  coupled 
degrees  of  freedom  (DMATX(I,11) ,  I  =  1,10)  for  the 
independent  front/solid  rear  axle  option 

b.  Common  Blocks  Required: 
INPT,  INTG,  DIMV,  COMP,  ADTNL 

c.  Subroutines  Required: 
CLEAR 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 
DMATX,  GCTCP,  GCTSP 

f.  Size: 

g.  Computational  Procedure: 

1.  Call  CLEAR  to  zero  the  DMATX.   This  is  necessary  since 
the  subroutine  which  decouples  the  equations  of  motion 
also  destroys  the  DMATX  in  the  process  and  may  leave 
meaningless  values  in  array  elements  which  should  be  zero. 

2.  Calculate  the  elements  of  DMATX. 
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25.       SUBROUTINE  MTRXIR 

a.  Purpose: 

1.  Evaluate  the  elements  of  the  inertial  matrix  for  the  ten 
coupled  degrees  of  freedom  (DMATX(I,J),  I  =  1,10, 

J  =  1,10)  for  the  independent  rear  suspension  option. 

2.  Evaluate  the  forcing  column  matrix  for  the  ten  coupled 
degrees  of  freedom  (DMATX(I,11) ,  1=1,  10)  for  the 
independent  rear  suspension  option. 

b.  Common  Blocks  Required: 

INPT,  INTG,  DIMV,  COM?,  ADTNL,  SUSCMP 

c.  Subroutines  Required: 
CLEAR 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 
DMATX,  GCTCP,  GCTSP 

f.  Size: 

4C0)^^  =  1216)^Q  bytes 

g.  Computational  Procedure: 

1.  Call  CLEAR  to  zero  the  DMATX.   This  is  necessary  since 
the  subroutine  which  decouples  the  equations  of  motion 
also  destroys  the  DMATX  in  the  process  and  may  leave 
meaningless  values  in  array  elements  which  should  be 
zero 

2.  Calculate  the  elements  of  DMATX 
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26.       SUBROUTINE  MTRXSF 

a.  Purpose: 

1.  Evaluate  the  elements  of  the  inertial  matrix  for  the  ten 
coupled  degrees  of  freedom  (DMATX(I,J),  I  =  1,10, 

J  =  1,10)  for  the  solid  front  axle  option 

2.  Evaluate  the  forcing  column  matrix  for  the  ten  coupled 
degrees  of  freedom  (DMATX(I,11) ,  I  =  1,10)  for  the  solid 
front  axle  option 

b.  Common  Blocks  Required: 

INPT,  INTG,  DIMV,  COMP,  ADTNL,  SUSCMP,  INSUS 

c.  Subroutines  Required: 
CLEAR 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 
DMATX,  GCTCP,  GCTSP 

f.  Size: 

962)^^  =  2402) ^Q  bytes 

g.  Computational  Procedure: 

1.  Call  CLEAR  to  zero  the  DMATX.   This  is  necessary  since 
the  subroutine  which  decouples  the  equations  of  motion 
also  destroys  the  DMATX  in  the  process  and  may  leave 
meaningless  values  in  array  elements  which  should  be  zero 

2.  Calculate  the  elements  of  DMATX 
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27.       SUBROUTINE  NLDFL 

a.  Purpose: 

1.  Calculate  barrier  force  due  to  deflection  and  velocity 
of  deflection 

2.  Calculate  energy  absorbed  in  barrier  deformation 

b.  Common  Blocks  Required: 
INTO,  INPT2,  BARIER 

c.  Subroutines  Required: 
POLY 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 

FB,  VL,  SF,  XF,  BEE,  CONS,  DELX,  EPSL,  NCYC, 
VMAX,  DELBB,  ENRGY 

f.  Size: 

7FC)^^  =  2044) ^Q  bytes 

g.  Computational  Procedure: 
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19  f 


FB=0.0 


r      RETURN  J 


ENTRY  NLDFRC 


16 


WL=DELBB=EPSL 


XX=WL 
YY=VMAX(1 ) 
FB=SIGR(1) 


17         1 


DO  18  1=2,6 


J=l+5 
FB=FB+SIGR(I))9<X+SIGR(J)*YY 
XX=XX*WL 
YY=YY*VMAX(1) 


< 


;ri 


CONTINUE 


100 


FB=CDO+CD1*  WL+CD2*WL**2 


20 


FB=AMAX1(FB,0.0) 


C     RETURN      J 
f 


CALCULATE  LOADING  FORCE 


CALCULATE  UNLOADING  FORCE 
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28.       SUBROUTINE  OUTPUT (IND) 

a.  Purpose: 

1.   Print  output  page  titles  and  output  data 

b.  Common  Blocks  Required: 

HEAD,  INPT,  INTG,  DIMV,  COMP,  COMPN,  ADTNL,  INSUS, 
SUSCMP,  BARSTR 

c.  Subroutines  Required: 
None 

d.  Arguments: 

If  IND  =  0,  an  output  line  counter  is  initialized  to  zero.  -^ 

e.  Common  Variables  Calculated:  - 
None 

f.  Size: 

3EBC),^  =  16060),^  bytes   ^ 
io  iU 

g.  Computational  Procedure: 

Each  time  a  call  to  this  subroutine  is  executed,  an  output 
line  of  data  is  written  to  FORTRAN  devices  11  through,  at 
most,  29.   The  number  of  devices  actually  written  to  is 
dependent  on  the  indicators  contained  in  the  NPAGE  array. 
These  indicators  are  set  either  by  the  user  on  input  card 
104  or  by  the  program  depending  on  the  options  in  use. 

On  either  the  first  call  to  the  subroutine  with  IND  ^  0  or 
after  50  lines  of  data  have  been  written,  page  headings 
are  written  for  each  page  of  data. 

An  entry  point,  THPLOT,  is  provided  to  write  static  and 
dynamic  data  to  FORTRAN  device  3  for  the  purpose  of 
subsequent  plotting  of  time  history  data. 
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29.  SUBROUTINE  PINT  1(IN,  MODE,  N.  X.  H,  Y,  YP,  A) 

a.  Purpose: 

1.  To  integrate  a  system  of  N  ordinary  differential  equations 

of  the  first  order 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 
DAUX 

d.  Arguments: 

IN  is  the  control  word  (=  1  or  2)  for  initialization  or  to 
integrate  one  step-size; 

IN  =  1  -  to  set  up  the  routine  for  integration; 
IN  =  2  -  to  integrate  one  step-size; 

MODE      is  the  option  word  (=  0,    1  or  2)  for  using  one  of  the 
three  modes  of  integration.     When  MODE  equals 

0  -  the  Adams-Moulton  variable  step-size  is  used; 

1  -  the  Runge-Kutta  fixed  step-size  is  used; 

2  -  the  Adams-Moulton  fixed  step-size  is  used; 

N  is  the  number  of  first  order  differential  equations; 

X  is  the  independent  or  source  variable; 

H  is  the  step-size  or  increment  in  the  source  variable; 

Y  is  the  array  of  dependent  or  target  variables  updated 

by  PINTl; 

YP  is  the  array  of  first  derivatives  of  the  target  variables 

Y(N)  computed  in  the  subroutine  DAUX; 

A  isan  array  of  6  cells  containing  the  parameters 

("£,  /1/1 ,  <=^ ,  ^w^,  ^mi^,    ^^       needed  for  the  variable 
mode  only; 

A(l)  (  -  E      )  is  an  upper  bound  on  the  truncation  error  (the 

number  of  significant  digits  which  the  user  desired  to 
preserve  loccilly)  for  the  variable  Adams-Moulton 
method,    normally  10-8      ^     A(l)      ^     10-3; 

A(2)  (  =-y(/f      )  is  a  positive  number  from  which  the  lower 

bound  on  the  truncation  error  is  computed.     In  particular, 
when  A(2)  is  zero  the  routine  used  the  normal  value  of 
100  and  in  all  other  cases  the  lower  bound  is  computed 
as  the  quotient  of  A(l)  by  A(2); 

A(3)  (  =  c>c     )  is  a  positive  number  used  to  prevent  unnecessary 

reduction  in  the  variable  step-size  when  the  dependent 
variables  are  sufficiently  small.     When  A(3)  is  zero  the 
routine  uses  the  normal  value  of  one; 

A(4)  (  =  ^/*i«)i/)  is  a  positive  upper  bound  for  the  magnitude  of 

the  variable  step-size.     If  A(4)  is  zero  the  routine 
assumes  there  is  no  upper  bound; 
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A-(5)  (  -yimm  )  ^^  positive  lower  bound  for  the  magnitude  of 

the  variable  step-size.     The  routine  assumes  there  is 

no  lower  bound  when  A(5)  is  zero; 
A(6)  (  -  y^      )  is  a  positive  number  between  zero  and  one 

used  to  increase  or  decrease  the  variable  step-size. 

When  A(6)  is  zero  the  routine  assumes  the  value  of 

one-half. 

IN,    N  and  MODE  are  integers  while  X,    H,    Y,    YP  and  A  are  all 
single  precision  floating  point  numbers. 

The  arguments  X,    H,    Y,    YP,    of  the  PINTl  calling  sequence 
must  be  in  a  COMMON  type  statement. 

Before  executing  the  first  PINTl  call,    the  user  must  initialize 
X,    H  and  each  of  the  Y(N)  variables.     The  first  call  must  use 
control  word  (IN  =  1)  to  set  up  the  routine  for  integration. 
The  control  word  (IN  =  2)  may  be  used  any  number  of  times  after 
the  first  to  integrated  one  step-size,    provided  X,    H  and  Y  have 
not  been  redefined  between  integration  steps. 


e.  Common  Variables  Calculated: 
None 

f.  Size: 

1B2C)^,     =    6956)       bytes 

g.  Computational  Procedure: 

In  this  routine  the  user  is  allowed  an  option  of  using  oither  the 
Runge-Kutta  classical  fourth-order  method  as  modified  by 
E.    K.    Blum  or  the  Adams-Moulton  predictor-corrector  method 
using  the  Runge-Kutta  method  for  starting  the  process. 

Let  the  system  of  equations  to  be  solved  be  given  in  the  form 

y.      ^    fu(^>yi,ljZ,-    ■    .    ^n/)  (1.1) 

Let     ^^^t      be  the  value  of     ^^       at     ?^    =    l^n.      and    ftV.     the 
derivative  of     yiY\,   at      :t     =     x^,    .     If     ^     is  the  increment 
(step-size)  of  the  independent  variable       5i      ,    the  classiccil 
Runge-Kutta  fourth-order  method  uses  the  formulas 
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^£3-    kfoCxrt^  1/^-^,    ^irt^^l2^vx)  (1.2) 

where      /^      =  1,   2,    .  .  .     /y 

The  E.    K.    Blum  Modification; 

The  following  recursive  form  of  the  E.    K«    Blum's  exact  modification  of  the 
Runge-Kutta  is  used  in  this  routine: 


2  9  '-    Z  2  ^  P2 
%-"    f.^Pa 


at    X-'Xc 


^ 


(we  omit  the  subscript  from  each  of  the  vectors      2  ;  .      ^y  and 

for  reasons  of  economy) 


(2.1) 


a-i    X^X(^-i-fi/z       (2.2) 


ai    ]c  =  XotL/^       (2.3) 


i    X-=Xo^^       (2.4) 


(2.5) 
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The  main  advantage  of  the  modified  Runge-Kutta  formulas  is  that  they  reduce 
considerably  the  rounding  error  arising  from  the  unavoidable  use  of  digital 
numbers  and  pseudo-operations. 

Adams-Moulton  Predictor-Corrector  Method: 

The  routine  uses  the  following  formulas  for  the  system  (1.  1): 

[Pi 

^o>nH=  yi^L  -'  ^iA'^l'l^^'^n,nfi^^SfuA-Sh^-,^U,n-z)  (3.2) 

The  starting  values  needed  in  the  predictor  formula  (3.  1)  are  obtained  using 
the  Runge-Kutta-Blum  (RKB)  method.     In  the  evaluation  of      )ji     at 

X      =    ?^n,+  /       the  predictor  and  corrector  formulas  are  applied  only  once  so 
that  only  two  derivative  evaluations  (    f^    ^^,  and     iin     )  are  needed 

for  each  Adams-Moulton  (variable  or  fixed  step-size)  integration  step. 

The  Variable  Adams-Moulton: 


The  step-size      Yl      to  be  used  in  the  variable  mode  is  determined  mainly  by: 

^fpj         re-]    I 
■    ^nt/  -  MAX         j^^^^^/  '}ii^n.,\  (3^3) 


L 


h=     MA/    [  \%L\;  ^]       ,     t--7^2,  ... 


where 


t^n.+i       is  the  local  truncation  error  estimate  in  the  actual  evaluation  of 
■Tjn-n        ;     '^       (>  0)  is  a  constant  used  to  prevent  unnecessary  reductions 
in     Z;^/     whenever    I  y  c,  ^i-i  /        is  small  (normally  the  routine  will  set    ^     =  1, 
unless  otherwise  specified  by  the  user). 

Let 

B  be  the  upper  bound  on  the  truncation  error  estimate,    specified  by  the 

user,    that  is  the  number  of  significant  digits  which  the  user  desires 
to  preserve  locally  throughout  the  integration.     Normally      B     should 
'be  in  the  range  10-8-^        ^     ^    10-3  and  in  double  precision      £ 
should  be  in  the  range  10-16    ^    g    -^  /^'^  ; 

/1/j  (>  0)  be  a  constant,    specified  by  the  user,   from  which  a  lower  bound 

^=  M'^E        is  obtained  (normally       M     ranges  from  50  to  150  and 
in  double  precision  from  1000  to  1500); 
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h  be  a  constant  between  0  to  1  used  to  increase  or  decrease  the  step- 

size.     The  routine  will  take     p     -  1/2  unless      ^     is  otherwise 
specified  by  the  user. 

The  step-size      ^    will  be  then  increased  or  decreased  according  to  the 
following  inequalities: 

If 


(4.1) 

(4.2) 
(4.3) 


^Att    >£ 


-1  — 


the  step-size  is  reduced  to    AA.        , 
where  0  <     ^     <  1; 

the  step-size  remains  unchanged; 

for  3  successive  integration  steps 
the  step-size  is  increased  to    A/p 


Increasing  and  Decreasing  the  Step-Size; 

The  starting  values,    the  first  three  successive  points  after  the  initial  point 

y^       ,   for  the  Adams-Moulton  formulas  are  always  obtained  using  the  RKB 
method  whenever  the  interval  size  is  changed,   just  as  at  the  beginning  of  an 
integration. 

In  the  variable  mode  if  the  starting  values,    the  first  three  successive  points, 
have  been  obtained  using  the  RKB  method  then  the  next  point  is  computed 
using  the  Adams-Moulton  predictor-corrector  formulas  (3.  1)  and  (3.2), 
Whenever  the  truncation  error  at  this  point  Ccills  for  a  decrease  in      A,      the 
routine  returns  to  the  initial  point      />o       and  computes  new  starting  values 
with  the  decreased  value  of      -A    .     However,   if  the  step-size  is  to  be  decreased 
at  a  point     jO^     ,    where  the  preceeding  point  p^'-i        was  computed  in  the 
variable  mode  and  the  inequality  (4.2)  held  at  /'(J-/        ,    then  a  new  start  is 
initiated  at      y>^__,       with  decreased  value  of    /-A./    . 

If  for  three  successive  variable  integration  steps  y^^.^      ,  y^^       and      j^i-t, 
inequality  (4,3)  holds,    then  a  new  start  is  initiated  at     /)^\f,     with  the  increased 
val'ue  of     /4t/    c     After  an  interval  is  increased,    the  routine  prevents  increasing 
again  until  6  more  points  have  been  complete.     However,    the  routine  may 
decrease  the  interval  as  often  as  necessary.     The  truncation  error  test  based 
on  (3.  3)  will  guarantee  that  the  local  error^oes  not  exceed      H      ,    however 
the  cumulative  error  will  usually  exceed      £     .     Hence     £      should  be  chosen 
sufficiently  small  to  allow  for  an  accumulation  of  truncation  error. 

The  user  must  always  provide  a  starting  value  for     /l       and  he  may,    if 
desired,    specify  a  maximum  value  of  /A/  ,   h^max     beyond  which  the  routine 
will  not  increase     A.      and  a  minimum  value  of  /A/,  -h^in    ,    below  which  it 
will  not  decrease      {i     «     Ji  no  value  is  specified  for     Amax      ^^^    '^w,)^         the 
routine  will  set  the  values  at  103  and  10-17,    respectively. 

Negative  values  of     -fi     may  be  used  for  backward  integration. 
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Control  and  DAUX; 

There  are  two  entries  to  this  routine.     The  first  (control  word  =  1)  must  be 
used  once  at  the  beginning  to  set  up  the  routine  for  integration  of  a  given 
set  of  N  differential  equations.     The  second  entry  (control  word  =  2)  may  be 
used  any  number  of  times  after  the  first  to  integrate  all     ij^      from     X      to 

Whenever  the  control  word  is   1  the  routine  uses  the  auxiliary  subroutine 
DAUX  to  evaluate  the  derivatives  at  the  initial  point       x    =    x-^      and  returns 
with  all      ^t     unchanged..     The  routine  also  checks  and  sets  up  the  six 
parameter  words      e     >     M       ,     (X      >    ^mixy.     ,     hn,]^  and    ^      needed  in  the 
variable  mode  of  operation.     Before  executing  the  initialization  entry,    the 
user  must  have  already  set  up  the  appropriate  values  for       X    ,     A      and     24 

^      =1,2,...      /V     .     Ordinarily,    after  an  execution  of  the  second  entry 
all      ^i       assume  new  values,     X      will  have  been  advanced  to  the  value 
%t-^      and      -h      will  be  unchanged,    unless  in  the  variable  mode.     On  exit 
the  values       -w^     are  always  these  which  correspond  to  the  point  id- K       and 

!/.     • 

whenever  an  integration  step  involves  RKB  integration,   four  derivative 
evaluations  are  needed,    mainly 

where  the      Klj      are  given  by  (1.2)  and  modified  by  (2,  1)  -  (2,5).     In  the 
fixed     ix,     predictor-corrector  mode,    the  first  three  integration  entries 
involve  RKB  integration  and  subsequent  ones  involve  AM  integration.     Each 
AM  integration  step  requires  two  derivative  evaluations. 

rL,nri     =     tc  (^n-^  ^  ,    '^i,^ri  ) 

^'c,nti    '    fi    ^^n-^ -^  J  jc/nr/J  (5.2) 

A  particular  integration  set  up,    in  the  variable  mode,    may  involve  either 
AM  or  RKB  or  both. 

References : 

(1)  SHARE  Write-Up  No.    0602  (D2RWINT) 

(2)  SHARE  Write-Up  No.    0450  (D2RDE2F) 

(3)  Blum,    K.    E.  ,    A  Modification  of  the  Runge-Kutta  Fourth 
Order  Method,    Mathematics  of  Computation,   April   1962, 
pp.    176-187 
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HV0SM-RD2 
30.       SUBROUTINE  PLOTTPCIPLT) 

a.  Purpose: 

1.   Write  output  to  FORTRAN  device  1  for  post-processing 
graphic  displays 

b.  Common  Blocks  Required: 

INPT,  INTG,  DIMV,  COMP,  COMPN,  TIRIN 

c.  Subroutines  Required: 
None 

d.  Arguments: 

IPLT  controls  the  type  of  record  written;  static,  dynamic  or 
end  of  data,  for  values  of  IPLT  of  1,  2  and  3,  respectively 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

324)^^  =  804) ^Q  bytes 

g.  Computational  Procedure: 

1.  If  IPLT  =  1  a  static  header  record  is  written  to  device  ] 
consisting  of  the  following  variables:   HED,  DADE,  A, 

B,  TS,  ZR,  RHO,  ZF,  RW,  TF,  TR 

2.  If  IPLT  =  2  a  dynamic  record  is  written  consisting  of: 
T,  XCP,  YCP,  ZCP,  PHIT,  THETT,  PSIT,  DELI,  DEL2,  DEL3, 
PHIR,  PSIl,  PHIl,  PHI2,  (XGPP(I),  YGPP(I),  ZGPP(I), 

I  =  1,4),  (ICONTW(I),  I  =  1,4).   Note:   ICONTW  is  an 
indicator.   If  1,  wheel  I  is  rolling;  if  -1,  wheel  I  is 
skidding;  if  0,  wheel  I  is  off  the  ground. 

3.  If  IPLT  =  3,  an  end  of  data  record  consisting  of  30 
works  of  -9999.0  is  written. 
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HV0SM-RD2 
31.       SUBROUTINE  POLY 

a.  Purpose: 

1.   To  find  root  of  a  fifth  degree  polynomial 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 
None 

d.  Arguments: 

CO  -  zeroth  order  polynomial  coefficient 

C  -  array  containing  polynomial  coefficients 

X  -  initial  approximation 

Y  -  polynomial  root 

CI  -  polynomial  value 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

234) j^  =  564) ^Q  bytes 

g.  Computational  Procedure: 

The  root  of  the  polynomial  is  found  by  the  Newton-Raphson 
Method 
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32. 


HV0SM-RD2 
SUBROUTINE  RESFRC 

a.  Purpose: 

1,  Calculate  frictional  force  between  the  vehicle  and 
barrier 

2.  Calculate  the  force  and  moment  components  acting  on  the 
vehicle 

b.  Common  Blocks  Required: 

INTO,  DIMV,  COMP,  INPT2,  BARIER,  BARSTR,  HARDPT 

c.  Subroutines  Required: 
None 

d.  Arguments : 
None 

e.  Common  Variables  Calculated: 

SXR,  SYR,  SZR,  UPT,  URP,  VPT,  VRP,  WPT,  WRP,  SFXS, 
SFYS,  SFZS,  SNPS,  SNTS,  VTAN,  FRICF,  FRICT,  SNPSS 

f.  Size: 

4F4)^^  =  1268) ^Q  bytes 

g.  Computational  Procedure: 

1.  Compute  the  location  of  the  point  of  application  of  the 
vehicle  crush  force  (SXR,  SYR,  SZR)  and  store  in  the 
first  element  of  the  X,  Y  and  Z  arrays 

2.  Store  the  locations  of  the  point  of  application  of  the 
vehicle  hard  point  forces  in  the  second,  third  and  fourth 
elements  of  those  arrays 

3.  Compute  the  velocity  components  of  those  four  points  in 
the  space  axes  (UPT(I),  VPT(l),  WPT(I),  I  =  1,4) 

4.  Compute  the  friction  force  components  for  each  point, 
the  total  force  vector  components  in  the  vehicle  axis 
system  (SFXS,  SFYS,  SFZS)  and  the  moments  acting  on  the 
vehicle  sprung  mass  (SNPS,  SNTS,  SNPSS) 
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HV0SM-RD2 
SUBROUTINE  RUFFRC(I , ZGM) 

a.  Purpose: 

1.   To  determine  an  equivalent  radial  tire  force  and  ground 
contact  point  from  the  distributed  tire  spring  model 
when  the  road  roughness  option  is  being  used 

b.  Common  Blocks  Required: 

INPTl,  DIMV,  COM?,  COMPN,  TIRIN,  RUFNES 

c.  Subroutines  Required: 
INTRPL 

d.  Arguments: 

I   =  wheel  number  for  which  calculations  are  made 
ZGM  =  single  dimensional  array  containing  the  road 
roughness  data 

e.  Common  Variables  Calculated: 

FR,  HI,  CAR,  CBR,  CGR,  CPG,  CTG,  SPG,  STG,  BMTX, 
PHGI,  SFRX,  SFRY,  SFRZ,  XGPP,  YGPP,  ZGPP,  AJMTX 

f.  Sizei 

DC4)^^  =  3524) ^Q  bytes 

g.  Computational  Procedure: 
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LENT  RADIAL  FORCE 


I 1     FJPPINI  = 


CALCULATE  THE  FIRST  ANO  LAST  POINT 
NUMBERS  TO  BE  SCANNED  f  OB 
CONTACT  WITH  THE  RADIAL  SPRINGS 


BEGIN  RADIAL  SPRING  LOOP 


THTH-I  «    *  *'i\ 


iUIVALENT  GROUND 
BnT ACT  POINT 


!K«1.3 


CALCULATE  TRANSFORMATION 
MATRIX  FROM  RADIAL  SPRING  | 
TO  SPACE 


;(K,Li=(i 


CALCULATE ! 
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HV0SM-RD2 
34.       SUBROUTINE  RUFRED (NEND , DELG , DGMAX , ZRTAB) 

a.  Purpose: 

1 .   Read  road  roughness  data  from  FORTRAN  device  4 

b.  Common  Blocks  Required: 
None 

c.  Subroutine  Required: 
None 

d.  Arguments: 

NEND  =  the  number  of  road  roughness  points  to  be 

read  from  FORTRAN  unit  4 
DELG  =  the  distance  increment  between  points 
DGMAX  =  (NEND-1)  *  DELG 
ZRTAB  =  a  single  dimension  array  into  which  the  road 

roughness  data  is  read 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

2B8),,  =  696), _  bytes 

g.  Computational  Procedure: 

The  road  roughness  data  is  read  via  an  unformatted 
READ  statement  into  the  ZRTAB  array.   The  maximum 
number  of  points  allowed  is  2200. 
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HV0SM-RD2 
35.       SUBROUTINE  SIMSOL 

a.  Purpose: 

1.   This  subroutine  solves  a  set  of  real  simultaneous  linear 
algebraic  equations  AX  =  B,  with  input,  output  and  internal 
computation  all  in  single  precision. 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 
None 

d.  Arguments: 

A   -  is  a  2-dimensional  (NDl  x  ND2)  matrix  of  coefficients 
N   -  is  the  number  of  equations  and  unknowns 
NDl  -  is  the  first  dimension  of  A  in  the  calling  program 
(NDl.  GE.  N  and  ND2 .  GE.  N+1) 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

5E8)^^  =  ^^^2^10  ^^^^^ 

g.  Computational  Procedure: 

The  routine  will  find  the  solution  X  of  AX  =  B  where  A  is  a 
N  by  N  matrix  and  B(I)  is  stored  in  A(I,  N+1). 
The  solution  X(I)  is  returned  in  A(I,  N+1). 

Note:   The  Matrix  A  is  destroyed  by  the  subroutine. 

Example:   REAL  A (20, 25) 

CALL  SIMSOL  (A,  10,  20) 

The  solution  is  obtained  by  elimination  using  the  largest 
pivotal  divisor  of  each  column.   Each  stage  of  elimination 
consists  of  interchanging  rows  when  necessary  to  avoid  division 
by  zero  or  small  numbers. 

The  forward  solution  to  obtain  variable  N  is  done  in  N  stages. 
The  back  solution  for  the  other  variables  is  calculated  by 
successive  substitutions,   The  final  solution  values  are 
developed  in  column  N+1  of  matrix  A,  with  variable  1  and  A 
(1,  N+1),  variable  2  in  A(2,  N+1),  ..,,  and  variable  N  in  A 
(N,  N+1). 
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HV0SM-RD2 
36.       SUBROUTINE  SFORCE 

a.  Purpose: 

1.   Calculate  sprung  mass  impact  force  due  to  vehicle 
interference  with  barrier 

b.  Common  Blocks  Required: 

INTG,  DIMV,  COMP,  COMPN,  INPT2,  BARIER,  BARSTR,  HARDPT 

c.  Subroutines  Required: 
SIMSOL,  AREA,  NLDFL,  RESFRC 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 

FB,  FN,  RB,  AA2,  BB2,  CAB,  CBB,  CC2,  CGB, 
IPT,  RBI,  RR2,  SXR,  SYR,  SZR,  UNP,  VNP,  WNP,  XBB, 
XBT,  XNN,  XRI,  YBT,  YNN,  YRI,  ZBB,  ZBT,  ZNN,  ZRI . 
CABT,  CABl,  CBBT,  CBBl,  CGBT,  CGBl,  IPLN,  IDPT, 
NSEG,  RR2P,  SDEN,  SFXS,  SFYS,  SFZS,  SNPS,  SNTS, 
VDEF,  VMAX,  VTAN,  XMTX,  XSTI ,  YBPT,  YSTI ,  ZSTI, 
AINTI,  DELBB,  FNSTI ,  FRICT,  ININD,  IBHIT,  NUNLD, 
SNPSS,  XCPBP,  XCPNP,  XCPTP,  XSTIP,  YCPBP,  YCPMP, 
YCPNP,  YCPTP,  YSTIP,  ZCPBP,  ZCPNP,  ZCPTP,  ZSTIP, 
INDXPT,  NLDCTR 

f.  Size: 

1E90)    =  7824)   bytes 

g.  Computational  Procedure: 
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AflCA  OBTAIN  THE  INTERSECTION  AREA 
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JBROUTINE  SUSFRC(DISP,VEL) 

Purpose: 

1.   This  subroutine  calculates  the  suspension  forces  acting 
between  the  sprung  and  unsprung  masses  at  the  four 
vehicle  corners 

Common  Blocks  Required: 

INPT,  1NPT3,  INTG,  DIMV,  COMP,  ADTNL,  APTABL, 
INSUS,  SUSCMP 

Subroutines  Required: 

INTRPL 

Arguments: 

DISP  -  a  four  element  array  containing  the 

suspension  displacements 
VEL  -  a  four  element  array  containing  the 

suspension  velocities 

Common  Variables  Calculated: 

SI,  FJF,  Fll,  F2I,  SFZl,  APITCH 

Size: 

7BC),,  =  1980), _  bytes 
lb         lU 

Computational  Procedure: 
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38.       SUBROUTINE  TEREAD 

a.  Purpose: 
1.  This  subroutine  reads  terrain  table  input  cards 

b.  Common  Blocks  Required: 
INPT 

c.  Subroutines  Required: 
None 

d.  Arguments: 

I  -  Terrain  table  number 

NNBX  -  Number  of  X'  boundaries 

NNBY  -  Number  of  Y'  boundaries 

NNX  -  Number  of  X'  terrain  entries 

NNY  -  Number  of  Y'  terrain  entries 

NZ5T  -  Indicator  for  variable  increment  table 

NERR  -  Error  indicator 

e.  Common  Variables  Calculated: 
ZGP,  XBDRY,  YBDRY,  PSBDRO,  XXZGP5,  YYZGP5 

f.  Size: 
626),^  =  1574),^  bytes 
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ig  39,       SUBROUTINE  TIRFRC(J) 

a.    Purpose: 


1.  Calculate  tire  circumferei 

b.  Common  Blocks  Required: 
DIMV,  COMP,  COMPN,  ADTNL,  TIR! 

c.  Subroutines  Required: 
None 

d.  Arguments: 

The  argument,  J,  indicates  th« 
calculations  are  made 

e.  Common  Variables  Calculated: 

FC,  FS,  FXU,  FYU,  FZU,  BETP,  I 
FRXU,  FRYU,  FRZU,  FSXU,  FSYU, 
SFZU,  BETBR,  CPHIC,  PHICI,  SPF 

f.  Size: 

922),^  =  2338), _  bytes 
Id        lU 

g.  Computational  Procedure: 
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ftLSE  IF 
SPINNING 


3ICATESSIDE 
lATION 


:nifsiii.  betbriii 


SIDE  FORCE  CALCULATIONS  FOR  TIRE  . 
FOR  A  PAIR  OF  TIRES  IF  ONE  TIRE  OF  T 
PAIR  IS  SPINNING 


IF  BOTH  LATERAL  AND  LONGITUDINAL  VELOCITY 
COMPONENTS  OF  THE  TIRE  ARE  SMALL.  DO  NO 
COMPUTE  A  SIDE  FORCE. 


CALCULATE   MAXIMUM 
AVAILABLE   SIDE    FORCE 


TEST  IS  TRUE  IF  THE  TIRE  IS  HEAVILY  LOADED 


CALCULATE  NON  DIMENSIONAL 
SLIP  ANGLE  VARIABLE  DUE  TO 
CAMBER  IBETPl  AND  NON- 
DIMENSIONAL  SLIP  ANCLE  IBETBRI 


CALCULATE  SIDE  FORCE 


SINCE  FRCP  REQUIRE  FS    REPEAT 
ONCE  FROM  START  2  USING 
UPDATED  FS 
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39.       SUBROUTINE  TIRFRC(J) 

a.  Purpose: 

1.  Calculate  tire  circumferential  and  side  forces 

b.  Common  Blocks  Required: 

DIMV,  COMP,  COMPN,  ADTNL,  TIRIN 

c.  Subroutines  Required: 
None 

d.  Arguments: 

The  argument,  J,  indicates  the  wheel  number  for  which 
calculations  are  made 

e.  Common  Variables  Calculated: 

FC,  FS,  FXU,  FYU,  FZU,  BETP,  FCXU,  FCYU,  FCZU,  FRCP, 
FRXU,  FRYU,  FRZU,  FSXU,  FSYU,  FSZU,  SFXU,  SFYU, 
SFZU,  BETBR,  CPHIC,  PHICl ,  SPHIC 

f.  Size: 

922)jg  =  2338)jg  bytes 

g.  Computational  Procedure: 
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ALSE  IF 
SPINNING 


DICATESSIOE 
lATION 


NIFSin,  BETBRIU 


SIDE  FORCE  CALCULATIONS  FOR  TIRE  J  OR 
FOR  A  PAIR  OF  TIRES  IF  ONE  TIRE  OF  THE 
PAIR  IS  SPINNING. 


IF  BOTH  LATERAL  AND  LONGITUDINAL  VELOCITY 
COMPONENTS  OF  THE  TIRE  ARE  SMALL,  DO  NO 
COMPUTE  A  SIDE  FORCE 


CALCULATE   MAXIMUM 
AVAILABLE   SIDE    FORCE 


TEST  IS  TRUE  IF  THE  TIRE  IS  HEAVILY  LOADED 


CALCULATE  NGN  DIMENSIONAL 
SLIP  ANGLE  VARIABLE  DUE  TO 
CAMBER  IBETPI  AND  NON 
DIMENSIONAL  SLIP  ANGLE  IBETBRI 


CALCULATE  SIDE  FORCE 


SINCE  FRCP  REQUIRE  FS,  REPEAT 
ONCE  FROM  START  2  USING 
UPDATED  FS 
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%  40.       SUBROUTINE  TMCNST 


-){ 


a.  Purpose: 

1 .  Evaluate  time  dependent  va 
other  subroutines 

2.  Test  for  and  index  coordin 

b.  Common  Blocks  Required: 
INPT,  INTG,  COMP,  EINDEX,  ADTN 

c.  Subroutines  Required: 
None 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 

PQ,  PR,  P2,  QR,  R2,  UQ,  UR,  VF 
D21,  D43,  RPR,  TPF,  TPR,  GCTH, 
PHRP,  PSIT,  RFPF,  TG61,  TIZ2, 
ZRD3,  ZRD4,  CNMTX,  COSPH,  COSP 
CPSTP,  DD1M2,  DD1P2,  DD3M4,  DD 
D3MD4,  D3PD4,  I STOP,  PHIF2,  PH 
RPHRD,  SECTP,  SINPH,  SINPS,  SI 
TANTP,  THETT,  XINDL,  ZFD12,  ZF 
COSPHN,  COSPSN,  COSTHN,  CTHETP 
SINPHN,  SINPSN.  SINTHN,  STHETP 

f.  Size: 

D36),,  =  3382), _  bytes 
io         lU 

g.  Computational  Procedure: 

1,  Compute  time  dependent  var| 

2.  Test  for  coordinate  system 
shown  below 
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40.       SUBROUTINE  TMCNST 

a.  Purpose: 

1.  Evaluate  time  dependent  variables  that  are  required  in 
other  subroutines 

2.  Test  for  and  index  coordinate  system  if  necessary 

b.  Common  Blocks  Required: 

INPT,  INTG,  COMP,  EINDEX,  ADTNL,  TIRIN 

c.  Subroutines  Required: 
None 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 

PQ,  PR,  P2,  QR,  R2,  UQ,  UR,  VP,  VR,  WP,  WQ, 
D21,  D43,  RPR,  TPF,  TPR,  GCTH,  GSTH,  PHFP,  PHIT, 
PIIRP,  PSIT,  RFPF,  TG61,  TIZ2,  WFMF ,  ZFDl ,  ZFD2, 
ZRD3,  ZRD4,  CNMTX,  COSPH,  COSPS,  COSTH,  CPHTP, 
CPSTP,  DD1M2,  DD1P2,  DD3M4,  DD3P4,  D1MD2,  D1PD2, 
D3MD4,  D3PD4,  ISTOP,  PI11F2,  PI1IR2,  RPF2M,.  RPHFD, 
RPHUn,  SECTP,  SINPH,  SINPS,  SINTH,  SPHTP,  SPSTP, 
TANTP,  THETT,  XINDL,  ZFD12,  ZFD3R,  ZRD3R,  ZRD34 , 
COSPIIN,  COSPSN,  COSTHN,  CTHETP,  PHIFD2,  PHIRD2, 
SINPIIN,  SINPSN,  SINTHN,  STHETP,  ZFDIRF 

f.  Size: 


Computational  Procedure: 

1.  Compute  time  dependent  variables 

2.  Test  for  coordinate  system  indexing;  if  required  as 
shown  kelow 
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41.       SUBROUTINE  TREAD 

a.  Purpose: 

1.   This  subroutine  reads  a  one-dimensional  card 
input  table 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 
None 

d.  Arguments: 

NCARD  -  Input  card  number 

NCRDS  -  Number  of  cards  to  be  read 

NT  -  Number  of  elements  to  be  read  into  the  table 

NDIM  -  Maximum  table  dimension 

ARRAY  -  Table  array 

NERR  -  Error  indicator 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

258),^  =  600), „  bytes 
io       iu 

g.  Computational  Procedure: 

1.  Read  table  input  cards  checking  to  insure  that  the 
table  sequence  number  increases  with  each  card. 

2.  Load  the  variables  into  the  table  array. 
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42.       SUBROUTINE  T2READ 


a. 

Purpose: 

1.  This  subroutine  reads  a  two-dimensional  input  table. 

b. 

Common  Blocks  Required: 

None 

c. 

Subroutines  Required: 

None 

d. 

Arguments: 

NCARD  -  Input  card  number 

NDl   -  Row  dimension  of  the  input  table 

NI    -  Number  of  rows  to  be  read 

NJ    -  Number  of  columns  to  be  read 

ARRAY  -  Table  array 

NERR  -  Error  indicator 

e. 

Common  Variables  Calculated: 

None 

£. 

Size: 

2C4)^^  =  708) ^Q  bytes 

Computational  Procedure: 

The  input  table  is  read  rowwise  with  the  second 
subscript  varying  most  rapidly. 
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43.       SUBROUTINE  UMOMNT(IS) 

a.  Purpose: 

1.   This  subroutine  calculates  the  moments  acting  on  the 
sprung  and  unsprung  masses 

b.  Common  Blocks  Required: 

INPT,  DIMV,  COMP,  INSUS,  SUSCMP 

c.  Subroutines  Required: 
None 

d.  Arguments : 

IS  -  Suspension  option  indicator 

e.  Common  Variable  Calculated: 

SNPF,  SNPR,  SNPU,  SNTU,  SNPSUj  TERMl ,  TERM2,  TERMS 

f.  Size: 

79C)^^  =  1948) ^Q  bytes 

g.  Computational  Procedure: 

1.  For  IS  =  0  (independent  front,  solid  axle  rear  suspension) 
calculate  the  sprung  mass  roll,  pitch  and  yaw  moments 
(SNPU,  SNTU,  SNPSU)  and  the  rear  axle  roll  moment  (SNPR). 

2.  For  IS  =  1  (independent  front  and  rear  suspension)  calculate 
the  sprung  mass  roll,  pitch  and  yaw  moments  (SNPU,  SNTU, 
SNPSU) . 

3.  For  IS  =  2  (solid  front  and  rear  axles)  calculate  the 
sprung  mass  roll,  pitch  and  yaw  moments  (SNPU,  SNTU, 
SNPSU)  and  the  front  and  rear  axle  roll  moments  (SNPF, 
SNPR) , 
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44.       SUBROUTINE  VGORNT 

a.  Purpose: 

1.  Determine  the  orientation  of  the  vehicle  wheels  with 
respect  to  the  ground 

2.  Calculate  the  circumferential  tire  forces  due  to  applied 
wheel  torques 

b.  Common  Blocks  Required: 

INPT,  INPTl,  INTG,  DINW,  COMP,  COMPN,  ADTNL,  TIRIN, 
INSUS,  SUSCMP,  NEWCRB 

c.  Subroutines  Required: 

INTRP5,  GCP,  CRBIMP,  TIRFRC,  RUFFRC 

d.  Arguments: 
None 

e.  Variables  Calculated: 

AS,  AX,  AY,  BS,  BX,  BY,  CS,  CX,  CY,  Dl ,  D2, 

D3,  PI,  P3,  P4,  P5,  P6,  P7,  TI ,  UG,  VG,  VI,  V2,  V3, 
V4,  Wl,  W2,  W3,  W4,  CAC,  CAH,  CAS,  CBC,  CBH,  CBS,  CGC, 

CGH,  CGS,  CPG,  CTG,  SPG,  STG,  CAGZ,  CAYW,  CAZW,  CBGZ, 

CBYW,  CBZW,  CGGZ,  CGYW,  CGZW,  CPYG,  CTXG,  HCAH,  HCBH, 

HCGH,  LCBl,  LCB2,  PHGI,  STXG,  THGI,  TMP3,  TMP4,  ZPGI, 
DISTD,  DISTS,  DISTX,  DISTY,  PSIIP 

f.  Size: 

1028),,  =  4136),^  bytes 
io        lU 

g.  Computational  Procedure: 
For  wheels  I  =  1  to  4 

1.  Calculate  the  direction  cosines  of  the  normal  to  the 
wheel  plane, 

2.  Determine  the  direction  cosines  of  a  normal  to  the  ground 
plane  and  direction  components  of  the  intersection  of  the 
wheel  plane  and  ground  plane  as  follows: 
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INDCRB  >  D  INDICATES  POSSIBLE  CURB  CONTACT 


LC81  SET  TO  TRUE  IF  WHEEL  CENTER      IS 
WITHIN  ONE  WHEEL  RADIUS  FROM  1ST  CURB  SLOPE 
LCB2  SET  TO  TRUE  IF  WHEEL  CENTER  IS  GREATER 
THAN  ONE  WHEEL  RADIUS  FROM  END  OF  1ST  CURB 
SLOfE 


TEST  IS  TRUE  IF  WHEEL  CENTER  IS  NOT  ONE 
WHEEL  RADIUS  BEYOND  END  OF  FIRST  CRUB 
SLOPE 


CPGIII'COSIPHCIItll 
SPGIII-SINIPHCIItll 
CTGIII°COSITHGMIII 
STCIII'SINITHGIIIII 


ZPGIIII'ZCLPHVPIII  rCLPITANPCL 
PHGHI)    PHICLR 
SPGIII-SINIPHGIIlll 
CGPIII-COSIPHGIIill 


CALL  CRBIMPIII 


CALeULATC 

CAGZIII.  CBCZIII.CCGZIII 
PI   P7.P3.P4.  PS,  PS 
Dim,  02III.  D3III 


CALLGCPIII 


DETERMINE  TERRAIN 
ELEVATION  AND  SLOPES 
FROM  INPUT  TERRAIN  TABLE 


WHEEL  ISDN  LAST  CURB  SLOPE.  BEYOND 
SLOPE  CHANGE     REVERT  TO  SINGLE  POINT 
CONTACT  TIRE  MODEL 


TEST  IS  TRUE  IF  WHEEL  HAS  NOT  REACHED 
CURB     DEFAULT  TO  LEVEL  TERRAIN  W  STMT  30 
TEST  IS  FALSE  IF  WHEEL  IS  ON  FIRST  CURB 
SLOPE     CALL  CRBIMP 


CALCULATE  DIRECTION  COSINES  OF  NORMAL 
TO  GROUND  PLANE  AND  DIRECTION  COMPONENTS 
OF  LINE  OF  INTERSECTION  OF  WHEEL  AND 
GROUND  PLANE 


CRBIMP  DETERMINES 
CHARACTERISTICS  OF 
EQUIVALENT  GROUND  PLANE 


XMUGKII  ■  AMUC'AMUIII 


,_22 t , 

CALCULATE 

CAGZIII,  CBGZIIICGGZIII 
PI,  P7.  P3.  P4.  PS.  P6 
Dim.  D2III.D3III 


CONTINUE  WITH 

SEQUENTIAL 

CALCULATIONS 


CALCULATE  DIRECTION  COSINES  OF  NORMAL 
TO  EQUIVALENT  GROUND  PLANE  AND 
DIRECTION  COMPONENTS  OF  LINE  OF  INTER 
SECTION  OF  WHEEL  PLANE  AND  EQUIVALENT 
GROUND  PLANE. 
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3.  Calculate  the  direction  cosines  of  the  line  of  action  of 
the  radial  tire  force  with  respect  to  the  vehicle  axes, 
CAH(I),  CBH(I),  CGH(l). 

4.  Calculate  the  circumferential  tire  force  due  to  applied 
torques,  TI(I) , 

5.  Calculate  the  lateral  and  vertical  velocities  of  the  tire 
at  the  ground  contact  point  with  components  resolved  in 
the  vehicle  axes,  (VI,  Wl);  (V2,  W2) ;  (V3,  W3) ;  (V4,  W4) . 

6.  Calculate  the  direction  components  of  the  vehicle  x  axis 
projected  into  the  ground  plane,  AX(I),  BX(I),  CX(I). 

7.  Calculate  the  sine  and  cosine  of  the  angle  between  the 
vehicle  x  axis  and  its  projection  into  the  ground  plane 
STXG(I),  CTXG(I). 

8.  Calculate  the  longitudinal  velocity  of  the  tire  contact 
point  parallel  to  the  ground  plane  UG(I). 

9.  Calculate  the  direction  components  of  the  vehicle  y  axis 
projected  into  the  ground  plane,  AY(I),  BY(I),  CY(I). 

10.  Calculate  the  sine  and  cosine  of  the  angle  between  the 
vehicle  y  axis  and  its  projection  into  the  ground  plane 
SPYG(I},  CPYG(I). 

11,  Calculate  the  lateral  velocity  of  the  tire  contact  point 
parallel  to  the  ground  plane,  VG(1), 

12,  Calculate  the  direction  cosines  of  the  steering  axis  of 
the  wheel. 

13.  Calculate  the  steer  angle  in  the  ground  plane,  PSIIP(I). 

14.  Calculate  the  direction  cosines  of  the  line  of  action  of 
the  circumferential  tire  force  (CAC(I),  CBC(I),  CGC(I)  ) 
and  of  the  tire  side  force  (CAS(I),  CBS(I),  CGS(I)  ). 

15,  Call  TIRFRC(I)  to  obtain  magnitudes  of  side  and 
circumferential  tire  forces. 
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45. 


SUBROUTINE  VPOS 


Purpose: 

1.  Compute  positions,  orientations  and  velocities  of  the 
vehicle  wheels 

2.  Calculate  torques  acting  on  front  and  rear  wheels 

3.  Calculate  directions  of  the  x  and  y  axis  in  space 

Common  Blocks  Required: 

INPT,  INPTl,  INTO,  DIMV,  COMP,  COMPN,  ADTNL, 
INSUS,  SUSCMP 

Subroutines  Required: 

INTRPL,  DRIVER 

Arguments : 

None 

Common  Variables  Calculated: 

TI,  Ul,  U2,  U3,  U4,  CAX,  CAY,  CBX,  CBY,  CGX, 
CGY,  TQF,  TQR,  XIP,  X2P,  X3P,  X4P,  YIP,  Y2P,  Y3P, 
Y4P,  ZIP,  Z2P,  Z3P,  Z4P,  PHIl,  PHI2,  PHI3,  PHI4, 
PSIl,  PSI2,  PSI3,  PSI4,  SFXU,  SFYU,  SFZU,  DTDDl,  DTDD2, 
DTDD3,  DTDD4,  DTHFl,  DTHF2,  DTHR3,  DTHR4,  PHIID,  PHI2D, 
PHI3D,  PHI4D,  PSIFI,  SFYUF,  SFYUR,  PHIFID,  SLOPEl, 
SL0PE2,  SLOPES,  SL0PE4 

Size: 

B50)   =  2896)   bytes 

Computational  Procedure: 

1,  Call  INTRPL  to  interpolate  input  torque  tables  TQF, 
TQR  with  respect  to  simulated  time,  T.   TQF  yields 
front  wheel  torques  TI(1),  TI(2);  TQR  yields  rear  wheel 
torques  TI(3),  TI(4). 

2,  Calculate  longitudinal  velocities  of  wheel  centers  along 
the  vehicle  axes,  Ul,  U2,  U3,  U4,   Note  that  for 
independent  suspension  options,  INTRPC  is  called  to 
obtain  the  track  change  and  rate  of  track  change  as  a 
function  of  suspension  position. 

3,  Zero  forces  acting  on  the  unsprung  masses 
SFYU  =  SFXU  =  SFYUF  =  SFYUR  =  SFZU  =  0. 

4.  Calculate  AMTX,  the  transformation  matrix  from  vehicle 
to  space  coordinate  systems. 

5.  Calculate  direction  cosines  of  the  vehicle  x  and  y 
axis  in  space  (CAX,  CBX,  CGX  and  CAY,  CBY,  CGY). 

6.  Calculate  positions  of  the  wheel  centers  in  space 
(XIP,  YIP,  ZIP);  (X2P,  Y2P,  Z2P) ;  (X3P,  Y3P,  Z3P) ; 
(X4P,  Y4P,  Z4P). 
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7.  Call  INTRPC  (entry  point  in  INTRPL)  to  obtain  wheel 
camber  angles  and  rates  of  change  of  camber  angles  with 
deflection  by  interpolation  of  the  input  camber  tables 
with  respect  to  suspension  deflection  for  independent 
suspension  options.  Note  that  since  the  input  table  of 
camber  is  in  units  of  degrees,  a  conversion  to  radians 
is  also  made, 

8.  Determine  the  front  wheel  steer  angle  with  the  following 
logic. 
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INDCRB^O  INDICATES  STEER  DEGREE  OF 
FREEDOM  MAY  BE  IN  EFFECT 


6  < 


IHIT=1  OR  INDCRB  <  0  INDICATES 
STEER  DEGREE  OF  FREEDOM  IS  IN 
EFFECT 


DRIVER  IS  A  DUMMY  SUBROUTINE 
WHICH  RETURNS  0  FOR  STEER 
ANGLE  (PSICON),  STEER  VELOCITY 
(PSISLP),  AND  J 


PSICON=0.0 
PSISLP=0.0 


5001     n 


CALL  INTRPCIPSIF,  TB, 

TE,  TINCR,  T,  PSICON.  f»SISLP) 


INTERPOLATE  INPUT 
STEER  ANGLE  TABLE 
(PSIF)  WITH  RESPECT  TO 
TIME  TO  OBTAIN 
PSICON  AND  PSISLP 


PSICON=PSICON*RAD 
PSISLP=PSISLP'RAD 


CONVERT  TO  RADIANS 


CONTINUE 


PSI1=PSICON 
PSIFID=PSISLP 


CALCULATE  APPROXIMATION  OF  STEER  ANGLE  & 
VELOCITY  AS  INITIAL  CONDITION  TO  POSSIBLE 
SUBSEQUENT  STEER  ANGLE  DEGREE  OF  FREEDOM 


PSI1=PSIFI 


PSIFI=PSI1 


SET  RF  STEER  ANGLE 
TO  INTEGRATED 
ANGLE  WHEN  A 
DEGREE  OF  FREEDOM 


PSI2=PSI1 


SET  LF  STEER  ANGLE  TO  RF  STEER  ANGLE 


CONTINUE 
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HV0SM-RD2 


46. 


SUBROUTINE  WHEEL 


Purpose: 

1,   To  calculate  equivalent  tire  radial  mode  spring  rates 

Common  Blocks  Required: 

None 

Subroutines  Required: 

None 

Arguments : 

AKT   -  Point  contact  model  tire  spring  rate 

SIGT  -  Point  contact  model  tire  deflection  at  which 

spring  rate  increases 
XLAMT  -  Spring  rate  increase 

RWHJB  -  Beginning  deflection  for  radial  spring  table 
RWHJE  -  Ending  deflection  for  radial  spring  table 
DRWHJ  -  Deflection  increment  for  radial  spring  table 
NFJP  -  Number  of  radial  spring  table  entries 
RW    -  Undeflected  tire  radius 
FJP   -  Radial  spring  force  table 
NO    -  Maximum  number  of  entries  in  radial  spring  force 

table 

Common  Variables  Calculated: 

None 

Size: 

4FA)^^  =  1274) ^Q  bytes 

Computational  Procedure: 
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3.1.2     HV0SM-RD2  Program  Stops  and  Messages 

Program  stops  include  both  normal  and  abnormal  stops.   Normal  stops 
occur  when  the  cumulative  simulated  time  (T)  exceeds  the  desired  final  time 
(Tl)  as  input  in  field  2  of  card  101,  or  when  the  magnitudes  of  both  the  linear 
and  angular  velocities  of  the  vehicle  sprung  mass  are  less  than  or  equal  to 
the  input  minimums  (UVWMIN  and  PQRMIN,  card  101,  fields  6  and  7).   When  these 
stops  occur,  no  message  is  output  and  the  program  attempts  to  read  another 
set  of  data  cards. 

Abnormal  stops  occur  when  a  condition  is  encountered  that  the  program 
is  not  designed  to  handle  or  an  unresolvable  error  has  occurred.   The  first 
type  of  abnormal  stop  occurs  when  rollover  of  the  vehicle  is  immenent.   That 
is,  when  the  vehicle  has  rolled  to  an  angle  of  90°  in  either  direction. 

The  second  program  stop  occurs  when  the  barrier  option  is  in  effect 
(INDB  /  0)  and  the  vehicle  yaw  angle  (PSIT)  is  greater  than  135°.   This  stop 
is  necessary  since  the  left  rear  corner  of  the  vehicle  is  not  tested  for  contact 
with  the  barrier. 

Abnormal  stops  are  also  indicated  by  a  non-zero  value  for  the  variable 
ISTOP,   The  following  codes  identify  the  type  and  location  of  error. 

I STOP  =  4    Subroutine  TMCNST.   The  denomenator  of  the 

expression  used  to  calculate  the  value  of  PSIT 
after  indexing  of  coordinate  system  is  zero. 

ISTOP  =  5  Subroutine  TMCNST.  The  logic  associated  with 
coordinate  system  indexing  has  been  unable  to 
determine  the  correct  quadrant  for  PSIT,  PHIT 
or  THETT, 
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ISTOP  =  6    Subroutine  TMCNST.   The  numerator  in  the 
expression  for  calculation  of  THETT  after 
coordinate  system  indexing  is  zero. 

ISTOP  =  7  Subroutine  TMCNST.  The  numerator  in  the 
expression  for  calculation  of  PHIT  after 
coordinate  system  indexing  is  zero. 

ISTOP  =  30   Subroutine  TMCNST.   One  of  the  recalculated 
Euler  angles  (PSIT,  THETT,  PHIT)  has  been 
computed  as  being  very  large  (>3000  radians) 
after  coordinate  system  indexing.   A  probable 
error  has  occurred. 

When  an  ISTOP  7^  0  condition  is  encountered,  the  program  prints  all 
output  up  to  the  time  of  the  error,  prints  the  value  of  ISTOP,  terminates 
execution  of  the  current  run  and  attempts  to  read  another  set  of  data  cards. 

In  subroutine  INPUT,  the  following  messages  are  printed  if  difficulties 
are  encountered  in  reading  the  card  data  deck. 


UNEXPECTED  END  OF  FILE  ENCOUNTERED  IN  STMT  NO.  1  OF 
SUBROUTINE  INPUT.   LAST  CARD  READ  WAS  XXXX. 

A  CARD  NUMBERED  LESS  THAN  OR  EQUAL  TO  ZERO  WAS 
ENCOUNTERED  IN  SUBROUTINE  INPUT.   CARD  IMAGE  PRINTED 
ABOVE. 

THE  NUMBER  OF  CARDS  READ  IS  ZERO. 

A  BLOCK  NUMBER  OF  LESS  THAN  OR  EQUAL  TO  ZERO  HAS 
BEEN  OBTAINED. 

A  BLOCK  NUMBER  LARGER  THAN  THE  ALLOWED  NUMBER  HAS  BEEN 
OBTAINED. 
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AN  ERROR  HAS  OCCURRED  IN  STORING  INPUT  VALUES  IN  ONE 
OF  THE  BLKXX  SUBROUTINES.   THE  CALLING  ARGUMENTS 
FROM  INPUT  ARE:   NBLK  =  XXXX   NBCRD  =  XXXX 
NSEQ  =  XXXX   NCARD  =  XXXX   NERR  =  XXXX 


In  subroutine  NLDFL,  messages  may  be  printed  if  the  program 
determines  that  both  constraints  on  the  unloading  curve  (the  input  ratio  of 
conserved  to  total  energy,  CONS,  and  the  ratio  of  maximum  to  permanent 
displacement,  SET)  cannot  be  simultaneously  satisfied,   If  this  occurs, 
the  energy  ratio,  CONS,  is  modified  and  a  diagnostic  is  output. 

In  subroutine  RUFRED,  two  messages  may  be  printed  if  difficulties 
are  encountered  in  reading  road  roughness  data  from  FORTRAN  device  4.  They 
are: 


END  OF  FILE  ENCOUNTERED  IN  READ  OF  ROUGHNESS  DATA 
BEFORE  NEND  POINTS  WERE  READ. 

NUMBER  OF  LAST  ROUGHNESS  DATA  POINT  IS  GREATER  THAN 
THE  ALLOWED  2200.   PROGRAM  TERMINATED. 
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3.1.3     HV0SM-RD2  Program  Listing 
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DATE      01/12/76  TIME       1729  UPDATE    RECORD 


C                               HIGHWAY   VEHICLE    OBJECT    SIMULATION    MODEL  MAINOOIO 

C                                   MAIN   ROUTINE  MAIN0020 

C                                     HV0SM-RD2    VERSIOM  MAIN0030 

C                                   REVISED    OCTOBER    1975      CALSPAN    CORPORATION  MAIN0040 

COMMON/HEAD/    VHED ( 20 ) , CHED( 20) , GHED( 20) ,SHED( 20 J ,THED(20),  MAIN0050 

1                                    N PAGE (20)  MAIN00  60 

C0MM0N/lNPT/PHI0,THETA0f PSIO,P0,QO,RO,XCOP,YCOPtZC0P,UO,VO,W0,  MA  IN  00 70 

1  A,B,DEL10,DEL20,DEL30,PHIRO,DEL10D,Df.L20D,DEL30D,  MAIN0080 

2  PHIROD,TF,TR,ZF,ZRtRHOiAK.RSfXMUR»  MAIN0090 

3  XMS,XMUF,XIXtXIYtXIZ,XIXZ,CF,AKF,XLAMFtOMEGF,CFP,EPSF,MAIN0100 

4  RF,CR,AKRtXLAMR,OMEGRtCRPtEPSRtRRtTS,THMAX,DTCOMP,TO,  MAINOllO 

5  Tl,OTCMPl,DTPRNT,MODEtEBAR,EMtAAA^HMAX,HMIN,BET,Gf  MAIN0120 

6  HED{36) tOADE (3) ,XIR,X1,Y1,Z1,X2»Y2,Z2,PHIC(50) ,DELB,  MAIN0130 

7  DELE, DDEL, NOEL, PSIF(50), TQF(30) fTCR(50),TB,TE,7INCR,  MAIN0140 

8  NZTAB,NZ5,XBDRY(4,5)  ,PSBDRY(4,£>),YBDRY(2,5),NBX{5),  MA1N0150 

9  NBY(5) ,NTEL1,NTBL2,NTBL3,ZGP(21,21,5)  MA1N0160 
C0MM0N/INPT/XB(5),XE(5),XINCR(5) tNX(5),YB(5),YE(5),YINCR{5 ),NY(5) ,MAIN0170 

1  XXZGP5(21),YYZGP5(21) , AMUG( 5 ) ,PSBDR0(4,5 ) .UVWMIN ,PQRMIN    MAIN0I60 

COMMON/ INPT 1/YC IP, YC2PtZC2PtDELTC,PHICltPHlC2,AMUC»X IPS,  MA  IN  01 90 

1  CPSP,OMGPS,AKPS,EPSPS,XPS,RWHJB,RWHJE,DRWhJ,lNDCRB,  MAIN0200 

2  PSIFIO,PSIFDO  MAIN02I0 
DIMENSION  YCIP(2)  MAIN0220 
EQUIVALENCE  (YC IP { 1 ) ,YC1P )  MAiN0230 
COMMON  /INTG/NEQ,T,DT,VAR(50) ,DER(50)  MAIN02A0 
EQUIVALENCE     (U,VAR(1 )) ,( V,VAR(2) ), (W,VAR( 3)), (P,VAR(4) ),(Q,VAR<5) )MAIN02  50 

1  ,(R,VAR(6)) ,(DEL1,VAR(7)),(DELID,VAR(8) ) , (0EL2, VAR( 9) ) ,MAIN02  60 

2  (DEL2D,VAR(10)),(DEL3,VAR{11) ) ,(DEL3D,VAR( 12)) ,  MAIN0270 

3  (PHIR,VAR(13)),(PHIRD,VAR(14) ),(THETTP,VAR(15)  ),  MAIN0280 

4  (PH1TP,VAR(16)),(PSITP,VAR(17)),(XCP,VAR(18)),  MAIN0290 

5  (YCP,VAR(19) ),(ZCP,VAR{20) ),(PSIFI,VAR(21) ),  MAIN0300 

6  (PSIFID,VAR(22))  MAIN0310 
EQUIVALENCE     (DU,DER( 1) ), CDV,DER{2)) , ( DW.DER ( 3  ) ) , (DP,DER ( 4)  ),  MAIN03  20 

1  (DQ,DER( 5) ), (DR,DER(t) ) , (DDELl ,DER (7 ) ) , (DDELID ,DER{8 ) )MAlN03  30 

2  ,(D0EL2,DER(9) ),(DDEL2D,DER(10)),(DDEL3,DER(11) ),  MAIN0340 

3  (DDEL3D,DER{12)), (DPHIR,DER(13)),CDPHIRD,DER(14)),  MAIN0350 

4  (DTHTTP,DER( IS) ), (0PHITP,DER(16)) ,(DPS1TP,DER(17) ) ,  MAIN0560 

5  (DXCP,DER(18) ),(DYCP,DER(19) ) ,(DZCP,DER(20)) ,  MAIN0370 

6  {DPSIF1,DER(21)),(DDPSFI,DER(22))  MAIN0380 
EQUIVALENCE     (VAR(9 ) , PHIF ) , (VAR( 10) ,PHIFD) , (DER(9 ) , DPHI F ) ,  MAIN03  90 

1                                   (DER(10),DPHIFD)  MAIN0400 

EQUIVALENCE     (VAR(13) ,DEL4) , ( VAR ( 14 ) ,DEL4D ) , ( DER ( 13 ) ,DDEL4) ,  MAIN0410 

I  (DER(14),DDEL4D)  MAIN0420 
COMMON    /DIMV/X1P,X2P,X3"-,X4P,Y1P,Y2P,Y3P,Y4P,Z1P,2  2P,Z3P,Z4P,PHI1,MAIN04  30 

1  PHI2,PHI3,PHI4,PSI1,PSI2,PSI3,PSI4,CAYW(4),CBYW(4),  MA  IN 04 40 

2  CGYW(4)  ,ZPGI(4),THGI(4),PHGI(4),CPG(4),SP&(4) ,CTG(4 ) ,MA IN0450 

3  STG(4),CAGZC4),CBGZ(4),CGGZ(4),D1(4),D2(4),D3(4),  MAIN0460 

4  XLM1(4) ,XLM2(4),XLM3(4),AMTX{3,3),CMTX(3,4),XGPP(4),  MAIN0470 

5  YGPP(4),ZGPP(4),DMATX(10,11),DELTA(4) ,CAR(4),CBR(4),  MAIN0480 

6  CGR(4),FR(4),HI(4),FC(4),TI(4),AX(4),BX(4),CX(4),  MA IN0490 
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DATE      01/12/76 


TIME       1729 


UPDATE    RECORD 


7 

8 
9 


CTXG(4),UG(4^)fSTXG{4},AY(4),BY(4),CY(4),CPYG(4),  MA 

SPYG(4) ,VG(4)tPSIIP{4),PHICI(4),CAC(4),CBC(4) ,CGC(4),MA 
FCXU(4)  ,FCYU(4),FCZU(4),FS(4),CAXW{4>,CBXW(4»,CGXW(4)MA 


COMMON    /DIMV/AS{4),BS(4) ,CS{4),CAS(4),CBS(4),CGS(4),BETP(4),  MA 

1  BETBR{4),FSXU(4) ,FSYU(4),FSZU(4),FRXU(4),FRYU(4),  MA 

2  FRZU(4) ,FXU(4)tFYUC4),FZU(4),SI(4),FlFI(2),FIRI(2),  MA 

3  F2FI(2),F2Rl(2)tCAHC4),CBH(4),CGH(4)  MA 
DIMENSION  XP(4),YP(4)tZP{4ltPHII(4l,PSII(4)  MA 
EQUIVALENCE     (XP( 1) .X IP ) , ( YP( 1) t YIP ) , ( ZP( 1 ) ,ZIP ) , (PHII ( 1 ) ,PHI1 ) ,  MA 

1  (PSIKll  ,PSI1)  MA 
COMMON    /C0MP/SUMM,7HETN,PHlN,PSIN,PItRAD,GAMl,GAM2,GAM3,GAM4,GAM5,MA 

GAM6tGAM7,GAM8tGAM9,THETT,PHIT,PSIT,ZR0,lR02,  MA 

TF02fTIZ,RH02,RH0MUR,AMUF,BMUR,ZPRtTM4,RHMR2,A02APB,  MA 

B02APB,RFTF ,TS02 tRRTS t BROMUR »XMUF02 tAXMF02, XMTF04,  MA 

XIZRtRTR,RHMR2I»XlXPtXIZPtXIXZP,XIYZP,DlPD2tDlMD2t  MA 
ZR  D3  f  ZR  D3R t  ZFD3R  t  ZFD12  tT  I  Z2 1 1  G61 1 DDIP  2 1 DD  lM2t  R PR  ,  PHR  PMA 


,TANTP,SPHTPtCPHTP,SECTPtSFXStSFYStSFZStSNPStSNTSt  MA 

SNPSStTPR,CAY,CBY,CGY,CAX,CBX,CGX»SFYUtSFXUtSFYUF,  MA 

SFYURfSFZUf COSTH,SINTH,COSPSf SINPStCOSPH,SINPH,ANGl  ,  MA 

ANG2tCPHI,SPHltCPSI»SPSlfPltP7,P3,P4, P5,P6,TX,TY,TZ  MA 

COMMON    /COMP/TRH,DISTX,DISTY,DISTD,DISTSf D21,ZETA4,ZETA4D, ZETA3,  MA 

1  ZETA3D,SFZl,SNPU,SNTU,HCGHl,HCGH2,HCGH3fHCGH4,TERMl,  MA 

2  TERM2fSNPSUtSNPRfHCBHIfHCBH2»HCBH3tHCBH4,HCAHl,HCAH2fMA 

3  HCAH3tHCAH4tUQtWP,URfQR,VP,PRfP2tQ2»R2tVR,WQ,PQ,PHIR2MA 
4^  ,PHIRD2,RPHRDtGCTH,GSTH,GCTSP,GCTCP,XXX,YYY,IXtIY,XXI,MA 
5                                    XX2,YY1,YY2,THGI,THG2,PHG1,PHG2,ZZ1,ZZ2,LLL  MA 

DIMENSION    HCAH(4»fHCBH(4>tHCGH(4»  MA 

EQUIVALENCE    (HCAH ( I ) vHCAHl) « (HCBH( 1 ) tHCBHI) • ( hCGH( 1 ) tHCGHl)  MA 

COMMON    /COMPN/    FRSP ( 4) ,FRCP(4) , ICBHIT, JCBHIT ,  MA 

1  DPSINT,TANPCl,TANPC2,PHIClR,PHIC2Rf AMUCMP.PHIlDt  MA 

2  PHI2D,LCBl{4),LCB2(4)»lHIT,AJMTX(3f3),BMTX(3,3),  MA 

3  SFRX(4) ,SFRY(4)»SFRZC4),TlPSIfT2PSI,XMUGI(4)  MA 
LOGICAL    LCB1,LCB2  MA 

COMMON/EINDEX/   FOR    EULER   ANGLE    INDEXINGt MAIN ,CNSTNT,DAUX, TMCNST  MA 

COMMON/EINDEX/    TWOPI tPI02 »PI04f XINDN, XINDLtTHETTL, PHITL,PSITL ♦  MA 

1  COSTHN,SINTHNtCOSPSN,SINPSN,COSPHN,SINPHN,CTHETP,  MA 

2  STHETPtCPSTP.SPSTPfBNMTX(3t3)f  CNMTX (3, 3 ) tENOEiN  MA 
COMMON/ADTNL/    Ul t U2, U3f U4fVl t V2 t V3f V4 tWl t W2» W3 tW4,  MA 

1  XIYP,SPHICfCPHICfAPTCHl,APTCH2f APTCH3fAPTCH4,  MA 

2  SL0PE1,SL0PE2,XTRA(300)  MA 
DIMENSION  UI(4)»VI(4)tWI(4)  MA 
EQUIVALENCE  (UI ( 1 ) tUI) « ( VI( I ) tVI ) , ( WI ( 1) , WI )  MA 
DIMENSION  APITCH(4)  MA 
EQUIVALENCE  < APITCH( I) ,APTCHl )  MA 
COMMON    /INPT2/    YBPO, 2BT  P,  ZBBPt XVF, XVR.YV, ZVT, ZVB,AKV,SIGR( 11 ) ,  MA 

1  SET,CONS,AMUB,EPSV,EPSB,XM,EPSTtDDD.INDBfDELYBPt  MA 

2  DELTB,XINPTa00)  MA 
C0MM0N/INPT3/   AKFCtAKFCP tOMEGFC, AKFE, AKFEP,OMEGFE, AKRC ,AKRCP,  MA 

1                                     OMEGRCtAKRE,AKREPtOMEGRE,END3  MA 

COMMON    /TIRIN/    AKT(4 ) , SIGT(4) ,XLAMT(4 J , AO (4) , Al( 4) , A2(  4) ,A3(4) ,  MA 

I                                          A4(4),0MEGT(4)tAMU(4)tRW(4),FJP(35t4),A234(4),  MA 


INObOO 
IN0510 
IN  05  20 
IN0530 
IN05  40 
IN05  50 
IN  05  60 
IN05  70 
IN  05  80 
IN  05  90 
IN  06  00 
IN  06  10 
INC620 
IN0630 
IN  06  40 
IN  06  50 
IN  06  60 
IN  06  70 
1N06  80 
IN06  90 
IN  07  00 
IN0710 
IN  07  20 
IN  07  30 
IN  07  40 
IN0750 
IN0760 
IN  07  70 
IN  07  80 
IN0790 
IN08  00 
IN0810 
IN08  20 
IN  08  30 
IN  08  40 
IN08  50 
IN  08  60 
IN06  70 
IN08B0 
IN 08  90 
IN0900 
IN0910 
IN0920 
IN  09  30 
IN0940 
IN  09  50 
IN  09  60 
IN09  70 
IN0980 
IN0990 
IN  10  00 
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DATE       01/12/76  TIME       1729  UPDATE    RECORD 

2  A12(4),0MT2A2(4),0MT2M1(4),A23{4),ITIR(4>  MA  IN  10 10 

C0MM0N/BARIER/FN,IBHIT,JBHlT,XCPNP(3)tYCPNP(3),ZCPNP(3),XCPN(3),  MA  IN  10 20 

1  YCPN(3),ZCPN(3),AA1(17),BB1(17),CC1( 17),RR1(17),  MAIN1030 

2  AA2( 17»,EB2(17) ,CC2( 17) ,RR2(17) ,CAB,CBB,CGb,CABT,  MAIN1040 

3  CBBT,CGBTtRBtXBT,YBT,2BT,XBB,YBBtZBB,RR2P(17),  MAIN1050 

4  YBPT,XNN(17),YNN( 17) ,ZNN{17),XMTX(3,4),IDPT( 17),IPT  MA1M060 

5  fININD,UNP(17),VNP(17),WNP(17),VMAX(4),Il»I2,I3fI4,  MAIN1070 

6  XCPTP,YCPTPtZCPTP,XCPBP,YCPBP,ZCPBP,YCPMP,AINTI,  MAINIOBO 

7  AINTP,SXR,SYR,SZR,S0EN,XRI,YRI,ZRI,FRICT,DELBB,VTAN,MA1N10  90 

8  FNP,FB,URPtVRPtWRP,EPSL,XLDP,DELX,VL,NCYCtfcEEtENRGY,MAIN1100 

9  NSEGtYBPTP,PCAB,PCBB,PCGB,PPRB,CABl,CBBltCGBl,  MAINlllO 
A  RB1.NUNLD,NLDCTR,VDEF,PVDEF,PSZR,XF,0ELBBP,  MAIN1120 
B                                       SWORK,SPENGY,DISS,IPLN,ILOAD  MAIM130 

DIMENSION    INDXPTU)  MAIN1140 

EQUIVALENCE     (INDXPT( 1) ,1 1 )  MAIN1150 

COMMON/ APT ABL/    APFR( 21t2)  ,IAPFR( 2) .DAPFBt DAPFEt DDAPF,NAPF,  MAIN1160 

1  DAPRB,DAPRE,DDAPR,NAPR  MAIN1170 

DIMENSION   APF(21),APR(21)  MAIN1180 

EQUIVALENCE     (APFR( 1 , 1 ) ,APFf I ) ) t ( APFR( 1 ,2 ) , APR( 1 ) )  MAIN1190 

COMMON    /INSUS/    XIF,RHOF, TSF ,PHIF0,PHI FOD,DEL40,DEL40D, ISUS ,  MAIN1200 

1  AKDStAKDSl,AKDS2tAKDS3,PHIRC(50),DTHF(50)fD7HR(50) ,MAIN1210 

2  NCAMF,NCAMR,NDTHF,NDTHR  MAIN1220 
COMMON    /SUSCMP/    XMUR02 ,BXMR02 ,XMTR04,ZFO,TSF02,RHOF2,RHFMUF,  MAIN1230 

1  RHF2MF,RF2MFI ,RTF,RRTR,D3PD4,D3MD4,D43fDD3P4,  MAIM240 

2  DD3M4,ZFDlRF,ZRD34tRFPF,RPF2M,WFMF,PHFP,PHIF2t  MAIN1250 

3  PHIFD2,RPHFDtZFDl,ZFD2,ZRD4,TPF,SL0PE3,SL0PE4,  MAIN1260 

4  PHI3D,PH14D,DTHFl,DTHF2tDTHR3,DTHR4,DTDDlt  MAIN1270 

5  DTDD2fDTDD3fDTDD4tFJF(4),SNPF  MAIN1280 
COMMON /NEWCRB/    YC3P, YC4P ,YC5P, YC6P, YCLP,  MAIN1290 

1  ZC3PtZC4PtZC5PfZC6P,ZCLP,  MAIN1300 

2  PHIC3,PHIC4,PHIC5fPHIC6,NCRBSLt  MAIN1310 

3  TANPC3fTANPC4fTANPC5tTANPC6tTANPCLt  MAIN1320 

4  PHIC3RtPHIC4R,PHIC5RtPHIC6R»PHICLRt  MAIN1330 

5  YCMP(6),ZCMP(6),PHICM(6)  MAIN1340 
C0MMON/BARSTR/XSTI0{3),YSTIO(3)tZSTI0(3),XSTI(3)tYSTI(3),  MA  IN  13 50 

1  ZSTI{3),YSTIP0(3) fXSTIP(3)tYSTIPl3),ZSTIP(3),  MAIN1360 

2  FNSTI(3),AKST(3)  MAIN1370 
COMMON/HARDPT/  FRICF (4) , UPT(4) , VPT (4) ,WPT(4)  MAINISBO 
COMMON    /RUFNES/    DELG ,DGMAX,NEND , IRUF  MAIN1390 

C  MA  IN  1400 

COMMON/DRIVTT/    IPATHTt IDRIVE  MAIN1410 

COMMON/DRIVI/    DELPTH »XVP ,GAIN t YPPE ,NPPIO, YPPI0(4) , SPI { 30 )  MA  IN  14 20 

COMMON/NSTOP/ISTOP  MA  IN  1430 

DIMENSION    FJPP(35)  MAIN1440 

C  MA  IN  14  50 

C         SUBROUTINES  DVDCHK  AND  DATE  ARE  RELATED  TO  THE  OPERATING  SYSTEMMA IN  1460 

C  AT  OUR  INSTALLATION  MAIN1470 

C        SUBROUTINE  DVDCHK  CAN  CAUSE  HALT  ON  ATTEMPTED  DIVIDE  BY  ZERO,  MAIN1480 

C  EXPONENT  OVERFLOW,  AND  MESSAGE  ON  EXPONENT  UNDERFLOW.  MAIN1490 

C  THE  SERVICES  GIVEN  BY  SUBROUTINE  DVDCHK  CAN  NOW  GIVEN  BY  MAIN1500 

C  FORTRAN  EXTENDED  ERROR  HANDLING  MAIN1510 
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IF  USING  DRIVER 


15 
12 


13 

16 
17 
11 
10 


SUBROUTINE    DATE    RETURNS   THE    CURRENT    DATE    IN    EIGHT      CHARACTERS. 

CALL    CLEAR(VHED(1),NPAGE(20)) 
CALL    CLEAR(DELPTH,SPI(30)) 
CALL    CLEAR(PHIO,PQRMIN) 
CALL    CLEAR(YC1P,PSIFD0) 
CALL    CLEAR(YBPO,XINPT(100n 
CALL    CLEAR!    AKFCfEND3) 
CALL    CLEAR(APFR(l,l),NAPRJ 
CALL    CLEAR(AKTa)fFJP(35t4)) 
CALL    CLEAR{ITIRCl)tITIR(4)) 
CALL    CLEAR(XIF,NDTHR) 
CALL   CLEAR<YC3P»PHICM(6)  ) 
CALL    CLEAR(XSTI0(1),AKST(3)) 
CALL    CLEAR(DELG,IRUF) 
IPATHT    =  0 
IDRIVE    =   0 

SET    IDRIVE=l    IN   DRIVID,    AT    START    OF   COMPUTATION, 
SUBROUTINE    DRIVID      IS   CALLED    BY    SUBROUTINE    IDOUT 
CALL    DVDCHK 

CALL    CLEAR(NEQ,DER{50) ) 
CALL    CLEAR(SUMM,LLL) 
CALL    CLEAR<FRSP(1J,FRCPI4)) 
CALL    CLEAR(DPSINT,XMUGI(4)) 
CALL    CLEAR(X1NDN,ENDEIN) 
CALL    CLtAR(Ul,XTRA(300)) 
CALL    CLEAR(X1P,CGH(4)) 
CALL    CLEAR(FN,ILOAD) 
CALL   CLEAR<A234(1),A23(4)) 
CALL    CLEAR(XMUR02,SNPF) 
ISTOP    =    0 
CALL    INPUT 
CALL    DATE(DADE) 

IF( IRUF.NE.O)    CALL    RUFRED(NEN0t DELG,DGMAX« ZGP ) 
IF(INDCRB.NE.l.AND.IRUF.EQ.O)    GO   TO    10 
NFJP    =     <RWHJE-RWHJB)/DRWHJ    ♦    1,2 
DO    11    1=1,4 
IF(I.EQ.l)    GO    TO    12 
IM    =    I-l 
DO    15    K=1,IM 

IF(ITIR(I).EQ.ITIR(Kn    GO   TO    16 
CONTINUE 

CALL    WHEEL(AKT(I),SIGT(I),XLAMT(I),RWHJB,RWHJE,ORWHJ,NFJP, 
1  RW(I),FJPP,35) 

DO    13    J*1,NFJP 
FJPCJ.I)    =    FJPPU) 
GO    TO    11 
DO    17    J=l,NFJP 
FJP(J,II    =    FJP(J,K) 
CONTINUE 
CONTINUE 


MA  IN  15  20 
MAIN1530 
MAIN  1540 
MAIN1550 
MAIN1560 
MA  IN  15  70 
MA  IN  15  80 
MA  IN  15  90 
MAIN1600 
MAIN1610 
MA  IN  1620 
MAIN1630 
MAIN1640 
MA  IN  16  50 
MA  IN  16  60 
MA  IN  16  70 
MA  IN  16  60 
MA  IN  16  90 
MA  IN  17,00 
MA  IN  17  10 
MAIN1720 
MAIN1730 
MAIN1740 
MA  IN  17  50 
MAIN1760 
MA IN  1770 
MA  IN  1780 
MAIN1790 
MA  IN  18  00 
MA  IN  18  10 
MA  IN  18 20 
MA  IN  lb  30 
MAIN1840 
MA  IN  13  50 
MA  IN  18  60 
MA  IN  18  70 
MA  IN  IB  60 
MA  IN  18  90 
MAIN1900 
MA  IN  19 10 
MA  IN  19  20 
MA  IN  1930 
MA  IN  19  40 
MAIN1950 
MAIN1960 
MA  IN  1970 
MA  IN  19  60 
MA  IN  19  90 
MA  IN 20  00 
MA  IN  20  10 
MAIN20  20 
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100 


101 


IF(ZF.EQ.O,0,AND,ZR. 

.EQ.0.0) 

CALL    IDOUT 

CALL    CNSTNT 

DO    101 

1=1,4 

LCBKI) 

-    .FALSE. 

LCB2(I) 

=    .FALSE. 

CONTINUE 

PI02    = 

.5*PI 

TPRINT 

=   TO 

TPATH    = 

TO 

THETMX 

=   ABS(THMAX) 

*    RAD 

UVWM2    = 

UVHMIN**2 

P0RM2    = 

PQRMIN**2 

UVWM2 

=    SIGN(UVWM2, 

»UVWMIN) 

P0RM2 

=   SIGN(P0RM2, 

rPQRMIN) 

ICBHIT 

=   0 

JCBHIT 

=   0 

IHIT    = 

0 

IBHIT    = 

0 

JBHIT    = 

0 

CALL  INITEQ 


IND  =  0 

T  =  TO 

DT  =  DTCQMP 

NEQ  =  22 

PSIMAX  =  135.0*RAD 

CALL  PLGTTP(l) 

CALL  OUIPUT(O) 

2  CALL  PINT1(1,MODE,NEO,T,DT,U,DU,EBAR) 
IF  (ISTOP.NE.  0)  GO  TO  6 

3  IF{TPRINT.GT.T+.1*DT)  GO  TO  4 
CALL  OUTPUT(l) 

TPRINT  =  TPRINT-fOTPRNT 
CALL  PL0TTP(2) 

4  IDRIVE  =  0 

IF(TPATH.GT.  T+0.1*DT)  GO  TO  40 
C  SUBROUTINE  DRIVER  WILL  DETERMINE  PSIl  DURING  FIRST  INC 

C  TO  AVOIDt  INITIALIZE  TPATH  ABOVE  AS  TO+DELPTH 

IDRIVE  =  1 

TPATH  =  TPATH  ■»■  DELPTH 
40  NLDCTR  =0 

CALL  P1NT1(2,M0DE,NE0,T,DT,U.DU»EBAR) 

IF    (ISTOP.NE.    0)    GO    TO   6 
C  THETTL,PHITL,PSITL    ARE    VALUES    OF    THETT, PHIT.PSIT    FROM 

C  TIME    INTERVAL,    USED    TO   TEST   NEW    ANGLES  IN    SUBROU 

THETTL    =   THETT 

PHITL       =   PHIT 

PSITL      =   PSIT 

IF(INDB.NE.O)    CALL    EGYSUM 

IF(T.GE.Tl)    GO   TO   6 

IF(U**2-»-V**2+W**2.LE.UVWM2.AND.P2+Q2*R2.LE.PQRM2)    GO   TO   6 

IF(ABS(PHIT).GE.PI02)    GO    TO    6 


MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 

REMENT  MA 
MA 
MA 
MA 
MA 
MA 
MA 
PREVIOUMA 

TINE  TMCMA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 


IN20  30 
IN2040 
IN  20  50 
IN  20  60 
IN  2070 
IN  20  80 
IN  20  90 
IN2100 
IN2110 
IN2120 
IN2130 
1N2140 
IN  21 50 
IN2160 
IN2170 
IN2180 
IN2190 
IN  2200 
IN2210 
IN  22  20 
IN22  30 
1N2240 
IN  22  50 
IN  22  60 
IN  22  70 
IN  22  80 
IN  2290 
IN  23  00 
IN2310 
IN  2320 
IN  23  30 
IN  23  40 
IN  23  50 
IN2360 
IN  23  70 
IN  23  80 
IN  23  90 
IN2^00 
IN2410 
IN  24  20 
IN  24  30 
IN  24  40 
IN  24  50 
IN  24  60 
IN2470 
IN  24  80 
IN2490 
IN  25  00 
IN  25  10 
IN25  20 
IN  25  30 
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IFdNDB.NE.O.AND.PSIT.GE.PSIMAX)    GO    TO    6 

IFdPATHT    .NE.    0)    GO    TO    6 

IF(ABS(THETTP) .LT.THETMX)    GO    TO    5 
C  XINDL    IS   PREVIOUS    VALUE    OF   XINDN.    XINDL    INITIALLY    ZERO   GETS 

C  XINDN.NE.0.0    FOR    THETAO    OR    PHIO    .NE.0.0,    OR    AFTER    IND 

C  THAT    IS       THETN    OR    PHIN    NOW    .NE,    0.0 

C  USED    IN    MAIN    PROGRAM    AND    IN    SUBROUTINES    CNSTNT tTMCNST 

THETN    --    THETT 

THETTP-^    0,0 

PHIN 


i>hITP 

PSIN 

OSITP 

XINDL 

XIND.NI 

INO-l 

IND    = 


PHll 

OeO 

PS  IT 

0.0 
XINr»N 

XI.'iDN    +1.0 
iNDiv"ATO:^    FOR    RE-INITIALIZATION    IN    PINTl 


GC    TO    56 


5    IFdMDCRS.EC.OJ 
'iO    DO    51       1=1,4 

IF( .N0T.LCb2(I ) >    GO    70    5  3 
5?.    CONTINUE 

ICBhIT    =    2 
"^2    IF(  ICBHIT. tsj.JCbHlD    GO    TO    i>6 

JCHHIT    -    IC6HIT 

INO    -    1 

DT    =    DTCOMP 

GO    TO    56 

53  DO    54       1=1,4 
IF(LCB1{I} )    GO    TO    55 

54  CONTINUfc 
ICBHIT    =   0 
GO    TO    52. 

55  ICSHIT    =    I 
IHIT    =    1 

IF    (ICBHIT.EO.JCBHIT)    GO    JO    56 
JCBHIT    ~    ICBHIT 
IND    =    0 
DT    =    DELTC 
60    TO    2 

56  IF(INDB.EQ.O)    GO   TO    58 
IFdBHIT.EO.JBHIT)    GO    TO    59 
IFdBHIT.GT.JBHIT)    GO    TO    57 
JBHIT    =    IBHIT 
IFdCBHIT.EQ.l)    GO    TC   58 

DT    =    DTCOMP 
IND    =    0 
GO    TO    2 

57  JBHIT    =    IBHIT 
DT    =    DELTB 
IND    -    0 

GO    TO    2 


MA  IN 25  40 

MAIN25  50 

MAIN2560 

BNMTXMAIN25  70 

EXING    MAIN2580 

MAIN2590 

MAIN2600 

MA  IN  26  10 

MAIN2620 

MA  IN  26  30 

MA  IN  26  40 

MAIN26  50 

MA  IN  26  60 

MAIN26  70 

MAIN26bO 

MA  IN  16  90 

MAIN2700 

MAIN2710 

MAIN2720 

MAIN2730 

MAIN2740 

MAIN2750 

MAIN2760 

MAIN2770 

MAIN27eO 

MA  IN  27  90 

MA  IN  2800 

MA1N28I0 

MAIN28  20 

MAIN2i  '10 

MA  IN  23  '"0 

MAlN2ti50 

MAINiei'O 

MAIN2fa70 

MA  IN  28 80 

MA  IN  28  90 

MAIN2900 

MA  IN  29  10 

MAIN2920 

MA  IN 29 30 

MAIN2940 

MA  IN  29  50 

MA  IN  29  60 

MAIN29  70 

MAIN2980 

MAIN2990 

MA  IN  30  00 

MAIN3010 

MA  IN 30  20 

MA  IN  30  30 

HAIN3040 
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MAIM30  50 

58  IF(IND.fcQ.O)  GO  TO  3  MAIN3060 
IND  =  0  MAIN30  70 
GO    TO    2  MAIN3080 

MA  IN  30  90 

6    CALL    OUTPUT(l)  MAIN3100 

CALL    PL0TTP(3)  MAIM3110 

IFdSTOP    .NE.    0)    WRITE(6,59)    ISTOP  MAIN3120 

59  FORMATdTH         ERROR,     ISTOP    =    ,       13)  MAIN3130 

CALL    PL0TTP(3)    CAUSES    DISTINCTIVE  RECORD    ON    TAPE    FOR    END    OF    RUN,MAIN3140 

60    TO    1  MAIN3150 

END  MA  IN  31  60 
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SUBROUTINE    AREA  AREAOOIO 

C                                    HV0SM-RD2    VERSION  AREA0020 

C                                    REVISED    OCTOBER    1975         CALSPAN    CORPORATION  AREA0030 

COMMON    /DIMV/X1P,X2P,X3P,X4P,Y1P,Y2P,Y3P,Y4P,Z1P,Z2P,Z3P,Z4P,PHI1,AREA00  40 

1  PHI2tPHI3,PH14,PSll,PSI2,PSI3,PSI4.CAYW(4),CBYW(4),  AREA0050 

2  CGYW(4)  ,ZPGI (4),THGI{4),PHGI(A) »CPG(4) ,SPG(A)  ,CTG(A) ,ARFA0060 

3  STG(A) ,CAGZ(4),CBGZ(4),CGGZ(4)tDH4),D2(4),D3(4),  AREA0070 

4  XLM1(4) ,XLM;.{4),XLM3(4),AMTX(3t3),CMTX(3t4),XGPP(4),  AREAOOBO 

5  YGPP(4) ,ZGPP(4)»DMATX(10,11),DELTA(4),CAR(4),CBR(4),  AREA0090 

6  CGR(4) ,FR(4) »HI(4» ,FC<4),TI(4),AX(4),BX(4),CX(4),  AREAOIOO 

7  CTXG(4),UG(4),STXG(4),AY(4),6Y(4),CY(4),CPYG(<»),  AREAOllO 

8  SPYG(4) ,V&(4),PSIIP(4) ,PHICI (4) ,CaC(4) ,CBC(4) ,CGC(4) ,ARtA0I20 

9  FCXU(4) ,FCYU(4) , FCZU( 4 ) , FS (4 ) »C AXW( 4) ,CBXW(4)  ,CGXW( 4 ) AREAOl 30 
COMMON    /UIMV/AS<4) ,BS(4) ,CS (4 ) ,C AS ( 4) ,CBS ( 4) , CGS (4 ) , BE TP (4 ) ,  AREA0140 

1  BETBR(4),FSXU{4) ,FSYU(4> ,FSZU(4) ♦FRXU(4) ,FRYU(4) ,  AREA0150 

2  FRZU{4)  ,FXU(4),FYU(4)  ,FZU(4) ,SI(4),F1FI(2),FIRI(2),  AREA0160 

3  F2FI(2) ,F2RI(2),CAH(4),CBH(4) ,CGH(4)  AREA0170 
DIMENSION  XP(4),YP(4),ZP(4),PHII(4),PSII(4)  AREA0I80 
EQUIVALENCE     (XP (1  ) , XIP  ) ,  ( YP ( 1 ) , YIP ) , ( ZP{ 1 ) ,Z1P),{PHII( 1) ,PHI1),  AREA0I90 

1                                  (PSIKl)  ,PSI1)  AREA0200 

C0MM0N/6ARIER/FN,IBHIT,JBHIT,XCPNP(3),YCPNP(3),ZCPNP(3),XCPN(3),  AREA  02 10 

1  YCPN(3 ),ZCPN(3),AA1(17),EB1(17)  ,CC1( 17),RR1( 17),  AREA0220 

2  AA2(17),BB2(17)  ,CC2(  17)  ,RR2(17)  ,CAB,CbB,CGF..CABT,  AREA0230 

3  CBBT,CGB7,Rb,XBT,YBT,ZBT,XBB,YBB,ZBB tRR2P( 17 ) ,  AREA0240 

4  YBPT,XNN(17),YNN(17) ,ZNN{ 17),XMTX(3,4),IDPT( 17) ,IPT  AREAG250 

5  ,ININD,UNP(17) ♦VNP(17),WNP(17),VMAX(4),I1,12,I3,I4,  AREA0260 

6  XCPTP,YCPTP,ZCPTP,XCPbP,YCPBP,ZCPBP»YCPMP,AINTI,  AREA0270 

7  AlNTP,SXR,SYR,SZR»SDLNtXRI,YRItZRI,FRICT,DbLBBtVTAN,AREA02  80 

8  FNP,FB,URP,VRP,WRP,EPSL,XLDP,DELX,VL,NCYCttEE»ENRGY,AREA02  90 

9  NSEG,YBPTP fPCABtPCBB,PCGB»PPRb,CABltCBBl tCGBl,  AREA0300 
A  RBl,NUNLD,NLDCTR,VDEF,PVDEF,PSZRtXF,DELBBP,  AREAOSiO 
B                                       SWORK,SPENGY,DISS,IPLN,ILOAD  AREA0320 

DIMENSION    INDXPT(4)  AREA0330 

EQUIVALtNCE     ( INDXPT(  1 )  , II )  AREA0340 

DIMENSION   XTTT(4),ZTTT(4),SL0P{4J  AREA0350 

LOGICAL    S2GS3,S2GS4,S3GS4  AREA0360 

XRIP    =    XRI  AREA0370 

YRIP    =    YRI  AREA03e0 

ZRIP    =    ZRI  AREA0590 

AINTP    =    AINTI  AREA0400 

IF(IPT.Eg.3)6Q    TO    62  AREA0410 

XMIN    =    1,0E30  AREA0420 

1    DO    2    J  =  l,4  AREA0430 

IJ    =    INDXPT(J)  AREA0440 

XTTT(J)     =    AMTX( 1,1)*XNN( IJ)+AMTX(1,2)*YNN(IJ)*AMTX( 1»3)*ZNN(IJ)  AREA0450 

ZTTT(J)    =    AMTX(3,1)*XNN( 1J)+AMTX(3,2)*YNN(IJ>+AMTX(3,3)*ZNN(IJ)  AREAC460 

IF{XTTT(J).GT.XMIN)GC    TO    2  AREA04  70 

JMN    =    J  AREA0480 

XMIN    =    XTTT(J»  AREA0490 
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2  CONTINUE 

IF(  JMN.EQ.DGO    TO   3 
TMPl    =    XTTT(l) 
TMP2    =    ZTTT(1» 
XTTT(l)    =   XTTT(JMN) 
ZTTTd  )    =    ZTTT(JMN) 
XTTT(JMN)    =    TMPI 
ZTTTIJMN)    =    TMP2 
IJ    =    INDXPTd) 
INDXPT(l)    =    INDXPT(JMN) 
INDXPT(JMN)     =    IJ 

3  DO    4    J=2,4 

TMPl    =   AMAXl(XTTT(J)-XTTT(l)tl.0E-30) 
TMP2    =    ZTTT(J)-ZTTT(1) 
SLOP(J)    =   TMP2/TMP1 

4  CONTINUE 

S2GS3    =    SL0P(2).GT.SL0P(3) 
S2GS4    =    SL0P(2).GT.SL0P(4> 
S3GS4    =    SL0P(3).GT,SL0P(4) 
IF(S2GS3)G0    TO    5 
IF(S2GS4)G0    TO    62 
JMN    =    4 

IF<S3GS4)G0    TO    6 
JMN    =    3 
GO    TO    6 

5  IF( •N0T.S2GS4)G0    TO    62 
JMN    =    3 
IF(S3GS4)G0    TO    6 

JMN    =    4 

6  IJ    =    INDXPT(2) 
INDXPT(2)    =    INDXPHJMN) 
INDXPT(JMN)     =    IJ 

62  TMPX  =  XNNII1)-XNN(I2) 
TMPY  =  YNN(I1)-YNN(I2) 
TMPZ  =  ZNN(I1)-ZNN(I2) 

7  AIP  =  TMPY«C&B-TMPZ*CBE 
BIP  =  TMPZ*CAB-TMPX*C&B 
CIP    =    TMPX*CBB-TMPY*CAB 

DIP    =    SQRT(AIP**2*BIP**2*CIP**2) 

S3I     =    SQRT(TMPX**2*TMPY**2+TMPZ**2) 

S2I     =    0,0 

IF(IPT.EQ.4)  S2I  =  ABS(AIP*(XNN(I4)-XNN(I2))*BIP*(YNN(I4)-YNN(I2) 
1  ♦CIP*(ZNN(I4)-ZNN(I2))}/DIP 

SlI  =  AbS(AIP*<XNN(I3)-XNN(I2))+BIP*(YNN{I3l-YNN(I2))+CIP*(ZNN(I3 
I  -ZNN(I2)  )}/DIP 

AINTI    =    •5*S3I»<S1I+S2I) 

8  ACl  =  •5*(XNN(I1)+XNN(I2))-XNN(I3) 
BCl  =  .5*(YNNCI1I*YNN(I2))-YNN(I3) 
CC3  =  .5*(ZNN(I1)+ZNN(I2))-ZNN(I3) 
AC2  =  .5*(XNN(I1)*XNN(I3>)-XNN(12» 
BC2    =    .5*(YNN(I1)+YNNCI3))-YNN(I2) 


AREA  05  00 
AREA05  10 
AREA05  20 
AREA  05  30 
AREA05  40 
AREA 05  50 
AREA  05  60 
AREA  05  70 
AREA05  60 
AREA0590 
AREA  06  00 
AREA0610 
AREA0t>20 
AREA  06  30 
AREA0640 
AREA  06  50 
AREA  06  60 
AREA06  7b 
AREA  06  80 
AREA  06  90 
AREA  07  00 
AREA0710 
AREA  07  20 
AREA0730 
AREA0740 
AREA0750 
AREA07  60 
AREA  07  70 
AREA  07  80 
AREA  07  90 
ARE A 08 00 
AR  bA08  10 
AREA  08  20 
AREA  08  30 
AREA  08  40 
AREA06  50 
AREA  06  60 
AREA  08  70 
AREA08  80 
AREA06  90 
AREA  09  00 

>  AREA  09 10 
AREA  09  20 

)AREAC930 
AREA  0940 
AREA09  50 
AREA  09  60 
AREA  09  70 
AREA  09  80 
AREA09  90 
AREA  10  00 


124 


DATE   01/12/76 


TIME       1729 


UPDATE    RECORD 


10 


11 


12 


13 


CC4    =    .5*(ZNN( I1)*ZNN(I3»)-ZNN( 12) 

NNNN    =     1 

ACIP    =    BC1*CGB-CC3*CBB 

BCIP    =    CC3*CAB-AC1*CGB 

CCIP    =    AC1*CBB-BC1»CAB 

Gl    =    AC1P*XNN(I3)+BC1P*YNN(I3)+CC1P*ZNN(I3) 

AC2P    =    BC2*CGB-CC4*CBB 

BC2P    =    CC4*CAB-AC2*C&B 

CC2P    =    AC2*CBB-BC2*CAB 

G2    =    AC2P*XNN(I2)+BC2P*YNN(I2)+CC2P*ZNNa2) 

CAB 

CBB 

CG8 

RB 

ACIP 

BCIP 

CCIP 

Gl 


XMTX(1,1) 
XMTX(1,2) 
XMTX(1,3) 
XMTX(1,4) 
XMTX(2,1) 
XMTX(2,2) 
XMTX(2,3) 
XMTX(2,^) 
XMTX(3,1) 
XMTX(3,2) 
XMTX(3,3) 
XMTX(3,4) 


AC2P 
BC2P 
CC2P 
G2 


TO    (lltl2)fNNNN 


CALL    SIMS0L(XMTX,3t3) 

XQI    =    XMTX(1,4) 

YOI     =    XMTX(2,4) 

ZQI    =    XMTX13,4) 

IF(  IPT.b(J.4)    GO 

XRI    =    XOI 

YRI    =    YQl 

ZRI    =    ZQI 
13 
XQI 
YQI 
ZQI 

.5*(XNN( Il>+XNNl 12 ) )-XNN( lA) 
.5*(YNN( I1)+YNN(I2) )-YNN( 14) 
.5*( ZNN( 1 1 )+ZNN(I2 ) )-ZNN( 14) 
.5*(XNN(I1)*XNN<I4))-XNN(I2) 
.5*(YNN{I1)*YNN(I4>)-YNN(I2) 
.5*(ZNN(I1)+ZNN(I4))-ZNN(12) 


GO    TO 

XPI    = 

YPI    = 

ZPI    = 

ACl    = 

BCl    - 

CC3    = 

AC2    = 

BC2    = 

CC4    = 

13    =^    14 

NNNN    =    2 

GO    TO    9 

TEMP    s    S2I/{S1I-»^S2I) 

XRI    =    XPI*TEMP*(XQI-XPI) 

YRI    =    YPI+TEMP*(YQI-YPI) 

ZRI    =    ZPI+TEMP*{ZQI-ZPI) 

IF(AINTP.NE.O,0)GO   TO    14 

XRIP    =    XRI 

YRIP    =    YRI 

ZRIP    =    ZRI 


AR  EA  10  10 
AREA  10  20 
AREA  10  30 
AREA  10  40 
AREA  10  50 
AREA  1060 
AR  EA  10  70 
AREA  10  80 
AREA  1090 
AREA  1100 
AREA  11 10 
AREA1120 
AREA  11 30 
AREA  11 40 
AREA  11 50 
AREA  11 60 
AREA1170 
AREA  11  60 
AREA  11  90 
AREA  12  00 
AR  EA  12  10 
AREA  12  ZO 
AREA  12  30 
AR  EA  12  40 
AREA1250 
AREA  12  60 
AREA  12  70 
AR  EA  12  80 
AREA  12  90 
AREA  1300 
AREA  13  10 
AREA  13  20 
AREA  13  30 
AREA  1340 
AREA1350 
AREA  1360 
AR  EA  13  70 
AREA  13  80 
AREA  13  90 
AREA  1400 
AREA  14  10 
AREA  14  20 
AREA  1430 
AREA  1440 
AREA  14  50 
AREA  1460 
AREA  14  70 
AREA  1480 
AREA  1490 
AREA  15  00 
AREA  15  10 
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DATE       01/12/76 


TIME       1729 


UPDATE    RtCORb 


1-^    TEMP    =     .5«(  AINTI+ATNTP) 

SDEN    =    i,DEN  +  TEMP 
IF(NUNLU.NE.C)Gu    TO    IS 
SXR    =    SXR  +  TEMP*  (XRl  >XR1P  )*,'J 
SYR     =     SVK+TEMP*{YRI*YRIP )*.3 
SZ"^    =    L/:R+TEMP*  !  Z'^IwiRIP  3*.5 
15    RETURN 
END 


AR  EA  13  20 

AR£A1'j3C 
ARFAli.^0 
ARbA  lb  10 
AR£A1^^60 
ARfcAIf>70 
AREA  1^80 
AREA  li  90 
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SUBROUTINE    BLKOl (NBLK, NBCRD.NSEO ,NCARD, DUM ,NERR ) 
C  HV0SM-RD2    VERSION 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION 

COMMON/HEAD/    VHED( 20 ) »CHED(20 ) .GHED (20 ) , SHED ( 20 ) ,T 
1  NPAGE(20) 

COMMON/ INPT/PHIO,THETAOtPSIO,PO,QO,RO,XCOP,YCOP,ZC 

1  A,B,DEL10,DEL20,DEL30,PHIR0,DEL10D,DEL 

2  PHIROD,TF,TRfZF,ZR»RHO,AKRS,XMURt 

3  XMS,XMUF,XIX,XIY,XIZ,XIXZtCF,AKF,XLAMF 

4  RF,CR,AKR,XLAMR,OMEGR,CRP»EPSR,RR,TS.T 

5  Tl,OTCMPl,DTPRNTtMODE,EBAR,EM,AAA,HMAX 

6  HE0(36),DA0E(3l,XIR,Xl,Yl,Zl,X2tY2,Z2, 

7  DELE,DDtL,NDEL,PSIF(50),TQF(50),T0R<50 

8  NZ  T AB , NZ  5t  XB  DRY( 4 , 5 ) ,PSBDRY ( 4 , 5 ) t  YBDRY 

9  NBY(5),NTBLl,NTBL2,NTBL3,ZGP(21t21t5) 
C0MM0N/INPT/XB(5),XE(5),XINCR(5) ,NX ( 5 ) ,YB ( 5 ) i YE( 5 ) 

1  XXZGP5(21),YYZGP5(21) , AMUG( 5 ) ,PSBDR0(4,5 

COMMON/ INPTl/Y CI PtYC2PtZC2PtDELTCtPHICltPHIC2,AMUC 

1  CPSPtOMGPS,AKPSfEPSPStXPS,RWHJB,RWHJE 

2  PSIFIOfPSlFDO 
DIMENSION    YC1P(2) 
EQUIVALLNCE     tYCIP ( 1 ) t YCl P > 

COMMON  /INPT2/  YBPO, ZBTP ,ZBBP tXVF, XVR, YV , ZVT, ZVB tA 
SET,CONS,AMUB,EPSV, EPSB,XM,EPST,DDD 
DELTB,XINPT(100) 

XlFtRH0F,TSF,PHIF0,PHlFOD,DEL40,DEL 
AKDSf AKDSltAKDS2tAKDS3tPHIRC(50),DT 
NCAMF,NCAMR,NDTHF,NDTHR 
YC3Pf YC4P,YC5PtYC6PtYCLPf 
ZC3PtZC4P,ZC5P,ZC6P,ZCLP, 
PHlC3,PHIC4,PHlC5tPHIC6,NCRBSLt 
TANPC3,TANPC4,TANPC5,TANPC6,TANPCLt 
PHIC3R,PHIC4R,PHIC5R,PHIC6R,PHICLR, 
YCMP(6),ZCMP(6),PHICM(6) 

DIMENSION   DUM{18» 

DATA    NBS/4/ 

NBT    =    NBCRD+l 

IF(NBT.LT.1,0R.NBT.GT.NBS+1)    GO    TO    98 

GO    TOdOO, 101, 102, 103, 104), NBT 

GO    TO    98 

IF(NCARD.NE,100)    GO    TO    98 

DO    10    1=1,18 

HED(I)    =  DUM (I ) 

GO    TO    99 

IF(NCARDJ^E.lOl)    GO    TO   98 

TO  =   DUM (II 

Tl  =   DUM (2) 

DTCOMP    =  DUM (3) 

DTPRNT    =   DUM(4) 


COMMON    /INSUS/ 


COMMON/NEWCRB/ 


HED(20), 

0P,U0,V0,W0, 
20D,DEL30D, 

,OME&F,CFP,EPSF 
HMAX, DTCOMP, TO, 
,HMIN,BET,G, 
PHIC(50) jDELB, 
),TB,TE,TINCR, 
(2,5),NBX(5), 

,YINCR(5),NY(5) 
)  ,UVWMIN,PORMIN 
,XIPSt 
,DRWHJ,INDCRB, 


KV,SIGR( 11), 
,INDB,DELYBP, 

40D,ISUS, 
HF(50) ,DTHR(50) 


100 


10 


101 


BLKIOOIO 
BLK10020 
BLK100  30 
BLK10040 
BLK100  50 
BLK10060 
BLK100  70 
BLK100  80 

,BLK100  90 
BLKIOIOO 
BLKlOllO 
BLK10120 
BLK10130 
BLK10140 
BLK10150 

,BLK10160 
BLK10170 
BLK10180 
BLK10190 
BLK10200 
BLK102  10 
BLK10220 
BLK102  30 
BLK10240 
BLK102  50 
BLK10260 

,BLK102  70 
BLK102  80 
BLK10290 
BLK10300 
BLK10310 
BLK10320 
BLK10330 
BLK10340 
BLK103  50 
BLK10360 
BLK103  70 
BLK103  80 
BLK10390 
BLK10400 
BLK.10410 
BLK104  20 
BLK10430 
BLK10440 
BLK10450 
BLK10460 
BLK104  70 
BLK10480 
BLK10490 
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102 


103 


104 


98 
99 


THMAX  =  DUMI5) 
UVWMIN  =  DUM<6) 
PQRMIN  =  DUM(7) 
60  TO  99 

lF(NCARD,Ne.l02)    GO    TO   98 
ISUS    :=    IFIX(DUM(1)) 
INDCRB    =    IFIX(DUM(2) ) 
NCRBSL    =    IFIX(DUM(3)) 
DELTC    =    DUM(4) 
INDB    =    IFIX<DUM(5)) 
UELTB    =    DUM(6) 
IF(INDCRB.NE.O)    NPAGt(5)     = 
IFdNDb.EQ.O)    GO   TO    99 
NPAGE(17|    =    1 
NPAGE( 18)    =    1 
NPAGE(19)    =    1 
GO    TO    99 
IF(NCARD,NE.103) 


MODE 

EBAR 

EM 

AAA 

HMAX 

HMIN 

BET 

GO    TO 


=  DUM(l) 
=  DLW(2) 
=  DUM(3) 
=    DUM(4) 

'    DUM(5) 

'    DUM(6) 

■'    DUM(7) 

99 


GO    TO   9  8 


^^  jm  -p  =.    poAi  ft^ ) 

IF(NCARD,NE.104)    GO    TO    98 
NPAGE(4)    =    DUM(l) 

DUM(2) 

DUM(3) 

DUM(4) 

DUM(5) 

DUM(6) 

DUM(7) 


NPAGE(6)    = 
NPAGE(7)    s 
NPA&E(e)    = 
NPAGE(9)    = 
NPAGE( 10)s 
NPAGfc(lA)= 
GO    TO    99 
NERR    =    1 
RETURN 
END 


BLK10500 

BLK10510 

BLK105  20 

BLK1O530 

BLK10540 

BLK10550 

BLK10560 

BLK105  70 

EUK105  80 

BLK10590 

BLM06  00 

BLK10610 

BLK10620 

BLK10630 

BLK10640 

EL  Kl  06  5.0 

BLK106  60 

BLK10670 

BLK106  80 

BLK106  90 

BLK10700 

BLK10710 

BLK10720 

BLK1C730 

BLK10740 

BLK10750 

BLK1G760 

BLK10770 

BLK10780 

BLK10790 

BLK108  00 

BLK10810 

BLK108  20 

BLK10830 

BLK10840 

BLK108  50 

BLK108  60 

BLK108  70 
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SUBROUTINE    BLK02 (NBLK,NBCRD,NSEO,NCARD, DUM.NERR )  BLK20010 

C  HV0SM-RD2    VERSION  BLK20O20 

C  REVISED    OCTOBER     1975         CALSPAN    CORPORATION  BLK2OO30 

COMMON/HEAD/    VHED( 20 ) ,CHED( 20 ) ,GHED(20) , SHED (20) ,THED{20),  BLK20040 

1  NPAGt(20)  BLK200i>0 

COMMON/ INP T/PHI Of  THE TA0tPSIOtP0,QOtR0tXCOP,YCOPfZC0P,UO,VOt WO t  BLK200  60 

1  A,BfDEL10,DEL20,DEL30,PHIR0,DEL10DtDEL20D,DEL30D,  BLK2007C 

2  PHIRODtTF,TR,ZFf ZRf RHO,AKRS,XMUR,  BLK20060 

3  XMS,XMUF,XIX,XIY,XlZtXIXZtCF,AKF,XLAMF tOMEGF,CFP,EPSF»BLK2  00  90 

4  RF,CR,AKR,XLAMR,OMEGR,CRPf  f.PSR,RR,TS,THMAX,DTCOMP,TO,  BLK20100 

5  T1»DTCMP1,DTPRNT»M0DE,EBAR,EM,AAA,HMAX,HMIN,BET,G,  BLK20110 

6  HED(36),DADE (3)»XIR,X1,V1,Z1,X2,Y2,Z2,PHIC(30),DELB,  BLK20120 

7  DELE,DDEL,NDEL,PSIF(50) ,TOF (50),TQR(50),TB,TE,TINCR,  BLK20130 

8  NZTAb,NZ5fXBDRY(4,5) ♦PSBDRY(4,5),YBDRY(2,5)tNBX(5),  BLK20140 

9  NBY(5),NTBLltNTBL2,NTBL3,ZGP(21,21,5)  BLK201&0 
C0MM0N/INPT/XB(5),XE{5),XINCR{5) ,NX(5) » YB { 5 ) , YE ( 5) , YINCR (5 ) ,NY ( 5 ) ,BL K201 60 

1  XXZGP5<21) ,YYZGP5(21) , AMUG( 5 ) ,PSbDR0(4,5 ) tUVWMIN tPORMI N  BLK2  0170 

COMMON/ INPTl/YClPtYC2PtZC2P»DELTCtPHICl,PHIC2,AMUC,X IPS,  BLK20180 

1  CPSPtOMGPStAKPSfEPSPS,XPS,RWHJB,RWHJE,DRWHJ,INDCRb,  BLK20190 

2  PSIFIOtPSIFDO  BLK20200 
DIMENSION  YC1P(2)  BLK20210 
EQUIVALENCE  (YCIP( 1) tYCl P  )  BLK2C220 
COMMON    /INPT2/    YBPO, ZBTP ,ZBBP,XVF, XVR , YV .ZVT, ZVB ,AKV,S IGR ( 11 ) ,  BLK20230 

1  SET, CONS, AMUB,EPSV,EPSB,XM,EPST,DDD,INDB,DELYBP,  BLK20240 

2  DELTB,XINPT{100)  BLK20230 
C0MM0N/INPT3/    AKFC, AKFCP ,OMEGFC , AKFE, AKFEP ,OMEGFE, AKRC ,AKRCP ,  BLK202  60 

1  0MEGRC,AKRE,AKREP,0MEGRE,END3  BLK20270 

COMMON/ APT ABL/    APFR ( 21 ,2 ) ,1 APFR { 2) ,DAPFB , DAPFE,DDAPF,NAPF,  BLK2  02&0 

1  DAPRB,DAPRE,DDAPR,NAPR  BLK20290 

DIMENSION   APF(21  ),APR(21  )  BLK20300 

EQUIVALENCE     ( APFR  ( 1 ,  1)  ,APF(  1 )  )  ,  (  APFRd  ,2  )  ,APR  ( 1 )  )  BLK20310 

COMMON    /INSUS/    X  IF ,RHOF, TSF,PH1F0,PHI FDD, DEL40,DEL40D, ISUS ,  BLK20320 

1  AKDS,AKDS1,AKDS2,AKDS3,PHIRC(50I,DTHF(50>,DTHR(50),BLK20330 

2  NCAMF,NCAMR,NDTHF,NDThR  BLK20340 
CQMM0N/BARSTR/XSTI0(3),YSTI0(3),ZSTI0{3),XSTI(3),YSTI(3),  BLK2  03  50 

1  ZSTI(3),YSTIP0(3) ,XSTIP(3),YSTIP(3),ZSTIP(3),  BLK20360 

2  FNSTI(3),AKST{3)  BLK20370 
DIMENSION  DUM( 18)  BLK20380 
DATA  NBS/14/  BLK20390 
NBT=NBCRD+1  BLK20400 
IF(NBT.LT.1,0R.NBT.GT.NBS+1)  GO  TO  98  BLK20410 
GO    T0(200, 201, 202, 203, 204, 205, 206, 207, 208, 209, 210, 211,  BLK20420 

1  212, 213, 214), NBT  BLK20430 

GO    TO    98  BLK20440 

200  IF(NCARD.NE.200)    GO    TO    98  8LK20450 
00    10    1  =  1,18  BLK20460 

10    VHED(I)    =    DUM( I )  BLK20470 

GO    TO    99  BLK20460 

201  IF(NCAR0J^E,201)    GO    TO   98  BLK20490 


129 


202 


203 


30 


204 


205 


DATE      01/12/76 

TIME       1729 

XMS 

=    DUMd) 

XMUF 

=    DUM(2) 

XMUR 

=    DUM<3) 

XIX 

=    DUM(4) 

XIY 

=    DUM(5) 

XIZ 

=    DUM(6) 

XIXZ 

=    DUM(7I 

XIR 

=    DUM(8) 

XIF    = 

DUM(9) 

GO    TO 

99 

IF(NCARD,NE.202)    GO 

TO 

98 

A          = 

DUM(l) 

B 

DUM(2) 

TF      = 

DUM(3) 

TR       = 

DUM(4) 

RHO    = 

DUM(5) 

TS    = 

DUM<6) 

UPDATE    RECORD 


RHOF    =    DUM(7) 

TSF    =    DUM(8) 

G    =    386.4 

IF(DUM(9).NE.0.0)    G    =    DUM(9} 

GO    TO    99 

IF(NCARD.NE.203)    GO    TO    98 

XI    =    OUM(l) 

Yl    =    DUM(2> 

Zl    =    DUM(3) 

X2    =    DUM(4) 

Y2    =    DUM(5) 

Z2    =    DUM(6) 

DO    30    J=l,6 

IF{DUM( J).NE.O.O>    NPAGE(16)    =    1 

CONTINUE 

ZF    =    DUM{7I 

ZR    =    DUM(8) 

GO    TO    99 

IF(NCARD.NE.204)    GO    TO   98 

AKF  =   DUMd  ) 

AKFC  =   DUM(2) 

AKFCP      -   DUM(3) 

AKFE  =   DUM(4» 

AKFEP       *    DUM(5> 

XLAMF       =   DUM(6) 

OMEGFC    =   DUM(7) 

OMEGFE    =   DUM(8} 

GO    TO    99 

IF(NCARD.NE. 205)00    TO   98 


AKR 

AKRC 

AKRCP 

AKRE 

AKREP 


OUM(l) 
DUM(2) 
DUM(3) 
DUM(4) 
0UM(5) 


BLK2  05  00 
BLK2  0510 
BLK20520 
BLK205  30 
BLK20540 
BLK205  50 
BLK20560 
BLK205  70 
BLK20580 
BLK2  05  90 
BLK20600 
BLK2  06  10 
BLK20620 
BLK206  30 
BLK20640 
BLK206  50 
BLK20660 
BLK20670 
BLK206  80 
BLK20690 
BLK20700 
BLK2  0710 
BLK20720 
BLK2G730 
BLK20740 
BLK207&0 
BLK20760 
BLK20770 
BLK207  80 
BLK2079C 
BLK20bG0 
BLK20810 
BLK208  20 
BLK2  08  30 
BLK208  40 
BLK208  50 
BLK206  60 
BLK208  70 
bLK2  0880 
BLK2G8  90 
BLK209  00 
bLK209  10 
BLK209  20 
BLK209  30 
BLK2  09AO 
BLK20950 
BLK2  0960 
BLK20970 
BLK20980 
BLK20990 
BLK21000 
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206 


207 


208 


209 


210 


XLAMR 

-  DUMI6) 

OMEGRC 

=  DUM(7) 

OMEGRE 

=  DUM(8) 

GO  TO  ' 

99 

IF(NCARD.NE*206) 

CF 

DUM(l) 

CFP   = 

DUM(2) 

EPSF  = 

DUM(3) 

CR 

DUM(4) 

CRP   = 

DUM(5) 

EPSR  = 

DUM(6) 

GO  TO  ' 

99 

GO    TO   9  8 


IF(NCARD.NE.207) 
RF  =  DUM(l) 
RR  =  DUM(2) 
AKRS  *  0UM<3) 
AKDS  =  DUM(4) 
AKDSl  =  DUM(5) 
AKDS2  =  DUM(6) 
AKDS3  =  DUM(7) 
GO  TO  99 
IF(NCARD.NE.208) 


GO    TO    9  8 


GO    TO    98 


XIPS 

CPSP 

OMGPS 

AKPS 

EPSPS 

XPS 

GO    TO 


DUM( 1) 
DUM(2) 
DUM(3) 
DUM(4> 
DUM(5) 
DUM(6) 


99 


IF{NCARD.NE.209,0R,NSEQ.NE.0)    GO   TO   98 

DELS    =    DUM(l) 

DELE    =    DUM(2) 

DDEL    =    DUM(3) 

NDTHF    =    DUM(4) 

NDTHR    =    DUM(5) 

NDEL    -    (DELE-OELB)/DDEL    +1 

NCRDS    =    (NDEL-l)/9    ♦    1 

CALL    TREAD(NCARDtNCRDStNDEL.50,PHIC,NERR) 

IF(NERR.NE.O)    GO   TO    98 

IF(ISUS.EQ.l)  CALL  TREAD (NCARD, NCRDS, NDEL ,50 ,PHIRC .NERK) 

IF(NERR,NE.O}  GO  TO  98 

TREAD<NCARD, NCRDS, NDEL, 50, DTHF.NERR) 

98 

TREAD tNCARD, NCRDS, NDEL, 50 ,DTHR,NERR) 

98 


IF{NDTHF.NE.O)    CALL 

IF{NERR.NE.O)    GO   TO 

IF(NDTHR.NE.O)    CALL 

IF(NERR.NE.O>    GO   TO 

GO    TO    99 

IF(NCARD.NE.210.0R.NSEQ.NE.O) 

DAPFB    =    DUMd) 

DAPFE    =    DUM(2} 

DDAPF    =    DUM(3) 

NAPF    -    (DAPFE-DAPFB) /DDAPF   ♦ 


GO    TO   98 


BLK21010 
BLK2  1020 
BLK21030 
BLK21040 
BLK21050 
BLK2I060 
BLK210  70 
BLK21080 
BLK2I0  90 
BLK21100 
BLK21110 
BLK21120 
BLK21130 
BLK21140 
BLK21150 
BLK21160 
BLK21170 
BLK211&0 
BLK21190 
BLK212  00 
BLK21210 
BLK2I2  20 
BLK212  30 
BLK2  1240 
BLK21250 
BLK21260 
BLK21270 
BLK212  80 
BLK212  90 
BLK21300 
BLK21310 
BLK213  20 
BLK213  30 
BLK21340 
BLK21350 
BLK213  60 
BLK21370 
BLK21380 
BLK213  90 
BLK21400 
BLK21410 
BLK21420 
BLK21430 
BLK2  1440 
BLK21450 
BLK2  1460 
BLK2I4  70 
BLK2I480 
BLK21490 
BLK21500 
BLK21510 
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211 


212 


213 


NCRDS    =    (NAPF-l)/9    ♦    1 

CALL    TREAD (NCARD,NCRDSfNAPF»21tAPF,NERR) 

lAPFR(l)    =    1 

IF(NERR.NE.O)    GO    TO    98 

GO    TO    99 

TF(NCARD.NE.211.0R.NSEQ,NE.O)    60    TO   98 

DAPRB    =    DUM(l) 

DAPRE    =    DUM(2) 

DDAPR    =    DUM(2) 

NAPR    =     (DAPRE-DAPRB) /DDAPR    ♦    1 

NCRDS    =    {NAPF-l)/9    +    1 

CALL    TREAD (NCARDf NCRDS f NAPR, 2 Ir APR, NERR) 

IAPFR(2)    =    1 

IF(NERR.NE.O)GO    TO   98 

GO    TO    09 

1F(NCARD.NE,212)    GO    TO    9b 


214 


98 
99 


XV  F 

=  DUM<1) 

XVR 

=  DUM(2) 

YV 

=  DUM(3) 

ZVT 

=  DU«(4) 

ZVB 

=  DUM{5) 

AKV 

=  DUM(6) 

GO  TO  99 

IF(NCARD.NE,213) 

XSTIO(l)  =  DUM( 1) 

XSTI0(2)  =  DUM(2) 

XSTI0(3»  =  DUM(3) 

YSTIO( 1)  =  0UM(4) 

YSTI0(2)  =  DUM(5) 

YSTI0(3)  =  DUM(6) 

GO    TO    98 


GO    TO    99 

IF{NCARD.NE,214)    GO 
ZSTIO(l)    =    DUM(l) 
ZSTI0(2)    =    DUM(2) 
ZSTI0(3)    =    DUM(3) 
AKST(l)    =   DUM(4) 


TO  98 


AKST(2)  = 
AKST(3)  = 
GO  TO  99 
NERR  =   I 
RETURN 
END 


DUM(5) 
DUM(6» 


BLK21520 
BLK21530 
BLK215  40 
BLK21550 
BLK21560 
BLK21570 
BLK215eO 
BLK215  90 
BLK21600 
BLK21610 
BLK216  20 
BLK216  30 
BLK21640 
BLK21650 
eLK2l6  60 
BLK216  70 
BLK216  80 
BLK216  90 
BLK21700 
BLK21710 
BLK21720 
BLK21730 
BLK21740 
BLK21750 
BLK217  60 
BLK21770 
BLK21760 
BLK21790 
BLK218  00 
BLK218  10 
BLK218  20 
BLK21830 
BLK218A0 
BLK218  50 
BLK218  60 
BLK218  70 
BLK21380 
BLK218  90 
BLK219C0 
BLK21910 
BLK21920 
BLK21930 
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DATE      01/12/76 


TIME      1729 


UPDATE   RECORD 


SUBROUTINE    BLK03(NBLKtNBCRDfNSEQffNCARDf OUM,NERR| 
C  HV0SM-RD2   VERSION 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION 

COMMON/HEAD/   VHED( 20 ) »CHED(20)«GHED 120) fSHEOfZO) *THED( 20) t 
1  NPA6E(20) 

C0MM0N/INPTl/YClP,YC2P,ZC2PfDELTCfPHIClfPHIC2fAMUCfXIP$. 

1  CPSPfOMGPS* AKPStEPSPStXPSvRWHJBfRWHJEtDRWHJtlNDCRBt 

2  PSIFI0,PSIFD0 
DIMENSION  YCIP(2) 
EQUIVALENCE  (YCIP ( 1) t YClP  ) 

COMMON  /TIRIN/  AKT(4 ) tSIGT<4) »XLAMT<4) , AO K) , Al(4) f A2(  4) , A3I4) t 

1  A4(4)»0MEGT(4)fAMU(4),RW(4),FJP(35r4).A234(4)t 

2  AI2(4)t0MT2A2(4)t0MT2MI(4)tA23C4)tITIR(4) 
DIMENSION   DUM(18),TDUM(9,4) 

DATA    NBS/2/ 
NBT    =   NBCRD*1 

IF(NBT,LT.1,0R.NBT,GT.NBS*1)    GO    TO    98 
GO   T0(300t301t302)»NBT 
GO    TO    98 

300  IF(NCARD.NE«300)    GO    TO   98 
DO    10    I  =  ltl8 

10    THEDCI)    =   DUM(I) 
GO    TO    99 

301  IF(NCAR0«NE.301*OR.NSEQ.NE.O)    GO   TO   98 
ITIR(l)    s   DUM(l) 

ITIR(2)    e  DUM(2) 

ITIR(3)    =   DUM(3) 

ITIR(4)    e  DUM(4) 

RWHJE    B    DUM(5) 

DRWHJ    s    DUM(6) 

N   *    MAX0(ITIR(1),ITIR(2) fITIR(3),ITIR(4)) 

CALL    T2READ(NCARDf9t9,N«TDUM»NERR) 

IF(NERR*NE.O)    GO   TO    98 

DO    20    Islt4 

J   =    ITIR(I) 

AKT(I)    e   TDUM(1,J) 

SIGT(I)    s  TDUM(2»J) 

XLAMT(I)    «   TDUM(3tJ) 


20 


302 


AO(I) 

=    T0UM(4, 

»J) 

Al(I) 

»    TDUM(5i 

rJ) 

A2(I) 

=   TDUMI6. 

rJ> 

A3(I) 

*   TDUMI7, 

rJ) 

A4(I) 

e   TDUM(8, 

»J) 

OMEGTd)    s    TDUM(9»J) 

CONTINUE 

60    TO 

99 

IF(NCARD*NE.302)    GO 

DO   30 

I  =  l»4 

J   =    ITIRa) 

TO   98 


BLK30010 
BLK300  20 
BLK30030 
BLK30040 
BLK30050 
BLK30060 
BLK30070 
BLK30080 
BLK30090 
BLK30100 
BLK30110 
BLK30120 
BLK30130 
BLK30140 
BLK30150 
BLK30160 
BLK30170 
BLK30180 
BLK30190 
BLK30200 
BLK30210 
BLK30220 
BLK30230 
BLK30240 
BLK30250 
BLK30260 
BLK302  70 
BLK30280 
6LK30290 
BLK30300 
BLK30310 
BLK30320 
BLK30330 
BLK30340 
BLK30350 
BLK30360 
BLK30370 
BLK30380 
BLK30390 
BLK30400 
BLK30410 
BLK30420 
BLK30430 
BLK30440 
6LK30450 
BLK30460 
BLK30470 
BLK30480 
BLK30490 
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DATE   01/12/76 

AMU (I)  =  DUMiJl 

RW( I)  =  DUM( J+A) 

30 

CONTINUE 

GO  TO  99 

98 

NERR  =  !•© 

99 

RETURN 

END 

TIME       1729 


UPDATE    RECORD 


bLK30500 
BLK30510 
BLK30520 
BLK305  30 
BLK30540 
BLK30550 
BLK30&60 
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DATE       01/12/76 


TIME       1729 


UPDATE    RECORD 


SUBROUTINE  BLK04(NBLK,NB 
C  HV0SM-RD2    VERS  10 

C  REVISED   OCTOBER 

COMMON/HEAD/  VHED(20),CH 
1  NPAGE(20) 

COMMON /INPT/PH I CTHETAO, 

1  A,BtDEL10»DE 

2  PHIROD,TFtTR 

3  XMS,XMUF,XIX 

4  RF,CR,AKR,XL 

5  TI,DTCMP1,DT 

6  HED(36)tDA0E 

7  DELE,DDEL,ND 

8  NZTAB,NZ5,XB 

9  NBY(5)fNTBLl 
COMMON/INPT/XB(51fXE(5», 

1  XX2GP5(21) tVYZ 

DIMENSION   DUM( 18) 
DATA    NBS/1/ 
NBT    =    NBCRD+1 
IF(NBT.LT.1.0R.NBT.GT,NB 
GO    T0(400,401) ,NBT 
GO    TO    96 

400  IF(NCARD  JME.400)    GO    TO    9 
DO    10    I=ltl8 

10    CHED(I)     =    DUM( I) 
GO    TO    99 

401  IF(NCARD.NE,401.0R.NSEQ. 
TB  =    DUM(l) 

TE  =    DUM(2) 

TINCR    =    DUM{3) 
NTBLl    =    IFIX(DUM(4)) 
NTBL2    =    IFIX(DUM(5)1 
NTaL3    =    IFIX(DUM(6)) 
IF(NTbL2J»JE.0.OR.NTBL3.N 
IF(NTBL1*NTBL2+NTBL3.E0, 
NT    =    IFIX( (Tt-TB)/TINCR 
NCRDS    =    (NT-l)/9   ♦    1 
IF(NTBLl.EQ.O)    GO   TO    11 
CALL    TREAD(NCARDtNCRDStN 
IF{NERR.NE.O)    60   TO    98 
IF(NTBL2,EQ.O)    GO   TO    12 
CALL    TREAD(NCARD, NCRDS, N 
IF(NERR.NE.O)    GO    TO    98 
IF(NTBL3.E0.0)    GO   TO    99 
CALL    TREAD(NCARD,NCRDS,N 
IF{NERR.EQ.O)    GO   TO    99 
NERR    =    1 
RETURN 


CRD vNSEQtNCARD,DUMf NERR) 

N 

1975         CALSPAN    CORPORATION 

ED(20),GHED(20),SHED(20) ,THED(20), 


PSI0,P0 
L20,DEL 
,ZF,ZR, 
,XIY,XI 
AMR.OME 
PRNTtMO 
(3),XIR 
EL,PSIF 
DRY(4,5 
,NTBL2, 
XINCR(5 
GP5{21) 


,QO,ROtXC0 
30,PHIR0,D 
RHO,AKRS,X 
ZtXIXZfCFf 
GR,CRP,EPS 
DE,EBAR,EM 
,X1,Y1,Z1, 
(50),T0F(5 
),PSBDRY(4 
NTBL3,Z6P( 
J  ,NX(5),YB 
,AMUG{5),P 


PfYC0P,ZC0P,U0,V0tW0, 

EL10D,DEL20D,DEL30D, 

MURf 

AKF,XLAMF,OMEGF,CFP,EPSF 

R,RRtTS,THMAX,DTCOMP,TO» 

,AAA,HMAX,HMIN,BET,G, 

X2,Y2,Z2,PHIC{50),DELB, 

0 ),TQR( 50 ),T8,TE, TINCR, 

,5),YBDRY{2,5),NBX(5), 

21,21,5) 

(5),YE(5) ,YINCR(5),NY(5) 

SBDR0(4,5),UVWMIN,PQRMIN 


S*l)    GO    TO    98 


8 


NE.O)    GO   TO    98 


11 


12 


98 
99 


E.O)    NPAGE(13)    s    1 
0)    GO    TO    99 
♦    1.2) 


T,50,PSIF,NERR) 

T,50,TQF,NERR) 

T,50,TQR,NERR) 


BLK40010 
BLK400  20 
BLK400  30 
BLK400  40 
BLK40050 
BLK4  00  60 
BLK400  70 
BLK400  80 

,BLK4G090 
BLK40100 
BLK40110 
BLK40120 
BLK40130 
BLK40140 
BLK4  0150 

,BLK40160 
BLK40170 
BLK40180 
BLK40190 
BLK40200 
BLK402  10 
BLK40220 
BLK40230 
BLK40240 
BLK402  50 
BLK40260 
BLK402  70 
BLK40280 
BLK40290 
BLK40300 
BLK40310 
BLK40320 
BLK40330 
BLK40340 
BLK40350 
BLK403  60 
bLK4G370 
BLK40380 
BLK40390 
BLK40400 
BLK40410 
BLK40420 
BLK40430 
BLK40440 
BLK40450 
BLK40460 
BLK40470 
BLK4  0480 
BLK40490 
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,,,,V^,  TTMP       1729  UPDATE    RECORD 

DATE      01/12/76  TIME       \t^^ 

BLK4  0500 

END 
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DATE   01/12/76 


TIME       1729 


UPDATE    RECCRD 


,YINCR(5 
)  ,UVWMIN 
,XIPSt 

,DRWHJ,INDCRB, 


),NY(5) 

,PORMIN 


IDf 

LYBP, 


SUBROUTINE    BLK05 (NBLK,NBCRD,NSEO ,NC ARD, DUM,NERR ) 
C  HV0SM-RD2    VERSION 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION 

COMMON/HEAD/    VHED ( 20 ) , CHED( 20 ) ,GHED (20) , SHED( 20 ) ,TH£D(20)t 
1  NPAGE(20) 

COMM0N/INPT/PHI0tTHETA0,PSI0,P0,QO,RO,XC0P,YCOP,ZC0P,UO,VO,WO, 

1  A,B,DEL10,DEL20,DEL30,PHIR0,DEL10D,DEL20D,DEL3  0D, 

2  PHIROD,TFtTR ,ZF, ZRt RHO,AKRS t XMURt 

3  XMS,XMUF,XlX,XIYfXIZ,XIXZtCF,AKF,XLAMF,GMeGF,CFP,EPSF 

4  RF,CRtAKR»XLAMR,OMEGR»CRPf EPSRfRR,TStTHMAXfDTCOMP,TOt 

5  Tl,DTCMPltDTPRNT,MODE,EBAR,EM,AAA,HMAXfHMIN,BET,G, 

6  HED(36),DADE ( 3) ,XIR ,X1 , Yl ,Z1 , X2 , Y2 t Z2, PHIC (50) , DELB , 

7  DELE,DDEL,NDtL,PSIF(50),TQF(50),TQR(50)tTB,TEtTINCR, 

8  NZTABtNZ5,XBDRY(4,5) .PSBDRY ( 4 ,5) t YBDRY ( 2 t5 ) tNBX ( 5 ) , 

9  NBY(5),NTBLltNTBL2fNlBL3tZGP(21t21f5) 
C0MM0N/INPT/XB(5),XE(5),XINCR(5) ,NX (5 ) ♦ YB ( 5 ) , YE ( 5) 

1  XXZGP5(21)  ,YYZGP5(21) t AMUG( 5 ) ,PSBDR0(4,5 

COMMON/ INPTl/YClP,YC2PtZC2PfDELTC» PHI  CI tPHIC2fAMUC 

1  CPSPtOMGPSrAKPS.EPSPSfXPStRWHJB tRWHJE 

2  PSIFIO.PSIFDO 
DIMENSION    YCIP(2) 
tOUlVALtNCE     (YCIP(l) fYClP) 
COMMON    /INPT2/    YBPO» ZBTP ,ZBBP,X VF, XVR ,YV t ZVT, ZVB ,AKV, S1GR( 

SET,CONSf AMUBtEPSV, EPSB,XM,EPST,DDD,INDB,DE 

DELTb.XINPTdOO) 

YC3PtYC4P,YC5P,YC6P,YCLP, 

ZC3P,ZC4P,ZC5P,ZC6P,ZCLP, 

PHIC3,PHIC4,PHlC5,PHlC6,NCRBSLf 

TANPC3,TANPC4,TANPC5,TANPC6,TANPCLf 

PHIC3R,PHIC4R,PHIC5R,PHIC6R,PHICLR, 

YCMP(6) ,ZCMP(6),PH1CM(6) 
COMMON    /RUFNES/    DELG ,DGMAX,NEND, IRUF 
DIMENSION   DUM( 18) 
DATA    NBS/13/ 
NBT    =    NBCRD+1 

1F(NBT.LT.1.0R.NBT.GT.NBS*1)    GO    TO    98 
GO    TO    (500,501, 502f503, 504, 505, 506, 507, 508, 509t510» 
1  511, 512, 513), NBT 

60    TO    98 

500  IF(NCARD.NE.500)    GO    TO   98 
DO    10    1  =  1,18 

10    GHED(I)    =   DUMd  ) 
GO    TO    99 

501  IF(NCARD.NE.501)    GO    TO   98 
IF(NZTAB.LT.l)    NZTAB=1 
1=1 
GO    TO    20 

502  IF(NCARD.NE.502)    GO    TO    98 
1F(NZTAB.LT,2)    NZTAB    =    2 


COMMON/NEWCRB/ 


BLK50010 
BLK50020 
BLK500  30 
BLK500  40 
BLK50050 
BLK5  00  60 
BLK500  70 
BLK500feO 

,BLK500  90 
BLK50100 
BLK50110 
BLK50120 
BLK50130 
BLK5  0140 
BLK50150 

,BLK50160 
BLK5  0170 
BLK50180 
BLK50190 
BLK50200 
BLK502  10 
BLK50220 
BLK502  30 
BLK502  40 
BLK50250 
BLK5  0260 
BLK502  70 
BLK50280 
BLK5  02  90 
BLK5  0300 
BLK50310 
BLK50320 
BLK503  30 
BLK503  40 
BLK50350 
BLK50360 
BLK503  70 
BLK50380 
BLK50390 
BLK50400 
BLK50410 
BLK50420 
BLK50430 
BLK50440 
BLK50450 
BLK50460 
BLK504  70 
BLK504  80 
BLK50490 
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503 


504 


505 


20 


21 


I    =    2 

GO    TO    20 

1F{NCARD,NE.503)    GO    TO 
IFtNZTAB.LT.B)    N2TAB    = 
1    =    3 
GO    TO    20 

IF(NCARDJME,504)    60    TO 
IF(NZTAB.LT,4)    N2TAB    = 
I    =    4 
GO    TO    20 

IF(NCARL.NE.505)    GO    TO 
N2TAB    =    5 
1=5 
NPAGE(15)    =     1 


98 
3 


96 

4 


98 


XB<  I) 
XE(I) 
XTNCR( 
YB(  I) 
YE(I) 
YINCRd  ) 
NBX(I)     = 
NBY(I)    = 


I)    = 


1.2) 
1.2) 


DUM ( 1 ) 
DUM ( 2 ) 
DUM{3) 

=    DUM (4) 

=    0UM(5) 

=    DUM (6) 

IFIX(DUM(7)  ) 

IFIX{DUM(e)  ) 
NZ5T    =    IFIX{DUM(9) ) 
NNBX    =    NBXd  ) 
NNBY    =    NBYd  ) 
IF(NZ5T.EQ.l)    GO    TO    21 
NNX    =    IFIXnXECI  )-XB{I>)/XINCR(  I)    ♦ 
NNY    =    1FIX( (YE(I)-YB(I))/YINCR{I)    ♦ 
NX(I)    =    NNX 
NY( I)    =    NNY 

CALL    TEREAD< I ,NNBX,NNBY,NNX,NNY,NZ5T,NERR ) 
IF(NERR.NE.O)    GO    TO    98 
GO    TO    99 

NNX    =    IFIX(DUM(3)) 
NNY    =    1FIX(DUM(6)) 
NX (I)    =    NNX 
NY(I)    =    NNY 
NZ5    =    1 

CALL    TEREAD(ItNNBX,NNBYtNNX,NNY,NZ5TtNERR) 
IF(NERR,NE.O)    GO    TO    98 


GO    TO   98 


GO  TO  99 

506 

IF(NCARD.NE.506) 

DO  30  J=l,5 

30 

AMUG(J)  =  DUMUl 

GO  TO  99 

507 

IF(NCARD.NE.507) 

YClP  =  DlW(l) 

YC2P  =  DUM(2) 

YC3P  =  DUM(3) 

YC4P  =  DUM(4) 

YC5P  =  DUM{5) 

GO    TO   98 


BLK505  00 
BLK50510 
BLK50520 
BLK505  30 
BLK505  40 
BLK50550 
BLK505  60 
BLK50570 
BLK505eO 
BLK505  90 
BLK50600 
BLK50610 
BLK5  0620 
BLK506  30 
BLK50640 
BLK506  50 
BLK50660 
BLK506  70 
BLK506  80 
BLK506  90 
BLK50700 
BLK50710 
BLK50720 
BLK50730 
BLK50740 
BLK60750 
BLK507  60 
BLK50770 
BLK50780 
BLK50790 
BLK50800 
BLKSOaiO 
BLK50e20 
BLK508  30 
BLK508  40 
BLK508  50 
BLK50860 
BLK50870 
BLK508  80 
BLK506  90 
BLK50900 
BLK50910 
BLK50920 
BLK50930 
BLK50940 
BLK509  50 
BLK50960 
BLK50970 
BLK50980 
BLK50990 
BLK51000 
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508 


509 


510 


511 

40 

512 

513 


yC6P  = 

DUM(6) 

AMUC    = 

DUM(7) 

GO    TO 

99 

IF(NCARD.NE.508I 

ZC2P    = 

DUM ( 1 ) 

ZC3P    = 

DUM(2) 

ZC4P    = 

DUM ( 3 ) 

ZC5P    = 

DUM(4) 

ZC6P    = 

DUM(5) 

GO    TO 

99 

IF(NCARD.NE.509) 

PHICl 

=    DUM(l) 

PHIC2 

=    DUM(2) 

PHIC3 

=    DUM  (3) 

PHIC4 

=    DUM (A) 

PHIC5 

=    DUM  (5) 

PHIC6 

=    DUM(6) 

GO    TO 

99 

IF(NCARD.NE,510) 

YBPO    = 

DUM(l) 

ZBTP    = 

DUM(2) 

ZBBP    = 

DUM(3) 

DELYBP 

=   DUM<4» 

AMUB    = 

DIW(5) 

EPSV    = 

DUM(6) 

EPSB    = 

0UM(7) 

GO    TO    98 


GO    TO   9  8 


GO    TO    98 


98 
99 


SET    =    DUM(8) 

CONS    =    DUM(9> 

GO    TO    99 

IF(NCARD.NE,511)    GO    TO    98 

DO    40    1=1,9 

SIGRd  )    =    DUM(I) 

60    TO    99 

IF(NCARD.NE.512)    GO    TO    98 

SIGR(IO)    =    DUM(l) 

SIGR(ll)    =    DUM(2) 

GO    TO    99 

IF(NCARD,NE.513)    GO    TO    96 

DELG    =    DUM(l) 

NEND    =    1FIX(DUM(2)) 

IRUF    =    1 

NPAGE(8)    =    1 

DGMAX    =    (NEND-1)*DELG 

GO    TO    99 

NERR    =    1 

RETURN 

END 


BLK51010 
BLK51020 
BLK51030 
BLK51040 
BLK510  50 
BLK510  60 
BLK51070 
BLK51080 
BLK510  90 
BLK51100 
BLK51110 
BLK51120 
BLK51130 
BLK51140 
BLK51150 
BLK51160 
BLK51170 
BLK5H80 
BLK51190 
BLK51200 
BLK51210 
BLK51220 
BLK512  30 
BLK512A0 
BUK512  50 
BLK51260 
BLK512  70 
BLK512  80 
BLK512  90 
BLK51300 
BLK51310 
BLK51320 
BLK51330 
BLK513A0 
BLK51350 
BLK513  60 
BLK51370 
BLK513  80 
BLK51390 
BLK51A00 
BLK51A10 
BLK51420 
BLK51430 
BLK514  40 
BLK514  50 
BLK51460 
BLK51470 
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600 


10 


601 


602 


SUBROUTINE    BLK06 (NBLK,NBCRD,NSEQ »NC ARDt DUM,NERR ) 

HV0SM-RD2    VERSION 

REVISED    OCTOBER    1975         CALSPAN    CORPORATION 
COMMON /HEAD/    VHED( 20 i ,CHED(20) ,GHED(20) ,SH£D<20),T 
1  NPA&E(20) 

C0MM0N/INPT/PHI0,THETA0,PSI0,P0,00,R0,XC0P,YC0P,ZC 

1  A,B,DEL10,DEL20,DEL30,PHIR0,DEL10DtDEL 

2  PH IRODfTF,TR,ZF,ZR,RHO,AKRStXMUR» 

3  XMS,XMUF,XIX,XIY,XIZ»X1XZ,CF,AKF,XLAMF 

4  RF,CR,AKRt XLAMR.OMEGRtCRP.EPSRfRR  ,TStT 

5  T1,DTCMP1,DTPRNT,M0DE,EBAR,EM,AAA»HMAX 

6  HED(3fe),DADE<3),XIR,Xl,Yl,Zl,X2,Y2,Z2, 

7  DtLt,DDEL,N0ELtPSIF(50)  ,TQF  (  50  )  ,TOR  (  i>0 

8  NZTAB,NZ5tXBDRY(4,5)fPSBDRY(4,5),YBDRY 

9  NBY(5>,NTBLlfNTBL2tNTBL3,ZGP(2l,21f5) 
COM  MON /lNPT/XB(5),Xt(5),XINCR(5),NX(5),YB«5),YE{5) 

1  XXZGP5<21)»YYZ&P&{21) ♦ AMUG( 5 ) ,P SBDRG(4,5 

C0MM0N/lNPTl/YClPTYC2P,ZC2P,DfcLTCtPHICl,PHlC2»AMUC 

1  CPSP,OMGPS  ,AKPS»EPSPS  »XPS,RWHJ8tRWHJE 

2  PSTFIOtPSTFDO 

COMMON  /INSUS/  X  IF  ,RHOF  ,  TSF,  PHI  FO,  PHI  FOD,  DEL-^O  ,  DEL 

1  AKDS,AKDSl,AKUS2,AKDS3tPHIRC(50),DT 

2  NCAMF,NCAMR,NDTHFtNDTHR 
DIMENSION   YCIP(2) 

EQUIVALENCE     (YCIP ( 1 J ,YC1 P  ) 

DIMENSION    DUM(IO) 

DATA    NES/3/ 

NBT    =    NBCRD+1 

IF{NBT.LT.1.0R.NBT.GT,NBS+1)    GO    TO    93 

GO    TO     (600t601,602,6G3)»NBT 

GO    TO    98 

IF(NCARD.NE.600)    GO    TO    98 

DO    10    I-lfl8 

SHED( I)     =    DUM(I) 

GO    TO    99 

IF(NCARD.NE,601) 

PHIO         =    DUM(l) 

THETAO    =    DUM(2) 

PSIO  =  DUM(3) 

PO  =   DUM(4) 

QO  =   0UM<5) 

RO    =    DUMI6) 

PSIFIO    =   DUM(7) 

PSIFDO    =   0UM(8) 

GO    TO    99 

IF(NCARD.NE.602) 

XCOP    =    DUM(l) 

YCOP    =    DUM(2) 

ZCOP    =    DUM(3) 


HED«20), 

0P,U0,V0,W0t 
2O0tDEL30D, 

,OMEGF,CFP,EPSF 
HMAX,DTCOMP,T0, 
»HMIN,BET,G, 
PHIC(50) ,DELB, 
),TB,TE,TINCR, 
(2,5  ),NBX(5K 

,YINCR(5  NNY15) 
)  ,UVWM1N»P0RMI!^ 
tXIPS, 

,DRWHJtlNDCRB» 

40D,ISUS» 
H-F(50),DThRI50) 


GO    TO    9  8 


GO    TO    98 


BLK60010 
BLK60020 
BLK6  0030 
BLK600  40 
BLK600  50 
BLK60060 
BLK6  00  70 
BLKbOOeO 

,BLK600  90 
BLK60100 
BLK60110 
BLK60120 
BLK60130 
BLK60140 
BLK60130 

,BLK60l^G 
BLK60170 
BLK60180 
BLK60190 
BLK602  00 
BLK60210 

,BLK60220 
ELK60230 
BLK602A0 
BLK602  50 
BLK6026C 
BLK6C2  70 
BLK602  80 
BLK60290 
BLK60300 
BLK60310 
BLK60320 
BLK60330 
BLK60340 
BLK60350 
BLK6C360 
BLK603  70 
BLK6  03&0 
BLK603  90 
BLK60400 
BLK6  0410 
BLK60420 
BLK60430 
BLK60440 
BI.K60450 
BLK60460 
BLK60470 
BLK60480 
BLK60490 
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UO 

DUM(4) 

vo 

DUM(5) 

wo       = 

DUM(6) 

GO    TO    99 

>03    IF(NCARD.NE.603)    GO 

TO    98 

DELIO 

=   DUM(l) 

DEL20    = 

-    DUM(2) 

IFdSUS 

..EQ.2)    PHIFO 

=    DUM(2) 

DEL30 

=   DUM(3) 

PHIRO    = 

UJM(4) 

IFdSUS 

•EQ.l)    DEL40 

=    DUM(4) 

DELIOD 

=    DUM(5) 

DEL20D 

=   DUM(6} 

IFdSUS 

..tQ,2)    PHIFOD 

=    DUM(6) 

DEL30D 

=   DUM(7) 

PHIROD 

=   DUM(8> 

IFdSUS 

.EQ.l)    DEL40D 

=    DUM(8) 

GO    TO    99 

98    NERR    = 

1 

99    RETURN 

END 

BLK60500 
BLK605  10 
BLK60520 
BLK603  30 
BLK60540 
BLK60550 
BLK6  05  60 
BLK60570 
BLK605  80 
BLK60590 
BLK606  00 
BLK606  10 
BLK60620 
BLK606  30 
BLK606  40 
BLK60650 
bLK606  60 
BLK606  70 
BLK6  0680 
BLK60690 
BLK60700 
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SUBROUTINE  CLEAR(A,B)  00042720 

C           CLEARS  (SETS  TO  ZERO)  A  BLOCK  OF  STORAGE  IDENTIFIED  BY  THE    00042730 

C            ADDRESSES  OF  THE  TWO  ARGUMENTS.                               00042740 

C  00042750 

C           CALL  CLEAR(PfQ)  00042760 

C           WILL  CAUSE  ALL  BYTES  TO  BE  SET  TO  ZERO  FROM  ADDRESS           00042770 

C           P  THROUGH  THE  FULL-WORD  AT  ADDRESS  Q                         00042780 

C  00042790 

DIMENSION    A(1),B(1»  00042800 

B(l>     =    I.O  00042810 

1=0  00042820 

10    IF(B(I).EQ.0.0)    RETURN  00042830 

1=1+1  00042840 

A(I)     =    0.0  00042850 

END  00042860 
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SUBROUTINE    CNSTNT  CNSTOCIO 

C                                     HV0SM-RD2    VbRSION             .  CNST0020 

C                                     REVISED    OCTOBER     1975       CALSPAN    CORPORATION  CNST0030 

COMMON /HEAD/    VHED( 20 ) ,CHED(20 I ,GHED (20 ) t SHED ( 20) tTHEDi 20) ,  CN ST 00 40 

1                                    NPAGE(20)  CNSTOO^O 

COMMON/lNPT/PHlO»THETAOtPSIO,PO,QOtROtXCOPfYCOP,ZCOP,UO,VO,WO,  CN ST  00 60 

1  A,B,DEL10,DEL20,DdL30,PHIR0,DEL10D»DEL20D»DEL30D,  CNST0070 

2  PHIROO,TF,TR,ZFtZR,RHOtAKRS,XMUR»  CNSTOObO 

3  XMS.XMUF ,XIX tXIY»XI2,XIXZtCF,AKF,XLAMF,0MEGFtCFP,FPSF ♦CNST00  90 

4  RF,CRf AKR,XLAMR,OMEGR,CRPttPSR»RR,TS,THMAX,DTCOMP,TOt  CNSTOlOO 
b                                  TlfDTCMPl,DTPRNTfMODE,EBAR,EM,AAA,HMAX,HMINtBET,G,  CNSTOllO 

6  Ht0(36) ,DADE {3) ,XIR,X1,Y1,Z1,X2,Y2,Z2,PHIC(5G) ,DELB,  CNST0120 

7  DELi:,DDEL,NDFL,PSIF(50)  tTQF(50)  ,TC)R(50),TB,TE,TINCR,  CNST0130 

8  NZTAb,NZb,XBDRY(4,b) »PSBDRY(4,5),YbDRY(l,5)tNBX(5) ,  CNST0140 

9  NBY(5),NTBL1,NTBL2,N1BL3,ZGP(21,21,5)  CNST0150 
COMMON/lNPT/XB(b),Xt  (!3),X1NCR<5)  t  NX  (  5  )  ,  YB  (  5> )  ,  YL  (  5  )  ,  YINCR  (  5  )  ,NY(  5  )  f  CN  STOl  60, 

1                            XXZGP5)(21)  iYYZGP5>(21)  ,AMU&(  5),PSBDR0(4,5  )  tUVWMIN,PORMIN  CNST0170 

COMMON/INPTl/YClP»YC2PtZC2PtDELTC,PHlCl tPHlC2,AMUC  tXlPS»  CN ST 01 80 

1  CPSPtOMCPS, AKPStEPSPStXPS,RWHJB,RWHJE,DRWHJ,lNUCRB,  CN ST  01 90 

2  PSIFIO.PSIFUO  CNST0200 
DIMENSION  YC1P(2)  CNST0210 
EQUIVALENCE  ( YCI P ( 1 ) »YC 1 P )  CNST0220 
COMMON  /INTG/NEQ,T,DT,VAR(50) ,DER( 50)  CNST0230 
EQUIVALENCE     (U,VAR(1  ))  ,( V,VAR(2) ),  (W,VAR(3)),  tP,VAR(4) ),(QtVAR(5)  )CNST02AO 

1  , (R,VAR(6)) ,(DEL1,VAR(7) ) , ( DE L ID, VAR ( 8 ) ) » ( DEL2 t VAR ( 9 ) ),CNST02  50 

2  (DEL2D,VAK(10)),(DEL3tVAR(11)  ), (0EL3D»VAk(  12))  ,  CNST0260 

3  (PH1R,VAR(13 ) ), (PHIRD,VAR(14) ),(THETTP,VAR(15) ),  CNST0270 

4  (PHITP,VAR{16)) ,(PSITP,VAR(17) ), (XCP,VAR(18) ),  CNST0260 

5  (YCPfVARdP)  )  ♦(ZCP,VAR(20)  )  ,(PSTFI,VAR(21)  )  ,  CNST0290 

6  (PSIFID,VAR( 22) )  CNST0300 
EQUIVALENCE     (DU,DER(  1)  )»  (DV,DER(2) ) , ( DW, DER ( 3 ) ) , (DP.DER (4) ) ,  CNST0310 

1  (DQ,DER( f) ), (DR,DER<6) ) , ( DDEL 1 ,DERI 7 ) ) , (DDELID f UER(8 ) )CNST0320 

2  , (DDEL2,DER(9) ),(D0EL2D,DER(lO)  ),(DDEL3,DER(11)  ) ,  CNST0330 

3  (DDEL3D,DER( 12)), (DPHIR,DER( 13)) , (DPHIRDtDER(14)) ♦  CNST0340 

4  (DTHTTP,DER( 15)), {DPHITP,DER(16) ) ,(DPSITP,DER(17) ),  CNST0350 

5  (DXCP,DER(18) ),(DYCP,DFR( 19) ) ,(DZCP,DER(20)) ,  CNST0360 

6  (DPSIFl,DbR( 21)), (DDPSFl,DtR(22) )  CNS10370 
EQUIVALENCE     CVAR( Q) , PHIF )  ,  ( VAR ( 10)  ,PHI FD ) , (DE R( 9 ) , DPHI F ) ,  CNST03  80 

1                                  (DER(IO)  ,DPHIFD)  CNST0390 

EQUIVALENCE     (VAR (13) ,LEL4) , ( VAR ( 14 ) ,CEL4D ) , ( DER ( 13 ) , DDFL4 ) ,  CN ST  04 00 

1  (DER(14) ,DDEL40)  CNS704  10 
COMMON    /C0MP/SUMM,THETN,PHIN,PSIN,PI,RAD,GAM1,GAM2 ,GAM3, GAM4,GAM5 ,CNST04  20 

1  GAM6,6AM7,6AM8,GAM9,THETT,PHIT,PS1T,ZR0,TR02,  CNST0430 

2  TF02,T1Z,RH02,RH0MUR,AMUF,BMUR,ZPR,TM4,RHMR2,A02APB,  CNST0440 

3  B02APB,RFTF,TS02,RRTS,BR0MUR,XMUF02,AXMF02,XMTF04,  CNST0450 

4  XI2R,RTR,RHMR2I,XIXP,XIZP,XIXZP,XIYZP,D1PD2,D1MD2,  CNST0460 

5  ZRD3,ZRU3R, ZFD3R ,ZFD12 ,T IZ2 , TG61 ,DD1P2,DD1M2, RPR , PHRPCNST0470 

6  ,TANTP,SPHTP,CPHTP,SECTP,SFXS,SFYS,SFZS,SNPS,SNTS,  CNST0480 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYU,SFXU,SFYUF,  CNST0490 
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B  SFYURfSFZU, 

9  ANG2fCPHI,S 

COMMON    /COMP/TRH,DISTX,0 

1  ZETA3D,SFZ1 

2  TERM2,SNPSU 

3  HCAH3tHCAH4 

4  ,PHIRD2,RPHR 

5  XX2,YY1,YY2 
DIMENSION  HCAH(4)fHCBH(4 
EQUIVALENCE  (HCAH(1J,HCA 
COMMON  /COMPN/  FRSP(4)tF 

1  DPSINT,TA 

2  PHI2D,LCB 

3  SFRX(4),S 
LOGICAL  LCBlfLCB2 

COMMON/EINDEX/    FOR    EULE 
COMMON/EINOEX/    TWOPI ,PIO 


COSTH,SINTHtCOSPS,SINPSfCOSPH,SINPH,ANGl,  CN ST 0500 
PHltCPSItSPSI,PlfP7,P3tP4,P5,P6,TX,TY,TZ  CN ST 05 10 
ISTY,DISTD,D1STS,D21,ZETA4,ZETA4D,ZETA3,  CNST05  20 
,SNPU,SNTUtHCGHlfHCGH2tHCGH3,HCGH4,TERMl,  CNST05  30 
♦SNPRfHCBHl,HCBH2,HCBH3tHCBH4fHCAHl,HCAH2tCNST0540 
,UQtWP,UR,QR,VP,PR,P2,Q2,R2,VR,W0, P0,PHIR2CNST05  50 
DtGCTH,GSTH,GCTSPt6CTCP»XXX,YYY,IX,IY,XXl,CNST0560 


,THGl,THG2tPHGl,PHG2fZZltZZ2tLLL 

),HCGH(4» 

HI )  ,  (  HCB  H(l ) , HCBHl ) , ( HCGH( 1 ) ,HCGH1 ) 

RCP(4),ICBHITtJCBHIT, 

NPCltTANPC2,PHIClR,PHIC2RtAMUCMP,PHIlDt 

I(4),LCB2(4),IHTT,AJMTX{3,3),BMTX(3,3), 

FRY(4),SFRZ(4),T1PSI,T2PSI,XMUGI(4) 


1 

COSTHN.SI 

2 

STHETP,CP 

COMMON    /INPT2/ 

YBPCZBTP 

1 

SET, CONS, 

2 

DELTB,XIN 

COMMON    /TIRIN/ 

AKT(4),SI 

1 

A4(4) ,OME 

2 

A12(4),0M 

COMMON/BARIER/FN,IBHIT,J 

1  YCPN(3),ZC 

2  AA2I17),BB 

3  CBBT,CGBT, 

4  YBPT.XNNd 

5  ,ININD,UNP 

6  XCPTP,YCPT 

7  AINTP,SXR, 

8  FNP,FB,URP 

9  NSEG,YbPTP 
A  RBI,NUNLD, 
B  SWORK,SPEN 

DIMENSION    INDXPT<4> 
EQUIVALENCE     (INDXPT(1),I 
COMMON    /INSUS/    XIF,RHOF, 

1  AKDS,AKDS 

2  NCAMF,NCA 
COMMON    /SUSCMP/    XMUR02,B 


R    ANGLE    INDEXING, MAIN, CNSTNT,DAUX,TMCNST 

2,PI04, XINDN,XINDL,THETTL,PHITL,PSITL, 

NTHN,COSPSN,SINPSN,COSPHN,SINPHN,CTHETP, 

STP,SPSTP,BNMTX(3,3),    CNMTX(3,3) ,ENDEIN 

,ZBBP,XVF,XVR,YV,ZVT,ZVB,AKV,SIGR(11), 

AMUB,EPSV,EPSB,XM,EPST,DDD,INDB,DELYBP, 

PTdOO) 

GT(4),XLAMT(4),A0(4),A1<4)  ,A2( 4) ,A3 (4) , 

GT(4) ,AMU(4),RW(4) ,F JP (35, 4) ,A234(4  )  , 

T2A2(4),0MT2Ml(4),A23(4>,ITIRi4) 

BHIT,XCPNP(3) ,YCPNP(3),ZCPNP(3),XCPN(3), 

PN(3),AA1(17),BB1(17) ,CC1( 17),RR1(I7), 

2(17) ,CC2(17),RR2(17),CAB,CBB,CGB,CABT, 

RB,XBT,YBT,ZBT,XBB,YBB,ZBB,RR2P(17), 

7),YNN(17) ,ZNN(17},XMTX(3,4),IDPT(17),IPT 

(17),VNP(17),WNP(17),VMAX(4),I1,I2,I3,I4, 

P,ZCPTP,XCPBP,YCPBP,ZCPBP,YCPMP,AINTI, 

SYR,SZR,SDEN,XRI,YRI,ZR1,FRICT,DELBB,VTAN,CNST08  20 

,VRP,WRP,EPSL,XLDP,DELX,VL,NCYC,EEE,ENRGY,CNST0830 


CN  ST  05  70 
CNST0580 
CNST0590 
CN  ST  06  00 
CN  ST  06  10 
CN  ST 06  20 
CN  ST  06  30 
CN  ST 06^0 
CN  ST  06  50 
CN  ST  06  60 
CN  ST  06  70 
CNST0680 
CNST06  90 
CNST0700 
CNST0710 
CNST0720 
CNST0730 
CN  ST07  40 
CN  ST  07  50 
CN  ST  07  60 
CN ST 0770 
CN  ST 07  60 
CN  ST  0790 
CN  ST  08  00 
CN  ST  08  10 


,PCAB,PCBB,PCGb,PPRB,CABl,CBBl,CGBl, 

NLDCTR,VDEF,PVDEF,PSZR,XF,DELBBP, 

GY,DISS,IPLN,ILOAD 

1) 

TSF,PHIF0,PHIF0D,DEL40,DEL40D,ISUS, 

1,AKDS2,AKDS3,PHIRC(50),DTHF(50),DTHR(50) ,CNST0900 


CN  ST  08  40 
CN  ST  08  50 
CN  ST  08  60 
CN  ST  08  70 
CN  ST  08  60 
CNST08  90 


MR,NDTHF,NDTHR  CNST0910 

XMR02,XMTR04,ZF0,TSF02,RH0F2,RHFMUF,  CN ST  09 20 

F2MFI,RTF,RRTR,D3PD4,D3MD4,D43,DD3P4,  CNST0930 

D1RF,ZRD34,RFPF,RPF2M,WFMF,PHFP,PHIF2,  CN ST  0940 

PHFD,ZFD1,ZFD2,ZRD4,TPF,SL0PE3,SL0PE4,  CN ST 09 50 

I4D,DTHF1,DTHF2,DTHR3,0THR4,DTDD1,  CNST0960 

DD3,DTDD4,FJF(4),SNPF  CNST0970 

COMMON/NEWCRB/    YC3P , YC4P , YC5P ,YC6P , YCLP,  CNST0980 

,ZC5P,ZC6P,ZCLP,  CNST0990 

C4,PHIC5,PHIC6,NCRBSL,  CNSTIOOO 


RHF2MF,RI 
DD3M4,ZFI 
PHIFD2,RI 
PHI3D,PH: 
DTDD2,DTI 


ZC3P,ZC4P 
PHIC3tPHIi 
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3  TANPC3»TANPC4,TANPC5tTANPC6,TANPCLt  CNSTIOIO 

4  PHIC3R,PHICAR,PHlC5R,PHIC6R,PHlCLRt  CNST1020 

5  YCMP(6>  ,ZCMP(6),PHICM(6)  CNSTlOiO 
NPAGE(  1)  =  1  CNSTIOIO 
NPA&E(2)  =  1  CNST1050 
NPAGEO)  =  1  CNST1060 
NPA&Edl)  =  1  CNST1070 
NPAGE(12)    =    1  CNST1080 

OTHER    OUTPUT    PAGE     INDICATCRS    EITHER    READ    GR    SET    IN    BLKXX    SUBROUTINES    CNST1090 

PI     =    3.141592653D0  CNSTllOO 

TWOPI     =      2.0*PI  CNSTlllO 

PI02       =      0.5    ♦    PI  CNST1120 

PIOA       =      0.25*    PI  CNST1130 

RAD    =       .017453292500  CNST1140 

00    7    1=1,4  CNST1150 

A12(I)     =    A1(1)/A2(I)  CIMST1160 

A23(I)     =    A2(I)*A3(I }/Al( 1 )  CNST1170 

A234(I)     =    A2 (I  )*A3(1  )/A4(I)  CNSTllbO 

0MT2M1(1)    =    GMEGT(n«Al(  I)*A2(1)*(0ME&T(I  )-U0)                                                       CNSTllVO 

0MT2A2<n    =     (OMEGTCI  )*A2(  I)*A3n  )♦  (A4(I  )-OM£GT(  n*A2(I  )  )  )                           CNSTl^OO 

1                                   /(A4(I )*(0MT2M1(1 )-AO(I )) )  CNSTlllO 

7    CONTINUt  CNSl  1220 

TR02    =    G.5*TR  CNST1230 

TF02    =    0.5«TF  CNST 1240 

AMUF     =    A*XMUF  CNS11250 

bMUR    =    H*XMUR  CNST  12 60 

XMUF02    =   0,5*XMUF  CNST1270 

AXMF02    =    A*XMUF02  CNST1280 

XMTF04    =    XMUF02*TF02  CN ST  12 90 

TM4    =    0.25*XMUF»TF  CNST 1300 

GMSTMP    =   0.5*XMS*G/( A+B)  CNST1310 

A02APB    =-    A*GMSTMP  CNST1320 

B02APB    =   B*GMSTMP  CNST1330 

GAMl    =    AMUF-BMUR  CNST 13  40 

SUMM    =    XMS+XMUF+XMUR  CNST1350 

DELI    =    DELIO  CNST1360 

DELID    =    DELIOD  CNST1370 

DEL3    =    DEL30  CNST13bO 

DEL3D    =    DEL30D  CNST1390 

IFCISUS.tQ.l)    GO    TO    10  CNST1400 

ZRO    =    ZR+RHO  CNS11410 

TS02    =    0.5*TS  CNST 1^20 

RH02    =    Rh0*RH0  CNST1430 

RHOMUR    =    RHO*XMUR  CNST 1440 

RHMR2    =    RH0*RH0MUR  CNST 1^50 

RTR    =    RR/TS  CNST  14  60 

BROMUR    «   RHOMUR*B  CNST 14 70 

RHMR2.I    =    RHMR2  +  X1R  CNST1480 

PHIR    =    PHIRO  CNST 1490 

PHIRD    =    PHIROD  CNST1500 

10    IF(ISUS.NE.O)    GO   TO    20  CNST1510 


145 


DATE       01/12/76  TIME       1729                                                UPDATE    RECORD 

ZPR    =    ZF+RHO  CNST1520 

RRTS    =    RR*TS  CNST1530 

TIZ    =    XMUF*(A*A+TF02*TF02)+BMUR  CNST1540 

XIZR    =    XIZ+XIR  CNST1550 

20    IF(ISUS.EQ.2)    GO   TO  30                                                                                                                   CNST1560 

RFTF    =    RF/{TF*TF)  CNST1570 

DEL2    =    DEL20  CNST1580 

DEL  2D    =   DEL20D  CN ST  15 90 

30    IF{ISUS.NE.2}    GO    TO  40                                                                                                                        CNST1600 

ZFO    =    ZF+RHOF  CNST16  10 

TSFD2    =    0.5*TSF  CNST1620 

RH0F2    =    RHOF*RHOF  CNST1630 

RHFMUF    =   RHOF*XMUF  CNSTI640 

RHF2MF    s   RHOF*RHFMUF  CNST1650 

RF2MFI    =   RHF2MF+XIF  CNST1660 

RTF    =    RF/TSF  CNST16  70 

PHIF    =    PHIFO  CNST1680 

PHIFD    =    PHIFOD  CNST1690 

40    IFdSUS.NE.l)    GO    TO  50                                                                                                                   CN  ST  1700 

RRTR    =    RR/(TR*TR)  CNST1710 

XMUR02    =   0.5*XMUR  CNST1720 

BXMR02    -   B*XMUR02  CN ST  1730 

XMTR04    =   XMUR02*TR02  CNST1740 

DEL4    =    DEL40  CNST1750 

DEL4D    =    DEL40D  CNST1760 

50    CONTINUE  CN ST  17 70 

U   =    UO  CN  ST  17  80 

V    =    VO  CNST1790 

W    =    WO  CN  ST  18  00 

P   =    PO*RAD  CNST1810 

0    =    00*RAD  CN  ST  1820 

R    =    RO*RAD  CNST1830 

THETTP    =   0.0  CNST1840 

PHITP    =    0.0  CNST18  50 

PSITP    =    0.0  CNST1860 

THETN    =    THETA0*RAD  CNSTlti70 

PHIN    =    PH10*RAD  CNST1880 

PSIN    =    PSI0*RAD  CNST1890 
C                  XINDL    IS    PREVIOUS    VALUE    OF    XINDN.    XINDL    INITIALLY    ZERO    GETS    BNMTXCNST 1900 

C                                  XINDN.NE.0.0  FOR    THETAO    OR    PHIO    .NE.O.Ot    OR    AFTER    INDEXING    CNST1910 

C                                  THAT    IS       THETN    OR    PHIN    NOW    .NE.    0.0  CNST1920 

C                                  USED    IN    MAIN  PROGRAM    AND    IN    SUBROUTINES   CNSTNT, TMCNST                 CNST1930 

IF(    THETN. NE. 0.0    .OR.       PHIN.NE.    0.0)    XINDN    =    10.0  CNST1940 

THETTL    =   THETN  CN  ST  19  50 

PHITL       =    PHIN  CNST1960 

PSITL       =   PSIN  CNST1970 

XCP    =    XCOP  CN  ST  19  80 

YCP    =    YCOP  CN  ST  19  90 

ZCP    =    ZCOP  CN ST  2000 

PHICIR    =   PHIC1*RAD  CNST2010 

PHIC2R    =   PHIC2*RAD  CNST2020 
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PHIC3R    =   PHIC3*RAD 
PHICA-R    =    PHIC4*RAD 
PHIC5R    =   PHIC5*RAD 
PHIC6R    =    PHIC6*RAD 
TANPC2    =    TAN(PHIC2R) 
TANPCl    =    TAN(PHICIR) 
TANPC3    =    TAN(PHIC3R) 
TANPC4    =    TANiPHlCAR) 
TANPC5    =    TAN(PHIC5R) 
TANPC6    =    TAN(PHIC6R) 
NCB    =    NCRBSL-1 
GO    TO    (72,73f74,75,76),NCB 

72  PHICLR    =   PHIC2R 
YCLP   =    YC2P 
ZCLP    =    ZC2P 
TANPCL    =    TANPC2 
YC3P    =    I.OE+6 

ZC3P    =    ZC2P-»-SIGN(1.0,ZC2P) 
GO    TO    71 

73  PHICLR    =    PHIC3R 
YCLP    =    YC3P 
ZCLP    =    ZC3P 
TAIMPCL    =    TANPC3 
YC^P    =    l.OE+6 

ZC4P    =    ZC3P+SIGN<l.0,ZC3P) 
GO    TO    71 

74  PHICLR    =    PHIC4R 
YCLP    =    YC4P 
ZCLP    =    ZC4P 
TANPCL    =   TANPC4 
YC5P    =    l.OE+6 

ZC5P    =    ZC4P+SIGN(1.0,ZC4P) 
GO    TO    71 

75  PHICLR  =  PHIC5R 
YCLP  =  YC5P 
ZCLP  =  ZC5P 
TANPCL  =  TANPC5 
YC6P  =  l,0E+6 

ZC6P  =  ZC5P+SIGN(1.0,ZC5P) 
GO  TO  71 

76  PHICLR  =  PHIC6R 
YCLP  =  YC6P 
ZCLP  =  ZC6P 
TANPCL  =  TANPC6 

71  CONTINUE 

PSIFI       =   PSIFIO*RAD 
PSIFID    =   PSIFDO 
DO    9    1=1,5 
DO    9    J=l,4 
9    PSBDRY(J,I)    =   PSBDRO<J,I)    * 
XCPN(l)    =   XVF 


RAO 


CN  ST  20  30 
CN  ST  20  40 
CNST2050 
CNST2060 
CNST2070 
CN  ST  20  80 
CN  ST  20  90 
CN  ST  21  00 
CNST2110 
CNST2120 
CNST2130 
CN ST  2140 
CN  ST  21 50 
CNST2160 
CN  ST  21  70 
CNST2180 
CNST2190 
CNST22G0 
CNST2210 
CNST2220 
CNST2230 
CNST2240 
CN  ST  22  50 
CNST22  60 
CN ST  22  70 
CNST2280 
CN ST 22 90 
CNST2300 
CNST2310 
CN  ST  23  20 
CNST2330 
CN  ST  23  40 
CNST2350 
CNST2360 
CNST23  70 
CNST2380 
CNST2390 
CNST2400 
CN  ST  24  10 
CNST2420 
CNST2^30 
CN ST 2440 
CNST2450 
CNST2460 
CNST2470 
CN  ST  24  80 
CN ST  2490 
CN  ST 25  00 
CN  ST  25  10 
CN  ST 25  20 
CN  ST  25  30 
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YCPNd) 

=   YV 

ZCPN(l) 

=   0.0 

XCPN(2) 

=    XVR 

YCPN(2) 

=    YV 

ZCPN(2) 

=    0.0 

XCPNO) 

=    XVF 

YCPNO) 

=    -YV 

ZCPNO) 

=    0.0 

AAl(l)    -- 

'-    1.0 

AA1(2)    = 

■'    1.0 

AA1(3)     = 

^    1.0 

AA1(7)     '- 

-    1.0 

AA1(8)    - 

=    1.0 

AA1(9)     ■■ 

''    1.0 

AA1(14) 

=    1.0 

AA1(15)  =  1.0 
BB1(4)  =  1.0 
BB1(5)  =  1.0 
BB1(6)  =  1.0 


BBl (10) 

BBl(ll) 

BBl ( 16) 

6B1(17) 

CC1(12) 

CC1(13) 

CC2(1)  : 

CC2(2)  : 

RRKl)  ■■ 

RR1(2)  = 

RR1(3)  ■■ 

RR1(4)  ■■ 

RR1(5)  ■■ 

RR1(6)  : 

RR1(7)  = 

RR1(8)  : 

RR1(9)  • 

RRl(lO) 

RRl(ll) 

RR1(12) 

RR1(13) 

RR1(14) 

RR1(15) 

RR1(16) 

RR1{17) 

AA2(6) 

BB2(3) 

BB2(9) 

CC2(4)  ■■ 

CC2(5) 

CC2(7) 

CC2(8) 


=  1.0 
^  1.0 
=  1.0 
'  1.0 
=  1.0 
'    1.0 

1.0 

1.0 

XVF 

XVF 

XVF 

YV 

YV 

YV 

XVR 

XVR 

XVF 
-  -YV 
=  -YV 
=  2VT 
=  ZVB 
=  XVF 
--  XVR 
=  YV 
=  -YV 

1.0 

1.0 

1.0 

1.0 

1.0 

1.0 

1.0 


CNST2540 
CN  ST  25  50 
CNST2560 
CNST25  70 
CN  ST  25  80 
CNST25  90 
CN  ST  26  00 
CN  ST  26 10 
CN  ST  26  20 
CN  ST  26  30 
CN  ST  26  40 
CNST26  50 
CN ST 26 60 
CN  ST  26  70 
CNST2680 
CN  ST  26  90 
CN ST 2700 
CNST2710 
CNST2720 
CN  ST 27 30 
CN ST 2740 
CN  ST  27  50 
CN  ST  27  60 
CN ST 27  70 
CNST2780 
CN  ST  27  90 
CN  ST  28  00 
CNST2810 
CNST28  20 
CN ST 28 30 
CN  ST  28  40 
CN ST 28 50 
CN  ST  28  60 
CNST2e70 
CN  ST  28  80 
CNST28  90 
CN  ST  29  00 
CN  ST  29  10 
CN  ST  29  20 
CN  ST  29  30 
CN  ST  29  40 
CN  ST  29  50 
CNST2960 
CN  ST  29  70 
CNST2980 
CN  ST  29  90 
CNST3000 
CN  ST  30 10 
CN  ST  30  20 
CN  ST  30  30 
CNST3040 
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CC2(10»    = 
CC2(11)    = 


1.0 
1.0 


RR2(1) 

RR2(2) 

RR2(3) 

RR2(4) 

RR2(5) 

RR2{6) 

RR2(7) 

RR2(8) 

RR2(9) 

RR2(10)    = 

RR2(11)    s 


=  ZVT 
=  ZVB 
=  YV 
=  ZVT 
»=  ZVB 
=  XVR 
=  ZVT 
=  ZVB 
=  -YV 
ZVT 
ZVB 


YBPT    s    YBPO 
YBPTP    =    YBPO 
RETURN 
END 


CN  ST  30  50 
CN  ST  30  60 
CN  ST  30  70 
CNST30  80 
CN  ST  30  90 
CN  ST  31 00 
CN  ST  31 10 
CNST3120 
CNST3130 
CN  ST  31  40 
CNST3150 
CNST3160 
CNST3170 
CN  ST  31  60 
CNST3190 
CN  ST  32  00 
CN  ST  32  10 
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SUBROUTINE    CRBIMP(I)  CRBIOOIO 

C  HV0SM-RD2    VERSION  CRBI0020 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION  CRBI0030 

C0MM0N/INPTl/YClPtYC2P,ZC2PtDELTC,PHICl,PHIC2,AMUCtXIPS,  CRB100  40 

1  CPSP.OMGPSt AKPS,EPSPS,XPStRWHJB,RWHJEtDRWHJ,INDCRB,       CRBI0050 

2  PSIFIOfPSIFDO  CRBI0060 
DIMENSION  YCIP (2)  CRBI0070 
EQUIVALENCE  (YCIP (1 ) tYCl P  )  CRBI0080 
COMMON  /INTG/NE0tT,DT,VAR(50) ,DER(30)  CRBI0090 
EQUIVALENCE     (U,VAR(1  )  I , ( V, VAR ( 2 ) ) , (W,VAR(3)) ,(P,VAR(4) ),(Q,VAR(5)  )CRBI0100 

1  ,(R,VAR(6)) ,(DELltVAR(7) ) , ( DELID, VAR( 8) ) , (DEL2, VAR( 9) ) ,CRBI01 10 

2  (DEL2DtVAR(10)),(DEL3tVAR(ll) ) ,(DEL3D,VAR( 12)) f  CRBI0120 

3  (PHIR,VAR( 13)),{PHIRD,VAR(14) ),{THETTP,VAR(15) ),  CRBI0130 

4  (PHITP,VAR(16)),(PSITP,VAR<17)),(XCP,VAR(18)),  CRBI0140 

5  (YCPtVAR(19) ),(ZCP»VAR{20) ) ,(PSIF1,VAR(21) ) ,  CRBI0150 

6  {PSIFID,VAR(22) )  CRBI0160 
EQUIVALfcNCE     (DU, DER( 1 ) ) , ( DV, DLR I  2) ) , ( DW,DER( 3  )  ) t (DP,DER(4) ),  CRBI0170 

1  <DQ,OER( 5) ), (DRtDER{6) ) , ( DDELl ,DER(7 ) ) , (DDELID ,DER(8 ) )CRBI0180 

2  t (DDEL2,DER(9) ),(DDEL2D,DER(10) ), (DDEL3,DER(11) ) ,  CRBI0190 

3  (DDEL3D»DER( 12))» (DPHIR,DER(I3) ) t (DPHIRD,DER(14) ),  CRBI0200 

4  (DTHTTP,DER(15)),  (DPHITP,DER(16)  ),  (DPSITP.DERdT)  ),         CRB10210 

5  <0XCP,DER(18  )),(DYCP,DER( 19) ) , (DZCP,DER(20)) ,  CRB10220 

6  (DPS1FI,DER( 21) ),(DDPSF1,DER(22) )  CRBI0230 
EQUIVALENCE     (VAR(9) ♦PHIF),<VAR( 10) ,PHIFD) , (DER(9  ), DPHIF ) f  CRBI0240 

1  (DER(IO)  .DPHIFD)  CR  BI 02  50 

EQUIVALENCE     (VAR(13) ,DEL4) , ( VAR ( 14 ) ,DEL4D ) t ( DER (13 ) tDDEL4)  ,  CRBI0260 

1  (DER(14) ,DDEL4D)  CRBI0270 

COMMON    /DIMV/XlPtX2P,Xi, .X4P,YlP,Y2PtY3P,Y4P,21P,Z2P,Z3P,Z4P,PHIl,CRBI02  80 

1  PH12,PHI3,PHI4,PSIl,PS12tPSI3,PSI4,CAYW(4),CBYW(4),       CRBI0290 

2  CGYW(4) ,ZPGI(4),THGI(4),PHGI(4) t CPG(4 ) ,SPG (4) ,CT6 (4 ) ,CRBI0300 

3  STG(4),CAGZ(4),CBGZ(4),CGGZ(H),D1(4),D2(4),D3(4),  CRBI0310 

4  XLM1(4) ,XLM2(4),XLM3(4),AMTX(3t3)tCMTX(3t4)fXGPP(4),    CRBI0320 

5  YGPP(4) ,ZGPP(4),DM    TX(10tll)tDELTA(4) ,CAR ( 4) ,CBR (4) ,    CRBI0330 

6  CGR(4)»FR(4),HI(4),!-C(4),TI(4)  ,AX(4),BX(4),CX(4),  CRBI0340 

7  CTXG(4) ,UG(4),STXG(4) »AY(4),BY(4),CY(4),CPYG(4),  CRBI0350 

8  SPYG(4) ,VG(4)tPSlIP(4) .PHICI ( 4) ,CAC(4) ,CBC (4) , CGC(4 ) ,CRBI03  60 

9  FCXU(4) ,FCYU(4) ,FCZU( 4) , FS (4 ) ,CAXW(4) ,CBXW(4) ,CGXW(4)CRB103  70 
COMMON    /DIMV/AS(4) ,BS(4) ,CS (4) ,CAS( 4) ,CBS (4) ♦ CGS (4 ) ,BETP (4) ,  CRBI0380 

1  BETBR(4),FSXU(4),FSYU(4),FSZU(4) ,FRXU(4),FRYU(4),  CRBI0390 

2  FRZU(4) ,FXU(4),FYU(4) ,FZU(4),SI(4),F1FI(2),F1RI(2),       CRBI0400 

3  F2FI(2) ,F2RI(2),CAH(4) ,CBH(4) tCGH(4)  CRBI0410 
DIMENSION  XP(4),YP(4),ZP(4),PHII(4),PSII(4)  CRBI0420 
EQUIVALENCE     (XP(1),X1P), ( YP( 1 ) , YIP ) , ( ZP ( 1 ) .ZIP) t (PHII ( 1 ) ,PHI 1 ) ,  CRB10430 

1  (PSIK  D.PSIl)  CRBI0440 

COMMON    /C0MP/SUMM,THETN,PHlN,PSIN,PI,RADfGAMl,GAM2fGAM3,GAM4,GAM5,CRBI0450 

1  GAM6,GAM7,6AM8,GAM9,THETT,PHIT,PS1T,ZR0,TR02,  CRBI0460 

2  TF02,TIZ,RH02,RH0MUR,AMUF,BMURf ZPRfTM4,RHMR2f A02APB,    CRBI0470 

3  B02APB,RFTF ,TS02TRRTS,faR0MUR»XMUF02fAXMF02tXMTF04,  CRBI0480 

4  XIZR,RTR,RHMR2I,XIXP,XIZP,XIXZPfXIYZP,DlPD2tDlMD2f  CRBI0490 
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5 
6 
7 

8 
9 
( 
1 
2 
3 
4 
5 


COMMON 


DIMENS 
EQUIVA 
COMMON 


LOGIC  A 

COMMON 


I 
2 
( 
1 
2 
3 
4 
5 


20 
I 


DIMENS 

DO    20 

FJPP(N 

SNPSI 

CSPSI 

SNPHI 

CSPHI 

SFRX(  I 

SFRYd 

SFRZa 

TTAJ21 

TTAJ31 

AJMTX( 

AJMTX( 

AJMTX( 

XJ    =    - 

DO    11 

THTJ    = 

STJ    = 

CTJ    = 

AJMTX< 

AJMTXC 

AJMTX( 

AJMTX( 


ZRD3fZRD3RtZFD3RtZFD12,TIZ2t 
,TANTP,SPHTPfCPHTPfSECTP,SFXS 
SNPSSfTPR,CAY,CBY,CGY,CAX,CB 
SFYURf SFZUt  COSTH,SINTH»COSPS 
ANG2,CPHI,SPHI,CPSI»SPSI,P1, 
/COMP/TRH,DISTX,OISTY,DISTDfDlSTSt 
ZETA3D,SFZ1 ,SNPU t SNTU,HCGH1 , 
TERM2,SNPSU,SNPR,HCBHl»HCeH2 
HCAH3tHCAH4tU0»WP,UR,QRtVP,P 
tPHIRD2fRPHRDfGCTH,GSTH,GCTSP 
XX2,YYl,YY2|THGltTHG2,PHGl,P 
ION    HCAH(4),HCBH(4).HCGH(4) 
LfcNCE     (HCAH(l)  ,HCAH1)  ,  (  HCBH(  D.HCBH 
/COMPN/    FRSP(4),FRCP(4),ICBHIT,JCB 
DPSINT,TANPC1,TANPC2,PHIC1 
PHI2D,LCB1(4),LCB2(4),IHIT 
SFRX(4),SFRY(4),SFRZ(4),T1 
L    LCB1,LCB2 
/TIRIN/    AK7(4),SIGT(4) ,XLAMT(4},A0 
A4{<^)  ♦0MEGT(4)  ,AMU(4),RW(4 
A12(A),GMT2A2(4),0MT2M1(4) 
YC3P,YC4P,YC5PtYC6P,YCLP, 
ZC3P,ZC4P,ZC&P»ZC6P,ZCLP, 
PHIC3,PHIC4,PHIC6fPHlC6,NC 
TANPC3,TANPC4,TANPC5,TANPC 
PHIC3R,PHIC4R,PHIC5R,PHIC6 
YCMP(6) ,ZCMP{6),PHICM(6) 
ION    FJPP(35) 
N=l,35 
)    =    FJP{N,I) 
=    SIN{PSII(I)) 
=    COS(PSII(I)) 
=    SIN(PHII(I)) 
=    COS(PHII(I) ) 
»    =    0.0 


TG6l,0DlP2fDDlM2tRPR»PHR 

,SFYS,SFZS,SNPStSNTS, 

X,CGX,SFYU,SFXU,SFYUF, 

tSINPStCOSPHtSINPH,ANGlt 

P7,P3,P4, P5,P6,TX,TY,TZ 

D21,ZETA4,ZETA4D,ZETA3, 

HCGH2,HCGh3,HCGH4,TERMl, 

,HCBH3tHCBH4tHCAHl,HCAH2 

R,P2»02,R2,VR,W0,P0,PHIR 

,&CTCPtXXX,YYY,IX,IYtXXl 

HG2,ZZl,ZZ2tLLL 


COMMON/NEWCRB/ 


1),(HCGHI1),HCGH1 ) 

HIT, 

R,PHIC2R,AMUCMP,PHI1D, 

»AJMTX(3,3),BMTX(3,3), 

PSI,T2PSI,XMUGI(4) 

(4) tAl(4),A2(4)rA3(4)« 

),FJP(35,4),A234(4), 

,A23{4),ITIR(4) 


RBSL, 

6,TANPCL, 

R.PHICLR, 


=    0,0 

=   0.0 

~   CSPHI 

=    SNPHI 


*  SNPSI 

*  SNPSI 
1,2)     =    -SNPSI 

2,2)    =   CSPHI    ♦    CSPSI 

3.2)  =    SNPHI    ♦    CSPSI 
26.0*RAD 

J=l,53 

4.0*XJ 
SIN(THTJ) 
COS(THTJ) 
1,1)    =   CTJ*CSPSI 
2,1)    =   TTAJ21*CTJ 
3,1)    *   TTAJ31*CTJ 

1.3)  =   CSPHI*STJ 


♦   SNPHI*STJ 
-  CSPH1*STJ 


PCRBI05  00 
CRBI0510 
CRBI05  20 
CRB10530 
CRBI05  40 
CRBI05  50 
CRBI0560 
,CRBI05  70 
2CRBI0580 
,CRBI05  90 
CRBI06  00 
CRBI0610 
CRBI06  20 
CRBI06  30 
CRBI06<.0 
CRBI06  50 
CRBI0660 
CRBI06  70 
CRBI06  80 
CRBI0690 
CRB10700 
CRB10710 
CRBI0720 
CRBI0730 
CRBI0740 
CRBI0750 
CRBI0760 
CRBI0770 
CRBI0760 
CRBI0790 
CRBI08  00 
CRBI08  10 
CRB108  20 
CRBIO8  30 
CRBIOS^O 
CRBI0850 
CRB10860 
CRBI08  70 
CRBI08  80 
CRBI08  90 
CRBI0900 
CRBI0910 
CRBI09  20 
CRBI0930 
CRBI0940 
CRBI0950 
CRB10960 
CRBr0970 
CRB109  80 
CRBI0990 
CRBIIOOO 
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AJMTX(2t3)  =  TTAJ21*STJ 
AJMTX(3,3)  =  TTAJ31*STJ 

AJMTX  ANGLE  SEQUENCE  I 
DO  6   K  =  lf3 


-  SNPHI*CTJ 
■*■  CSPHI*CTJ 
S  PHIfPSItTHJ 


800 


DO    7       L=lf3 

BMTX(K,L)    = 

DO    6      M=lt3 

BMTX(K,L)    = 

CONTINUE 

CONTINUE 

CONTINUE 

HJ    =    -ZP(I)/BMTX(3,3) 

IFCHJ.LT.O.O.OR.HJ.GE.RW 

YJP    =    YPd  )  +  BMTX(2,3)*HJ 

IF< YJP.LT.YCIP)    GO    TO    20 

HJ    =    (-ZP( I )+(YP(I)-YClP 

IF(HJ.LT,0.0,OR.HJ,GE.RW 

YJP    =    YP(I)*6MTX(2»3)*HJ 

ZJP    =    ZP(I)*BMTX(3,3)*HJ 

IF(YJP,&E.YC1P.AND.YJP,L 

1       (SI&N(l,OrZJP).EQ.SIGN 
805    HJ    =    {ZC2P-ZP(I )+(YP(I)- 

1  TANPC2) 

IF(HJ.LT.0.0.0R.HJ.GE,RW 
YJP  =  YP(I)+BMTX(2,3)*HJ 
ZJP  =  ZP(I)*bMTX{3,3)*HJ 
IF(YJP.GT.YC2P.AND.YJP.L 

1  (SIGNd.O, ZJP). EO. SIGN 
810  IF(NCRBSL.EQ.2)  GO  TO  10 
HJ  =  (ZC3P-ZP(I)+(YP(I)- 
IFCHJ.LT.O.O.OR.HJ.GE.RW 
YJP  =  YP<I )+bMTX(2,3)*HJ 
ZJP  =  ZP(I )+BMTX(3,3)»HJ 
IF(YJP.GT.YC3P,AND,YJP.L 

I  (SIGNd.O, ZJP). EQ. SIGN 
815  IF(NCRBSL.EQ.3)  GO  TO  10 
HJ=  (ZC4P-ZP(I )+(YP(  1)-Y 
IF(HJ.LT.O.O.OR.HJ.GE.RW 
YJP  =  YPd  )  +  BMTX{2.3)*HJ 
ZJP  =  ZPa)+BMTX(3,3)*HJ 
IF(YJP.GT.YC4P.AND.YJP.L 

1  (SIGNd.O, ZJP).EQ.SIGN 
820  IF(NCRBSL.E0.4)  GO  TO  10 
HJ=  (ZC5P-ZP(I)+(YP(  I)-Y 
IF(HJ.LT.O.O.OR.HJ.GE.RW 
YJP  =  YP(I)+BMTX(2,3)*HJ 
ZJP  =  ZP(I)+BMTX(3,3)*HJ 
IF{YJP.GT.YC5P.AND.YJP.L 

1       (SIGNd.O, ZJP). EQ. SIGN 

825    IF(NCRBSL.EQ.5)    GO    TO    10 

HJ=     (ZC6P-ZP(I)  +  (YP(  I)-Y 


0.0 


BMTX(K,L)+AMTX(K,M)*AJMTX(M,L} 


(I) )    GO    TO    800 


)*TANPC1)/(BMTX(3,3)-BMTX(2,3)*TANPC1) 
(D)    GO    TO    805 


E.YC2P.AND.(ABS(ZJP).LE. 
d.0,ZC2P)  )  )    GO    TO    204 
YC2P)*TANPC2)/(BMTX(3,3) 

(D)    GO    TO    810 


ABS(ZC2P) ).ANO. 
-BMTX(2,3)* 


E.YC3P.AND.(ABS(ZJP) .LE.ABS( ZC3P ) ) .AND. 
d.0,ZC3P)  )  )    GO    TO    204 

YC3P)*TANPC3)/(BMTX(3,3)-BMTX(2,3)*TANPC3 
(I))    GO    TO    815 


E.YC4P.AND.(ABS{ZJP).LE.ABS(ZC4P)).AND. 
(1.0,ZC4P) ) )    GO   TO    204 

C4P)*TANPC4)/(BMTX(3,3)-BMTX(2,3)*TANPC4) 
(I)  )    GO    TO    820 


E.YC5P.AND.(ABS(ZJP) .LE, 
d.0,ZC5P)  ))    GO    TO   204 


AB$(ZC5P)).AND. 


C5P)*TANPC5)/(BMTXC3,3)-BMTX(2,3)*TANPC5) 
d)  )    GO    TO    625 


E.YC6P.AND.(ABS(ZJP).LE 
(1.0,ZC6P)) )    GO    TO    204 


.ABS(ZC6P)).AND. 


C6P)*TANPC6)/(BMTX(3,3)-BMTX(2,3)*TANPC6) 


CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
)CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 


1010 
10  20 
10  30 
1040 
10  50 
1060 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
12  00 
1210 
12  20 
12  30 

12  40 
1250 
1260 
1270 
1280 
1290 
1300 
1310 
1320 

13  30 
1340 
1350 
13  60 
13  70 
1360 

13  90 
1400 
1410 

14  20 
1430 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
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203 

ZJP  = 

204 

XJP  = 

CAJ  = 

CBJ  = 

CGJ  = 

CALL 

IF(HJ.LT.0.0.0R.HJ.GE,RW(I))    GO    TO    10  CRBI1520 

YJP    =    YP(I)*BMTX(2f3)*HJ  CRBI1530 

IF(YJP,LT.YC6P)    GO    TO    10  CRBI1540 

ZP(I)+BMTX(3,3)*HJ  CRBI1550 

XP(I)+BMTX(lt3»*HJ  CRBI15)60 

CXP(I)-XJP)/HJ  CRBI1570 

(YP(I)-YJP)/HJ  CRBI1580 

(2P(I)-ZJP)/HJ  CRBI15  90 

INTRPL(FJPP,RWHJB,RWHJE.DRWHJ,RHn)-HJ,FJ)  CRBI16  00 

SFRXCI)    =    SFRX(I)+FJ*CAJ  CRBI1610 

SFRYd)     =    SFRYII>  +  FJ*CBJ  CRBI1620 

SFRZ(I)    =    SFRZ(I)+FJ*CGJ  CRBI1630 

10  XJ    =    XJ+RAD  CRB11640 

11  CONTINUE  CRBI1650 
FR(I)  =  SQRT<SFRX(I)**2+SFRY(I)**2+SFRZ(I )**2)  CRBI1660 
IF(FR(1>.NE,0.0)G0  TO  110  CRBI1670 
CAR(I)  =  0,0  CRBI1680 
CBRd)  =  0.0  -  CRB11690 
CGR(I)  =  0.0  CRBI1700 
Hid)  =  RWd  )  CRBI1710 
RETURN  CRBII720 

110  CARd)  =  -SFRX(I)/FR(I)  CRBI1730 
CBRd)  =  -SFRYd)/FR(I)  CRBI17a^0 
CGRd)  =  -SFRZd)/FR(I)  CRB11750 
Hid)  =  RW(I)-FRd)/AKT(  I)  CRBI1760 
IF(HI  (I  ).GT.RW(  I)-SIGTd)  )  GO  TO  111  CRBI1770 
HI(I)     =    RWd)-(FRd)/AKTd)+SIGT(I  )*(XLAMTd  )-1.0)  )/XLAMTd)  CRBI1780 

111  TYGP  =  YPd)+HICI)*CBR(I  )  CRB11790 
PHGId)  =  0.0  CRBI1800 
IF(TYGP.LE.YC1P)G0  TO  12  CRBIlblO 
IF<TYGP.GT.YC1P.AND.TYGP.LE.YC2P)  60  TO  900  CRBI1820 
GO    TO    905.  CRBI1830 

900    PHGId)    =   PHICIR  CRBI18  40 

GO    TO    12  CRBI1850 

905    IF(NCR&SL.EQ.2)    GO    TO    970  CRBI1860 

IF(TYGP.GT.YC2P. AND. TYGP. LE.YC3P)  GO   TO    910                                                            CRBI18  70 

GO    TO    915  CRB118  60 

910    PHGId)    =    PHIC2R  CRBI1890 

GO   TO    12  CRBI1900 

915    IF(NCRBSL.EQ.3»    GO   TO   970  CRBI1910 

IFdYGP. GT.YC3P. AND. TYGP. LE.YC4P)  GO   TO    920                                                            CRB11920 

60    TO    925  CRB11930 

920    PHGId)    =    PHIC3R  CRBri9A0 

GO    TO    12  CRBI1950 

925    IF(NCRBSL.EQ.4)    GO   TO   970  CRBI1960 

IF(TYGP.GT.YC4P.AND.TYGP.LE.YC5P>  GO    TO   930                                                            CRBI1970 

GO    TO    935  CRBI19  80 

930    PHGId)    =   PHIC4R  CRBI1990 

GO    TO    12  CRBI2000 

935    IF(NCRBSL.EQ,5)    GO   TO   970  CRB120  10 

IF(TYGP.6T.YC5P. AND. TYGP .LE.YCbP)  GO   TO   940                                                            CRB12020 
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GO    TO    970 
940    PHGKI  )    =^    PHIC5R 

GO    TO    12 
970    PHGKI  )    =    PHICLR 
12    TCI    =    CAR{I)*CBYW(I)-CBR (I)*CAYW(I) 

TAX    =    CBR( I)*CGYW( I)-CGR ( I)*CbYW(I ) 

TBI    =    CGRd )*CAYW(I)-CAR( 1)*CGYW(I) 

CPG(I)    =    COS(PHGI( I)  ) 

SPG(I)     =    SIN(PHGI(I )  ) 

TERM3    =    TBI*SPG(I) 

TERM4    =    TCI*CPG(I) 

DNl    =    TAX    *     (TERM3    -    TERM4) 

DN2    =    -TbI*TERM4    -    (TAI**2    +    TCI **2 }*SPG( I) 

DN3    =       (TAI**2    ♦    TBI**2)*CPG(I)       +    TCI*TERM3 

TERM5    =    SQRT(DN1**2    ♦    DN2**2    ♦    DN3**2 ) 

SPG(l)    =    (-DN2/TERM5) 

PHGKI)    =    ARSIN(SPG(  I)  ) 

THGKI)    =    ATAN     (DN1/DN3) 

CPG(I)    =    COS(PHGIII) ) 

TERM6    =    SQRT<DN1**2    +    DN3**2> 

CTG( I)  =  DN3/TERM6 

ST&( I)  =  DN1/TERM6 

STORE    XGPPdS.YGPPd  )    AS    WELL    AS    ZGPP(I)     IN    CRbIMP 

XGPP(l)    ^    XP(I)     +    Hid)    *    CARdl 

YGPPd)     =    TYGP 

ZGPPd)    =    ZP(I)+HKI)*CGR(1) 

RETURN 

END 


FOR    PLOTTING 


CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 
CRBI 


2030 
2040 
20  50 
20  60 
2070 

20  eo 

20  90 
2100 
2110 
2120 
2130 
2140 
215>0 
2160 
2170 
2180 
2190 
22  00 
2210 
2220 
22  30 
2240 
22  50 
22  60 
22  70 
22  60 
22  90 
2300 
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SUBROUTINE    DAUX  DAUXOOIO 

C  HV0SM-RD2    VERSION  DAUX 00 20 

C  REVISED    OCTOBER    1975         CALSPAN   CORPORATION  DAUX0030 

COMMON/ lNPT/PHI0,THETA0fPSI0,P0, 00, R0,XC0P,YCOP,ZC0P,UO,VO,WOf  DAUX 0040 

1  A,B,DEL10,DEL20,DEL30,PHIR0,DEL10D,DEL20D,DEL30D,  DAUX0050 

2  PHlROD,TF,TR,ZF,ZR,RHO,AKRS,XMURt  DAUX0060 

3  XMS,XMUF,XIX,XIY,XIZ,XIXZ,CF,AKF,XLAMF,0MEGF,CFP,EPSFfDAUX0O70 

4  RF.CR, AKR, XL  AMR ,OMEGR,CRP lEPSR ,RR ,TS ,THMAX .DTCOMP ,T0,    DAUX0080 

5  T1,DTCMP1,DTPRNT,M0DE,EBAR,EM,AAA,HMAX,HMIN,BET,G,  DAUX0090 

6  HED(36),DADE(3) ,XIR,X1,Y1,Z1,X2,Y2,Z2,PHIC(50) ,DELB,       DAUXOIOO 

7  DELE,DDEL,NDEL,PSIF<50),TQF(5O),TQR(5O),TB,TEtTINCR,       DAUX 01 10 

8  NZTAB,NZ5,XBDRY(4,5) ,PSBDRY(4,5),YBDRY(2,5),NBX(5),  DAUX0120 

9  NBY(5>,NTBL1»NTBL2,NTBL3,ZGP(21,21,5)  DAUXG130 
C0MM0N/INPT/XB{5),XE(5),XINCR(5) ,NX (5 ) , YB ( 5 ) , YE( 5) t YINCR ( 5 ) ,NY( 5 ) ,DAUX0140 

1  XXZGP5(21) tYYZGP5(21) t AMUG( 5 ) ,PSBDR0(4,3 ) ,UVWMIN  ,PORMI N    DAUX0150 

COMMON/ INPTl/YClP»YC2P»ZC2PtDELTC,PHICl»PHIC2,AMUC,X IPS,  DAUX 01 60 

1  CPSP,OMGPS,AKPS,EPSPS,XPS,RWHJB,RWHJE,DRWHJ,INDCRB,       DAUX0170 

2  PSIFIOtPSIFDO  DAUX0180 
DIMENSION  YCIP(2)  DAUX0190 
EQUIVALENCE  (YCIP( 1 ) ,YC1P )  DAUX0200 
COMMON  /INTG/NEQ,TtDT,VAR(50) ,0ER(50)  DAUX0210 
EQUIVALENCE     {U,VAR(1 )) ,( V,VAR(2) ),(W,VAR(3)) , (P,VAR(4) ),(Q,VAR(5) ) DAUX 02 20 

1  ,  (R,VAR(6)l  ,(DELl,VAR{7n,  (DELID,  VAR(  8)  )  ,  (  DEL2,  VAR(9)  )  ,DAUX02  30 

2  (DEL2D,VAR{10)),(DEL3,VAR(11)),(DEL3D,VAR( 12)),  DAUX0240 

3  (PHIR,VAR(13)),{PHIRD,VAR(14) ),(THETTP,VAR(15) ),  DAUX0250 

4  tPHITP,VAR(16)),(PSITP,VAR(17)),(XCP,VAR(18) ),  DAUX0260 

5  (YCP,VAR(19) ),(ZCP,VAR(20)),(PSIFI,VAR(21) ),  DAUX0270 

6  (PSIFID,VAR( 22))  DAUX0280 
EQUIVALENCE     (DU,DER( 1 ) ), (DV,DER ( 2) ) , ( DW,DER( 3 ) ) , (DP ,OER (4) ) ,  DAUX 02 90 

1  (D0,DER(5)), (DR,DfcR(6) ) , ( DDEL 1,DER( 7 ) ) , ( DDELID ,DER (8 ) )DAUX0300 

2  ,(DDEL2,DER(9) ),tDDEL2D,DER(10) ), {DDEL3,DER(11) ),  DAUX0310 

3  (DDEL3D,DER(  12)), (DPHIR,DER(13)),(DPHIRD,DER(14)),  0AUX0320 

4  (DTHTTP,DER( 15)),(DPHITP,DER(16)),(DPSITP,DER(17)),  DAUX0330 

5  (DXCP,DER(18 )),(DYCP,DER( 19) ),(DZCP,DER(20)) ,  DAUX0340 

6  (DPSIFI,DER(21»),(DDPSFI,DER(22))  DAUX0350 
EQUIVALENCE     (VAR( 9) , PHIF ) ,(VAR(10) ,PHIFD) , ( DER( 9 ), DPHIF) ,  DAUX 0360 

1  (DER(IO)  ,DPHIFO)  DAUX0370 

EQUIVALENCE    ( VAR( 13) ,DEL4 ) , ( VAR ( 14 ) ,DEL4D ) , ( DER( 13),DDEL4),  DAUX 03 80 

1  (DER{14),DDEL40)  DAUX0390 

COMMON    /DIM V/X IP, X2P, X 3P, X4P, Yl P,Y2P,Y3P,Y4P, ZIP, Z2P,Z3P,Z4P, PHI 1, DAUX 0400 

1  PHI2,PHI3,PHI4,PSI1,PSI2,PSI3,PSI4,CAYW(4),CBYW(4I,       DAUX0410 

2  CGYW<4) ,ZPGI(4),THGI{4),PHGI(4),CPG(4),SPG{4) ,CTG (4 ) ,0AUX0420 

3  STG(4) ,CAGZ(4) ,CBGZ(4),CGGZ(4),D1(4),D2(4),D3(4),  DAUX0430 

4  XLM1(4) ,XLM2(4),XLM3(4),AMTX(3,3),CMTX(3,4),XGPP(4),    DAUX0440 

5  YGPP(4) ,ZGPP{4),DMATX(10,11),DELTA(4),CAR(4),CBR(4) ,    DAUX0450 

6  CGR{4),FR(4),HI(4),FC(4),TI(4),AXC4),BX(4),CX(4),  DAUX0460 

7  CTXG{4) ,UG(4),STXG(4),AY(4),BY(4),CY(4),CPYG(4),  DAUX0470 

8  SPYG(4) ,VG(4),PSIIP(4),PHICI(4),CAC(4),CBC(4) ,CGC(4) ,DAUX0480 

9  FCXU(4),FCYU(4),FCZU(4),FS(4),CAXW(4) ,CBXW(4) ,CGXW(4 )DAUX0^90 
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COMMON  /DIMV/AS(4)fBS{4) ,CS(4) ,CAS ( 4) t CBS(4) tCGS (4 ) ,BETP (4 ) ,                 DAUX05  00 

1  BETBR(4),FSXU(4),FSYU(4),FSZU(4),FRXU(4),FRYU(4),  DAUX0510 

2  FRZU(4) ,FXU<4),FYU(4> ,FZU(4),SI(4),F1FI{2),F1RI{2),       DAUX0520 

3  F2F1(2),F2RI(2)»CAH(4) ,CBH(4),CGHC4)  DAUX053O 
DIMENSION  XP(4),YP(4)tZP(4),PHII(4),PSII(4)  DAUX0540 
EQUIVALENCE    (XP ( 1 ) ,X IP )♦ ( YP{ 1 ),  YIP ) ,  (  ZP( 1 ) ,Z1P) , (PHII  {  1) ,PHI1 ) ,         DAUX05  50 

1  (PSII(1),PSI1)                                                                                                         DAUX0560 

COMMON  /C0MP/SUMM,THETN,PHIN,PSIN,PI,RAD,GAMl,GAM2,GAM3,GAM4,&AM5fDAUX05  70 

1  GAM6,GAM7,GAM8,GAM9,THETT,PHIT,PSIT,ZR0,TR02,  DAUX0580 

2  TFO2,TIZ,RHO2,RH0MUR,AMUF,BMUR,ZPR,TM4,RHMR2,AO2APB,    DAUX0590 

3  B02APBtRFTF,TS02fRRTS,BR0MURfXMUF02,AXMF02,XMTF04f  DAUX0600 

4  XIZR,RTR,RHMR2I,XIXP,XlZP,XIXZP»XIYZPtDlPD2,DlMD2,  DAUX0610 

5  ZRD3,ZRD3Rt  ZFD3R tZFD12tTIZ2, TG61 ,DD1P2,DD1M2,RPR ,PHRPDAUX06  20 

6  ,TANTP,SPHTP,CPHTP,SECTP,SFXS,SFYS,SFZS,SNPStSNTS,  DAUX0630 

7  SNPSS»TPR,CAY,CbY,CGY,CAX,CBX,C6X,SFYUtSFXUtSFYUF,  DAUX0640 

8  SFYURfSFZUf COSTH,SINTH,COSPStSINPStCOSPH,SINPH,AN&l,    DAUX0650 

9  AN&2tCPHI,SPHltCPSI»SPSI,Pl,P7,P3tP4,P5»P6,TX,TY,TZ  DAUX0660 
COMMON  /C0MP/TRH,DISTX,DISTY,DISTD,DISTS,D21tZETA4,ZETA4D,Z£TA3t       DAUX06  70 

1  ZETA3D,SFZ1 ,SNPU,SNTU,HCGH1,HCGH2,HCGH3,HCGH4,TERM1,    0AUX0680 

2  TERM2,SNPSUtSNPRiHCBHl,HCBH2,HCBH3tHCBH4,HCAHltHCAH2tDAUX0690 

3  HCAH3,HCAH4,U0tWP,UR,QR,VP,PR,P2tQ2fR2,VR,WQ,PQ,PHIR2DAUX0700 

4  ,PHIRD2,RPHRD,GCTH,GSTH,GCTSPtGCTCPtXXX,YYY,IX,IY,XXl,DAUX0710 


5  XX2»YY1,YY2,THG1,THG2,PHG1,PHG2,ZZ1»ZZ2,LLL 

DIMENSION  HCAH(4),HCBH(4) fHCGH(4) 

EQUIVALENCE  (HCAH(l) ,HCAH1 } , ( HCBH{ I) ,HCbHl ) , ( HCGH( 1),HCGH1) 
COMMON  /COMPN/  FRSP( 4) tFRCP( 4) , ICBHIT, JCBHIT , 

1  DPSINT,TANPClt1ANPC2,PHIClR,PHIC2R,AMUCMP,PHIlD, 

2  PHI2D,LCB1(4),LCB2<4),IHIT,AJMTX(3»3),BMTX(3»3), 

3  SFRX(4) ,SFRY(4),SFRZ(4) ,T1 PSI t T2PS1 tXMUGI (4) 
LOGICAL    LCB1,LCB2 

COMMON /ADTNL/    Ul,U2tU3 ,U4,V 1, V2 , V3 ,V4, Wl , W2, W3,W4, 

1  XIYP,SPHICtCPHIC»APTCHl,APTCH2f APTCH3tAPTCH4t 

2  SLOPEl,SLOPE2tXTRA(300) 
DIMENSION   UI (4)  ,VI(4),WI (4) 

EQUIVALENCE     (UK  1 )  tU  1  >  t  (  VI(  1 )  ,V1 )  ,  (  WI  (  1  )  ,  Wl) 
DIMENSION   APITCH(4) 
EQUIVALENCE     ( AP ITCH ( 1 )  .APTCHl ) 


COMMON    /INPT2/ 


COMMON    /INSUS/ 


YBP0,ZBTP,ZBBP,XVF,XVRfYV,ZVT,ZVB,AKV,SI6R(il), 
SET, CONS, AMUB,EPSV,EPSB,XM,EPSTtDDD,INDB,DELYBP, 
DELTB,XINPT(100) 
XIF,RHOF,TSF,PHIFO,PHIFOD,DEL40,DEL40D,ISUS, 


DA UX 0720 
DAUX0730 
DA  UX  07  40 
DA  UX  07  50 
DA  UX  07  60 
DA  UX  07  70 
DA  UX  07 80 
DA  UX  07  90 
DAUX0800 
DAUX08  10 
DA  UX 08  20 
DA  UX  08  30 
DAUX08  40 
DA  UX  08  50 
DA UX 08 60 
DA UX OB 70 
DA  UX  08  80 
DAUX08  90 
DAUX0900 


AKDS,AKDS1,AKDS2,AKDS3,PHIRC(50),DTHF(50),DTHR(50),DAUX0910 


NCAMF,NCAMR,NDTHF,NDTHR  DAUX0920 

COMMON    /SUSCMP/    XMUR02 ,BXMR02 ,XMTR04, ZFO, TSF02 ,RHCF2,RHFMUF,  DAUX0930 

RHF2MF,RF2MFI,RTF,RRTR,D3PD4,D3MD4,D43,DD3P4,  DAUX0940 

DD3M4,ZFD1RF,ZRD34,RFPF,RPF2M,WFMF,PHFP,PHIF2,  DAUX09  50 

PHIFD2,RPHFD,ZFDl,ZFD2,ZRD4,TPF,SL0PE3,SL0Pe4,  DAUX0960 

PHI3D,PHI4D,DTHF1,DTHF2,DTHR3,0THR4,DTDD1,  DA UX 09 70 

DTDD2,DTDD3,DTDD4,FJF(4) ,SNPF  DAUX0980 

COMMON/NSTOP/ISIOP  DAUX0990 

DIMENSION    DISP(4),VEL(4)  DAUXIOOO 
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10 


11 


12 


♦    XMUR*ZRD3*ZRD3R 


IF(ISTOP.NE.O)    RETURN 

CALL    TMCNST 

ISl    =    ISUS+1 

D12D22    =   DEL1*DEL1    ♦    DEL2*DEL2 

GO    TO    (10»ll»12)tISl 

XIXP    =    XMUF*CZF*(ZF+D1PD2)*.5*D12D22) 

XIYP    =    X1XP*RH0MUR*ZRD3R 

XIZP    =    TIZ*TIZ2 

XIX ZP    =    AMUF*ZFD12    -   BMUR*ZRD3 

XIYZP    =    TM4*D1MD2-RH0MUR*PHIR*ZRD3R 

GAM2    =    XMUF*ZFD12+XMUR*ZRD3R 

GAM3    =    GAM2-RH0MUR 

GAM4    =    X1YZP+RHMR2*PHIR 

GAMS    =    T1Z-XMUF*TF02*TF-TIZ2 

GAM6    =    XMUF*DD1P2+2.0*TG61 

GAM7    =    XMUF*(ZF*DD1P2+DEL1*0EL1D+DEL2*0EL2D)+2.0*ZR03* 

GAM8    =    2,0*{TM4*DD1M2-RPR*TG61) 

GAM9    =    AMUF*DD1P2    -    2,0*B*TG61 

GO    TO    3 

XIXP    =    XMUF02*(ZFD1*ZFD1*ZFD2*ZFD2)    +    XMUR02* (ZRD3*ZRD 

XIYP    =    XIXP 

XIZP    =    XMUF*(A*A+TF02*TF02)    ♦XMUR* ( B*B+TR02*TR02 } 

XIXZP    =    AXMF02*(ZFD1+ZFD2)    -      BXMR02* ( ZRD3+ZRD4) 

XIYZP    =    XMTF04+D1MD2    ♦    XMTR04*D3MD4 


TG61 


XMUF+ZFD12    +    XMUR*ZRD34 

XWJF*(A»A-TF02*TF02)    ■»■   XMUR*(B*B-TR02*TR02) 
XMUF*DD1P2    +    XMUR*DD3P4 

XMUF*(ZFDi*DELlD*ZFD2*DEL2D)    ♦    XMUR*( ZRD3*DEL3D 
XMUF*TF02*DD1M2    ♦    XMUR*TR02*DD3M4 
ANUF*DD1P2   -    BMUR*D03P4 


GAM  2 

GAMS 

GAM6 

GAM7 

GAM& 

GAM9 

GO    TO    3 

XIXP    =    XMUF*ZFD1*ZFD1    ♦    RHFMUF*ZFD1    ♦    XMUR*ZRD3*ZRD3   ♦ 

XIYP    =    XIXP    ♦    RHFMUF*ZFD1RF    ♦    RH0MUR*ZRD3R 

XIZP    =    XMUF*(A*A+RFPF*RFPF)    ♦    XMUR*(B*B+RPR*RPR ) 

XIXZP    =    AMUF*ZFD1    -    BMUR*ZR03 

XIYZP    =    -XMUF»RFPF*ZFD1RF   -   XMUR*RPR*ZRD3R 

GAM2    =    XMUF*ZFD1RF    ♦    XMUR*ZRD3R 

GAM3    =    GAH2    -   RHFMUF    -   RHOMUR 

GAM4    s    XIYZP    ♦    RHF2MF*PHIF   ♦   RHMR2*PHIR 

GAMS    «    XMUF*(A*A-RFPF*RFPF)    ♦    XMUR*(B*B-RPR*RPR ) 

GAM6    =    2.0*WFMF    ♦   2.0*TG61 

GAM7    =    2,0*ZFDl*WFMF    ♦   2 .0*ZRD3*TG61 

GAM8    =    -2.0*RFPF*WFMF    -  2.0*RPR*T661 

GAM9    =    2.0*A*WFMF    -    2.0*B*TG61 

CALL    VPOS 

CALL    VGORNT 

IF(ISUS,EQ.2)    GO    TO    20 

DISPU)    -   DELI 

DISP(2)    =  DEL2 

VEL(l)    =   DELID 


DAUXIOIO 
DA  UX  10  20 
DA  UX  10  30 
DA  UX  1040 
DAUXXOSO 
DAUX1060 
DAUX1070 
DA  UX  10  60 
DAUX10  90 
DA  UX  11 00 
DAUXlllO 
DA  UX  11 20 
DAUX1130 
DAUX1140 
DAUXllSO 
DAUX1160 
DAUX1170 
DAUX1180 
DAUXH90 
DA  UX  12  00 

3+ZRD4*ZRD4)DAUX12  10 
DAUX12  20 
DAUX12  30 
DA  UX 12 40 
DAUX12  50 
DAUX12  60 
DA UX 12  70 
DA  UX  1280 

♦ZRD4*DEL4D)DAUX12  90 
DA  UX  13  00 
DAUX1310 
DAUX1320 
RH0MUR*ZRD3DAUX1330 
DA  UX  13  40 
DAUX13  50 
DA  UX  13  60 
DA  UX  1370 
DA  UX  13  80 
DA  UX  13  90 
DAUX1400 
DA  UX  14 10 
DA  UX  14  20 
DA  UX  14  30 
DAUX1440 
DAUX14  50 
DA  UX  14  60 
DA  UX  1470 
DAUX1480 
DA  UX  14  90 
0AUX15OO 
DAUX1510 
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VEL(2)     =   DEL2D 
GO    TO    21 

20  DISP(l)    =    DEL1+TSFD2»PHIF 
DISP(2)     =    0EL1-TSF02*PHIF 
VEL(l)     =   0ELID+TSF02*PHIFD 
VEL(2)     =    D£L1D-TSF02*PHIFD 
GO    TO    22 

21  IF( ISUS.NE.l)  GO  TO  22 
DISPO)  =  DEL3 
DISP(4)  =  DEL4 
VEL(3)  -  DEL3D 
VEL(4)  =  DEL^O 
GO    TO    23 

22  DISP(3)    =    DEL3+TS02*PHIR 
DISP(A)     =    DEL3-TS02*PHIR 
VEL(3)     =    D£L3D+TS02*PHIRD 
VEL(4»     =    DEL3D-TS02*PHIRD 

23  CALL    SUSFRC( DISPtVEL) 
CALL    UMOMNT(ISUS) 
IF(INDB.NE.O)    CALL    5.F0RCE 
GO    TO     (30»3l»32) ,ISl 

30  CALL    MATRIX 
GO    TO    3^t 

31  CALL    MTRXIR  / 
GO    TO    3^ 

32  CALL    MTRXSF 

34  CALL  SIMS0L(0MATX,10,10) 
DU  =  DMATX(1,11 ) 
DV  =  DMATX(2,11) 
DW  =  DMATXO.ll) 
DP  =  0MATX(4,11) 
DQ  =  DMATX(5,11) 
DR    =    DMATX(6,11> 

DXCP    =    AMTX(1,1)*U    +    AMTX(1,2)*V    +    AMTX(1,3>«W 
DYCP    =    AMTX(2,1)*U    +    AMTX(2,2)*V    +    AMTX(2,3)*W 
DZCP    =    AMTX(3,1)*U    ♦    AMTX(3f2)*V    ♦    AMTX(3,3)*W 
DTHTTP    =   Q*CPHTP    •-    R*SPHTP 
DPHITP    =    P    ♦    (Q*SPHTP    ♦    R»CPHTP)*TANTP 
DPSITP    =    (Q*SPHTP    ♦    R*CPHTP)*SECTP 
IF(ISUS.EQ.2)    GO   TO    40 
DDELID    '   DMATX(7,11) 
DDEL2D    =   DMATX{8,11) 
DDELl    =    DELID 
DDeL2    =    DEL2D 
GO    TO    41 

40  ODELID    =   DMATX(7,11) 
DPHIFD    =   DMATX(8,11) 
DDELl    =    DELID 
DPHIF    =    PHIFD 

GO    TO    43 

41  IF( ISUS.NE.l)    GO   TO    43 


DAUX15  20 
DA  UX  15  30 
DAUX15  40 
DAUX1550 
DA  UX  15  60 
DAUX1570 
DAUX1580 
DA UX 1590 
DA  UX  1600 
DA  UX  1610 
DA  UX  1620 
DAUX16  30 
DAUX1640 
0AUX16  50 
DA  UX  1660 
DAUX1670 
DAUX16a0 
DAUX1690 
DAUX1700 
DAUX1710 
DA  UX  17  20 
DAUX1730 
DAUX1740 
DAUX1750 
DAUX1760 
DA  UX  1770 
DAUX1780 
DA UX 1790 
DA  UX  18  00 
DAIJX1810 
DA  UX  18  20 
DAUX1830 
DA  UX  18  40 
DAUX18  50 
DA  UX  18  60 
DAUX18  70 
DA  UX  18  80 
DA  UX  18  90 
DAUX1900 
DAUX1910 
DAUX1920 
DA UX 19 30 
DA  UX  1940 
DA UX 1950 
DAUX1960 
DA  UX  19  70 
DAUX19  80 
DA  UX  19  90 
DA  UX  2000 
DA  UX  20  10 
DA UX 20 20 
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DDEL3D    =   DMATX(9tll>  DAUX2030 

DDEL4D    =   DMATXdCll)  DAUX2040 

DDEL3    =    DELBD  DAUX2050 

DDELA    =    DEL4D  DAUX2060 

GO    TO    44  DA  UX  20  70 

43  D0EL3D  =  DMATX(9,11)  DAUX2080 
DPHIRD  =DMATX(10,11I  DAUX2090 
0DEL3  =  DEL3D  DAUX2100 
DPHIR    =    PHIRD  DAUX2110 

44  CONTINUE  DAUX2I20 
IFdHIT.EQ.O.AND.lNDCRB^GE.O)  RETURN  DAUX2130 
DPSIFI  =  PSIFID  DAUX2140 
TIPSI  =  0.0  DAUX2150 
T2PSI  =  0.0  DAUX2160 
IF(ABS(PSIFID) .GT.EPSPS)  TIPSI  =  SIGN(CPSP,PSIFID)  DAUX2170 
IF(SIGNC1., PSIFID)  .NE.  SIGN( 1. , PSIFI ) )  GO  TO  7  DAUX2180 
ABSPSF  =  ABS(PSIFI)  DAUX2190 
IF(ABSPSF    .GT.    0M6PS)    T2PSI=SIGN ( ( AKPS»( ABSPSF-OMGPS ) ) ,PSI F I )  DAUX2200 

7    DDPSFI     =    (FYU(1)*(HCAH1-XPS*C0S(PS1IP(1 ) J*CTXG(1))+  DAUX2210 

1  FYU(2)*(HCAH2-XPS*C0S(PSIIP(2) )*CTXG(2))-  DAUX2k20 

2  FXU(l)*(HCBHlt-PHIl*HCGHl  )-FXU(2)*(HCBH2+PHI2*HCGH2)-  DAUX2230 

3  T1PSI-T2PSI+FZU( 1)*HCAH 1*PHI1*FZU( 2 )*HCAH2*PHI2 )/XIPS  DAUX2240 
RETURN  DAUX22  50 
END  DAUX2260 
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SUBROUTINE    DRIVER (/SA/,/SADOT/t /ISA/}  DRIVOOIO 

C                                   HV0SM-RD2    VERSION  DRIV0020 

C  .                                  REVISED    OCTOBER    1975      CALSPAN  CORPORATION                                               DRIV0030 

ISA    =    0  DRIV0040 

RETURN  DRIV0050 

END  DRIV0060 
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SUBROUTINE    DRIVID  DRVDOOIO 

C                                     HV0SM-RD2    VERSION  DRVDOO?0 

C                                     REVISED    OCTOBER    1975  CALSPAN    CORPORATION                                               DRVD0G30 

RETURN  DRVD0040 

END  DRVD00  50 
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SUBROUTINE    EGYSUM 
C  HV0SM-RD2    VERS  10 

C  REVISED    OCTOBER 

COMMON    /INPT2/    YBPO,ZBTP 

1  SET, CONS, 

2  DELTB.XIN 
COMMON/BARIER/FN,IBHIT,J 

1  YCPN(3),ZC 

2  AA2(17),BB 

3  CBBT,CGbT, 

4  YBPT,XNN(1 

5  ,ININD,UNP 

6  XCPTP,YCPT 

7  A1NTP,SXR, 

8  FNP,FB,URP 

9  NSEG,YBPTP 
A  RBltNUNLD, 
B  SWORK,SPEN 

DIMENSION    INDXPT(4) 
EQUIVALENCE     (INDXPT(1),I 

1  DISS    =    ENRGY-EEE 

SWORK    =    SWORK+FRICT*VTAN 
IF(FN,EQ.0.01    GO   TO    2 
SPENGY    =    SPENGY+,5*(FN*F 

2  PVDEF    =    VDEF 
FNP    =    FN 

IF(FN.EO.O.O)OELBB    =    EPS 
DELBBP    =  DELBB 
IFdNIND.EQ.DININD    =   2 
PPRB    =    RB 

PCAB  =  CAB 
PCBB  =  CBB 
PCGB  =  CGB 
YBPTP  =  YBPT 
PSZR  s  SZR 
RETURN 
END 


N 

1975         CALSPAN    CORPORATION 

,ZBBP,XVF,XVR,YV,ZVT,ZVB,A 

AMUB,EPSV, EPSB,XM,EPST,DDD 

PTC  100) 

BHIT,XCPNP(3),YCPNP(3),ZCP 

PN(3),AAI(17),BB1(I7),CC1( 

2(17),CC2(17),RR2(17),CAB, 

RB,XBT,YBT,ZBT,XBB,YBB,ZBB 

7),YNN(17) ,ZNN{17),XMTX(3, 

(17),VNP(17),WNP(17),VMAX( 

P,ZCPTP,XCPBP,YCPBP,ZCPBP, 

SYR,SZRtSDEN,XRI,YRI,ZRI,F 

,VRP,WRP,EPSL,XLDP,DELX,VL 

, PCAB, PCBB, PCGB, PPRb,CABl, 

NLDCTR, VDEF, PVDEF, PSZR, XF, 

GY,DISS,IPLN,ILOAD 

1) 

♦  DT 

NP)*(VDEF-PVDEF) 


L*SET*DELX 


KV,SIGR{ 
,INDB,DE 

NP(3),XC 
171, RRK 
CBB, CGB, 
,RR2P(17 
4),IDPT( 
4), II, 12 
YCPMP,AI 
RICT,DEL 
,NCYC,EE 
CBB1,CGB 
DELBBP, 


IDf 
LYBP, 

PN(3), 

17), 

CAbT, 

)t 

17),IPT 

fI3,I4, 

NTI, 

BB,VTAN 

E,ENRGY 

If 


EGYSOO  10 
EGYS00  20 
EGYSOO 30 
EGYSOO  40 
EGYSOO 50 
EGYSOO  60 
EGYSOO 70 
EGYSOO  80 
EGYSOO 90 
EG  YS  01 00 
EGYSOllO 
EGYS0120 
EGYS0130 
,EGYS0140 
, EGYS0150 
EGYSOltO 
EG  YS  01 70 
EGYSOiSO 
EG  YS  01 90 
EG  YS  02  00 
EG  YS  02  10 
EG YS 02 20 
EG  YS  02  30 
EG  YS  02  40 
EGYS02  50 
EGYS0260 
EG  YS  02  70 
EGYS02  80 
EGYS02  90 
EG  YS  03  00 
EGYS0310 
EGYS0320 
EG  YS  03  30 
EG YS 03 40 
EG  YS  03  50 
EG  YS  03  60 
EG  YS  0370 
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UPDATE    RECORD 


SUBROUTINE    GCPdJ 
C  HVQSM-RD2    VERSION 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION 

COMMON    /DIMV/XlP,X2PtX3P,X4P,YlP,Y2P,Y3P,Y4P,ZlP,Z2PtZ3P,Z4P,PHIl 


1 

2 
3 
4 
5 
6 
7 
8 
9 


PHI2,PHI3tPHI4tPSIlfPSI2,PSI3,PSI4,CAYW(4),CBYW(4), 
CGYW(4) ,ZPGI(4J,THGI<4I,PHGI(4),CPG<4),SPG<4),CTG(4) 
STG(4).CAGZ(4),CBGZ(4),CGGZ(4),D1C4),D2(4),D3(4), 
XLMl(4) ,XLM2(4),XLM3(4),AMTX(3f3),CMTX(3t4),XGPP(4) , 
YGPP(4) ,ZGPP(4),DMATX(10,11),DELTA(4) ,CAR (4), CBR(4) , 
CGR(4),FR(4),HI(4) ,FC ( 4) ,TI( 4) , AX«4) , BX(4 ) ,CX( 4) , 
CTXG(4) ,UG(4),STXG|4)f AY(4),BY(4>,CY(4),CPY&(4), 
SPYG(4),VG(4),PSIIP(4),PHICI(4),CAC(4),CBC(4),CGC(4),GCP 
FCXU(4) ,FCYU(4),FCZU(4),FS(4),CAXW(4) ,CBXW(4) ,CGXW(4)GCP 


GCP 
GCP 
GCP 

»GCP 
GCP 

,GCP 
GCP 
GCP 
GCP 
GCP 
GCP 


COMMON    /DIMV/AS(4),BS(4) ,CS (4) ,CAS (4) ,CBS(4) ,CGS (4 ) »BETP (4 ) ,  GCP 

1  BETBR(4),FSXU(H>fFSYU(4),FSZU(4),FRXU(4),FRYU(4),  GCP 

2  FRZU(4) ,FXU(4),FYU(4),FZU(4),SI(4),F1FI(2),F1RI(2),  GCP 

3  F2FI(2),F2RI(2),CAH(4J,CBH(4) ,C6H(4)  GCP 
DIMENSION  XP(4),YP(4),ZP (4),PHII (4),PS1I(4)  GCP 
EQUIVALENCE     (XP(l)»XlP)t ( YP( I) f YIP ) , ( ZP ( I ) ,Z1P) t (PHII ( 1 ) ,PHI1),  GCP 

1  (PSII(I)  ,PSI  1)  GCP 
COMMON    /C0MP/SUMM,THETNtPHIN,PSINfPItRAD»GAMl,GAM2tGAM3tGAM4,GAM5tGCP 


1 
2 
3 
4 
5 
6 
7 
6 
9 

I 
2 
3 

4 
5 


COMMON 


GAM6,GAM7,GAM8,GAM9,THETT,PHIT,PSITtZR0,TR02,  GCP 

TF02tTIZtRHO2fRH0MURtAMUF,BMURtZPRfTM4,RHMR2»AO2APB,    GCP 

B02APB,RFTF ,TS02 ,RRTS ,BROMUR t XMUF02 tAXMF02,XMTF04,  GCP 

XIZR,RTR,RHMR2IfXIXP,XIZP,XIXZP,XIYZPfDlPD2,DlMD2,  GCP 

ZRD3,ZRD3Rt ZFD3R,ZFD12tTIZ2,T661tDDlP2tDDlM2,RPRtPHRPGCP 

, T ANT P, S PH TP ♦ CPHTP t SECTP.SFXStSFYStSFZSfSN PS tSNTS,  GCP 

SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYUfSFXUfSFYUF,  GCP 

SFYURtSFZU»COSTH,SINTH,COSPStSINPS»COSPH,SINPH,ANGl,    GCP 

ANG2,CPHI,SPHI,CPSI,SPSIfPltP7,P3tP4,P5tP6tTX,TY,TZ       GCP 

/C0MP/TRH,DISTX,DISTY,DISTD,DISTSfD21,ZETA4,ZETA4D,ZETA3f       GCP 

ZETA3D,SFZltSNPU,SNTU»HCGHl,HCGH2tHCGH3,HCGH4,TERMl,    GCP 

TERM2,SNPSU,SNPR,HCBHl,HCBH2,HCBH3tHC8H4,HCAHl,HCAH2tGCP 

HCAH3fHCAH4,UQfWPtURf0RtVP,PR,P2,Q2,R2,VR,WQ,PQ,PHIR2GCP 

,PHIR02,RPHRD,GCTH,6STH,GCTSP,GCTCP,XXX,YYY,IX,IY,XXltGCP 


XX2,YYl,YY2,THGl,THG2,PHGltPHG2,ZZlfZZ2tLLL  GCP 

DIMENSION    HCAH(4),HCBH«4),HCGH(4)  GCP 

EQUIVALENCE     (HCAH( 1 ) ,HCAH1) , (HCBH( 1 ) t HCBHl » , ( HC6H( 1 ) ,HCGH1 )  GCP 
COMMON    /TIRIN/    AKT (4  )  ,SI6T(4) ,XLAMT(4) , AG (4) , Al (4) , A2{ 4) ,A3(4I ,  GCP 

1  A4(4) ,0MEGT(4),AMU(4l,RW(4),FJP(35,4),A234(4),  GCP 

2  A12(4)t0MT2A2(4)f0MT2Ml(4) ,A23(4),ITIR(4)  GCP 
XLMl(I)    =    XP(I)*CAYW(I)*YP(I )*CBYW<I)+ZP(I)*C6YW( I)  GCP 

XLM2(I)    =   XP(I)*CAGZ(I )+YP{I)*CBGZ{l)+ZPGI(I)*CGGZ(I)  GCP 

XLM3(I)    =   DUI  )*XP(I  >+D2(I)*YP(I>+D3(I)*ZP(I)  GCP 

CMTX( 1,1)    =    CAYW(l)  GCP 

CMTX(1,2I    =    CBYW(I)  GCP 

CMTX(1,3)    =    CGYW(I)  GCP 

CMTX(1,4}    =    XLMKI)  GCP 

CMTX(2,1)    =    CAGZ(I)  GCP 


00  10 
00  20 
0030 
00  40 
0050 
00  60 
00  70 
0080 
00  90 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 

oieo 

0190 
02  00 
02  10 
02  20 
02  30 
02  40 
02  50 
02  60 
02  70 

02  80 
0290 

03  00 
03  10 
0320 
0330 
03^ 
03  50 
03  60 
03  70 
03  80 

03  90 

04  00 
0410 
0420 
04  30 
0440 
0^50 
0460 
04  70 
0480 
0490 
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CMTX(2,2)    =    CBGZd) 

CMTX(2,3)    =    CGGZ(I) 

CMTX(2,4)    =    XLM2(I> 

CMTX(3,1)    =    Did) 

CMTX{3,2)    =    D2(I) 

CMTX(3,3)    =    D3(I) 

CMTX(3,4)    =    XLM3(I) 
CALL    SIMS0L{CMTX,3,3) 
XGPPd)    =   CMTX(1,4) 
YGPP(I)    =   CMTX(2,4) 
ZGPPd)    =   CMTX(3,4) 
TX    =    XGPP(I)-XP(I) 
TY    =    YGPPd)-YPd) 
TZ    =    ZGPPd)-ZP(l) 

DELTAd)    =    S0RT(TX**2  +  TY**2*TZ**2) 

CARd)    =    TX/DELTAd) 

CBRd)    =   TY/DELTAd) 

CGRd)    =    TZ/DELTA<I) 

HI(I)    =    AMINKDELTAt  IJ  ,RW(I)) 

FR(I)    =    0,0 

IF(RW(I).EO.HId))    RETURN 

TRH    =    RWa)-HI(I) 

IF(TRH,GT.SIGTd))    GO   TO    5 

FRd)    =    AKTd)«TRH 

RETURN 

REtJrn"    '^•^T{I)*{XLAMTd)*dRH-SIGT(I))^SIGT(I)) 

END 


6CP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 

GCP 


0500 
0510 
05  20 
05  30 
05  40 
0550 
0560 

05  70 
0580 
0590 

06  00 
0610 
0620 
0630 
0640 
06  50 
06  60 
06  70 
0to80 
06  90 
0700 
0710 
0720 
0730 
0740 
0750 
0760 
0770 
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SUBROUTINE    IDOUT  IDOTOOIO 

C  HV0SM-RD2    VERSION  ID0T0020 

C  REVISED    OCTOBER    1975      CALSPAN    CORPORATION  ID0T0030 

COMMON/HEAD/    VHED( 20 } ♦CHED(20 ) ,GHED (20 ) ,SHED(20> ,THED( 20) t  ID0T00  40 

1  NPAGE(20)  ID0T0050 

COMMON/INPT/PHlO,THETA0,PSIO,P0,Q0fR0,XCOP,YC0P,ZC0P,U0,V0,WO,  ID0T00  60 

1  A,B,DEL10,DEL20fDEL30,PHIR0,DEL10DfDEL20D,DEL30D,  IDCT0070 

2  PHlR0DfTF,TRtZF,2R»RH0f AKRS.XMURt  IDOTOOSO 

3  XMStXMUF,XIXfXlY,XIZ,XIXZ.CF,AKFf XLAMF,0MEGF,CFP,EPSF,IDDT00  90 

4  RF,CRf AKR,XLAM^tCMEGR»CRPfEPSRfRRfTStTHMAXtOTCOMPfT0f  IDOTOIOO 

5  TIfDTCMPl,DTPRNTtM0DE,EBAR,EM,AAA,HMAXfHMIN,6ET,G,  IDOTOllO 

6  HE0(36),DADE(3)tXIR,Xl,Yl,Zl,X2tY2tZ2,PHIC(50),DELB,  ID0T0120 

7  DELE,DDEL,NDEL,PSIF(50),TOF(50),TOR(50 J,TB»TEf TINCRt  ID0T0130 

8  NZTABfNZ5,XBDRYC4,5),PSBDRY(4,5) ,YBDRY(2,5),NBX(5)f  ID0T0140 

9  NBY(5)tNTBLl,NTBL2,NTBL3,ZGP(21t21,5)  ID0T0150 
C0MM0N/1NPT/XB(5),XE(5),XINCR{5) tNX (5 ) , YB ( 5) t YE ( 5) , YINCR ( 5 ) ,NY( 5) ,ID0T0160 

1  XXZGP5(21) ,YYZGP5(21) tAMUG(5) ,PSBDR0(4f 5 ) ,UVWMIN  ,PORMIN  ID0T0i70 

C0MM0N/INPTl/YClPtYC2P»ZC2P,DELTCtPHICltPHIC2tAMUC,XIPSf  ID OT 01 80 

1  CPSP»OMGPS»AKPS»EPSPS»XPSf RWHJB,RWHJEfDRWHJ,INDCRB,  IDOTOIVO 

2  PSIFIOtPSIFDO  ID0T0200 
DIMENSION  YCIP{2)  IDGT0210 
EQUIVALENCE  (YCIP (1 ) ,YC1P »  ID0T0220 
COMMON    /C0MP/SUMM,THETN,PHlNfPSIN,PI,RAD,GAMl,GAM2,GAM3,GAM4,GAM5,ID0T0230 

1  GAM6,GAM7,GAM8f&AM9,THETT,PHITtPSIT,ZR0,TR02,  ID0T0240 

2  TF02tTIZ,RH02,RH0MURf AMUF,BMURtZPRtTM4»RHMR2,A02APBf  IDCT02  50 

3  B02APB,RFTF,TS02,RRTS,BR0MURtXMUF02tAXMF02,XMTF04t  ID0T0260 

4  XIZR»RTR,RHMR2IfXIXPtXIZPiXIXZPtXIYZPtDlPD2tDlMD2t  ID0T0270 

5  ZRD3fZR03Rt  ZFD3RtZFD12fT:Z2t TG61 f 0DlP2tDDlM2, RPR,PHRPID0T02 80 

6  ,TANTP,SPHTP,CPHTP,SECTPf SFXStSFYStSFZSsSNPSfSNTSt  ID0T0290 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYUtSFXUfSFYUF,  ID0T0300 

8  SFYURfSFZU.COSTH,SIWTH,COSPStSINPStC0£PH,SINPH,AN&l,  ID0T0310 

9  ANG2fCPHI,SPHl,CPSItSPSIfPitP7,P3,P4,P5fP6,TX,TY,TZ  ID0T0320 
COMMON    /COMP/TRH,DISTX,0ISTY,DIST0tDISTSfD21,ZETA4,ZETA4D,ZETA3,  ID0T03  30 

1  ZETA3D,SFZl,SNPUtSNTU,HCGHl,HCGH2,HCGH3,HCGH4,TERMl,  IOOT0340 

2  TERM2fSNPSUtSNPRfHCBHlfHCBH2,HCBH3,HCBh4,HCAHl,HCAH2tID0T03  50 

3  HCAH3tHCAH4,UQtWP,UR,QRfVPtPR»P2»02tR2,VRfWQtPQ»PHIR2ID0T0360 

4  ,PHIRD2f RPHRD,GCTH,GSTH,GCTSP,GCTCP,XXXfYYY,IX.IY,XXltID0T03  70 

5  XX2,YYl,YY2tTHGl,THG2fPHGl,PHG2,ZZl,ZZ2,LLL  ID0T0380 
DIMENSION  HCAH(4>,HCBH(4),HCGH(4)  ID0T0390 
EQUIVALENCE  (HCAH( 1) tHCAHl) t (HCBH( I )tHCBHl ) t (HCGH( 1 ) «HCGH1 )  I0QT0400 
COMMON    /INPT2/    YBPO, ZBT»,ZBBP,XVF, XVR ,YVf ZVT ,ZVB t AKVtSIGR( 11 ) t  ID0T0410 

1  SET, CONS, AMUB,EPSVtEPSB,XM,EPST, ODD, INDB,DELYBP,  ID0T0420 

2  DELTB,XINPT(100)  ID0T0430 
C0MM0N/INPT3/    AKFCAKFC  P,0MEGFC,  AKFE,  AKFEP  .OMEGFE,  AKRC  ,AKRCP,  ID0T0440 

1  0MEGRC,AKRE,AKREP,0MEGRE,END3  I00TO450 

COMMON/APT ABL/    APFRU1,2)  ,IAPFR  (  2)  ,DAPFB,  DAPFE,DDAPF,NAPF,  ID0T0460 

I  DAPRB,DAPRE,DDAPR,NAPR  ID0T0470 

DIMENSION   APF(21),APR(21 )  ID0T0480 

EQUIVALENCE     (APFR( 1, 1) ,APF( 1) ) , ( APFR( 1,2 ) , APR ( 1 ) )  ID0T0490 
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COMMON  /TIRIN/  AKT(4) ,SIGT(4) ,XLAMT (4) , A0<4> , Al(4) , A2( 4) , A3 (4^) , 

1  A4(4),0MEGT(4),AMU(4),RW(4),FJP{35,4),A234(4), 

2  A12(4>,0MT2A2(4)t0MT2Ml(4) , A23(4) ,ITIR(  4) 
COMMON  /INSUS/  XIF.RHOF, TSF,PHIF0, PHIFOD. DEL40t DEL40D, ISUS , 

1  AKDS,AKDSlfAK0S2,AKDS3,PHIRC(50),DTHF(50),DTHR(50) 

2  NCAMF,NCAMR,NDTHF,NDTHR 
COMMON/NEWCRB/    YC3P, YC4P fYC5P »YC6P t YCLP, 

1  ZC3P,ZCAP,ZC5P,ZC6P,ZCLP, 

2  PHIC3,PHIC4tPHIC5tPHlC6,NCRBSLf 

3  TANPC3,TANPC4,TANPC5fTANPC6,TANPCLt 

4  PHIC3RtPHIC4R,PHIC5R,PHIC6R,PHICLR» 

5  YCMP{6) ,ZCMP(6),PHICM(6) 
C0MM0N/EARSTR/XSTI0(3),YSTI0t3),ZSTI0(3)»XSTI(3),YSTI(3), 

1  ZSTI(3),YSTIP0(3>,XST1P(3),YSTIP(3),ZSTIP(3), 

2  FNSTH3),AKST(3) 

DATA    ZERO/0.0/ 

DIMENSION    TTARG(50)     ,NTARGC10) 

DATA    TTARG/50*0.0/    v    NTAR&/10*0/ 

DIMENSION   TXARG(21)»    TYARG(21) 

DATA    TXARG/21*0.0/,TYARG/2I*0.0/ 

DATA    C0N1/4HC0NS/,    VARI/4HVARI/ 

DIMENSION   DINCH(2),DEG{2)»D1PS(2),DPS(2),PS2PI(3),PS2I(3), 

1  DIPS2(3)»PIPR{3),RAPRA(2),RADS(2),RPI(2),RPI2(3), 

2  RPI3(3),PPI(2J ,PPI3(2)tPSPI(3),RAPS(2) 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 


DINCH/4HINCH,4HES  /t 
DPS/4HDEG/t4HSEC    /t 

RAPRA/4HRAD/,4HRAD    /t 

RPI/4HRA0/f4HIN       /t 

PPI3/4HLB/I,4HN**3/f 


DEG/4HDEGR,4HEES  / 
DIPS/4HIN/S,4HEC  / 
RADS/4HRADI,4HANS    / 

PPI/4HL8/I,4HN  / 
RAPS/4HRAD/,4HSEC    / 


PS2PI/4HLB-St4HEC**f4H2/IN/t    PS2I/4HLB-S.4HEC**»4H2-IN/ 


PIPR/4HLB-I ,4HN/RA,4HD 
RPI3/4HRAD/f4HlN**t4H3 


DIPS2/4HIN/S»4HEC**t4H2  /t 
i<PI2/4HRAD/t4HIN**,4H2  /, 
PSPI/4HLB-Sf4HEC/It4HN         / 

SEC/4HSEC    / 
DIMENSION   PDI(2) 

DATA    PDI/4HLB-I,4HN         /tPD/4HLB       / 
DIMENSION      TD1(2)»TD2(2) 

DATA    UD2/4HDEL2/,UPF/4HPHIF/,UD4/4HDEL4/fUPR/4HPHIR/ 
DATA    UDE/4H0       =/,UVE/4H0D    */ 
DIMENSION   TNU2(2)tTNU3(3) 

DATA    TNU2/4HN0T    ,4HUSED/t    TNU3/4HN0T    ,4HUSED,4H  / 

DIMENSION  TD3(2),T3D1(3),T3D2C3) 

11    WRITE(6,1000)     (HED(I)tI=l»18),DADE<l),DADEC2)t 

1  (VHED(I),I-l«IO),(THEDa)>mf  I0),(CHED(I)>I=^lfl0l, 

2  (GMED(I).I=ltlO),(SHEDCI)tI=ltlO) 

1000  F0RMATaHl,9X,18A4f30Xt2A4  /    5Xt3(10A4)    /    5X»2(10A4)    /    ) 
WRITE(6,1001)    TO,SECfTl,SECtDTCOMP,SEC,MODE,DTPRNT,SEC 

1001  F0RMAT(lH0,24Xf39HP    ROGRAM         CONTROL  DATA 

1    10X,38HSTART    TIME  TO  =f F10.4,2X, A4 


ID  OT  05  00 
ID  OT  05  10 
ID  OT 05  20 
ID  OT  05  30 
,IDOT05  40 
ID0T0550 
ID  OT  05  60 
ID  OT  05  70 
ID  CT  05  60 
ID  OT  05  90 
IDCT0600 
ID  CT  06  10 
ID0T0620 
IDOT06  30 
I  DOT  0640 
I  DOT  06  50 
ID  CT  06  60 
IDOT06  70 
I DOT 06 60 
ID0T0690 
ID  OT  07  00 
IDCT07I0 
ID  OT 07  20 
ID0T0730 
I  DOT  07  40 
1D0T0750 
ID  OT  0760 
ID0T0770 
IDCT07  80 
ID  OT  07  90 
IDOTOeOO 
1D0T08  10 
ID0T08  20 
I  DOT 08  30 
ID  OT  08  40 
I  DOT  08  50 
ID0T0860 
ID  OT  08  70 
ID  OT  08  80 
ID0TO8  9O 
ID  OT  09  00 
ID  OT  09  10 
ID CT 0920 
ID0T0930 
ID0T09  40 
IDOT0950 
IDOT0960 
ID  OT 09  70 
ID0T09  80 
ID  OT  0990 
IDOTIOOO 
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10Xf38HEND    TIME 
10X,38HINTEGRAT10N 
62X,30H(0=VARIABLE 
10X,38HINTE&RATI0N    MODE 
8X,16H-)1=    RUNGA-KUTTA 


Tl  =fF10 

INCREMENT  DTCOMP    =tF10 

STEP    ADA-MS-MOULTON  / 

MODE  =tI5, 
/ 


.4,2X,A4    / 
.4,2X,A4    / 


=,F10.4,2X,A4    ) 


/ 
/ 
/ 


62X,28H(2=    FIXED    STEP    ADAMS-MOULTON         / 
10Xf38HPRINT    INTERVAL  DTPRNT 

WRITE(6,1002)    ISUS,INDCRB,DELTC,SEC 

1002  FORMAT (IH    , 

1  61Xt50H(0=    INDEPENDENT    FRONT    SUSPENSION,    SOLID    REAR   AXLE         / 

2  10X,38HSUSPENSI0N    OPTION  ISUS         =,I5, 

3  8X,42H-)1=    INDEPENDENT    FRONT    AND    REAR    SUSPENSION 

4  62X,42H(2=    SOLID    FRONT    AND    REAR    AXLES 

5  62X,42H(0=    NO    CURB,    NO    STEER    DEGREE   OF    FREEDOM 

6  10X,38HCURB/STEER    OPTION  INDCRB    =,I5, 

7  8X,10H-)1=   CURB  / 

8  62X,42M(-1=STEER    DEGREE    OF    FREEDOM,    NO    CURB  / 

9  10X,38HCURB    INTEGRATION    INCR.  DELTC       =,F10 .5,2X, AA 
WRITE(6,1003)     INDB,DELTB,SEC 

1003  FORMATdH    ,61X,14H(0=    NO    BARRIER  / 
1    62X,42HU=    RIGID    BARRIER    ,    FINITE    VERT.    DIM.  / 

10X,38HBARRIER    OPTION  INDB         =,I5, 

8X,42H~)2=       ••  ••  .INFINITE       ••  •• 

62X,42h|3=    DEFORM.     ••  ,    FINITE       ••  •• 


62X,42H(A^=  ••  ••  , INFINITE       •»  •• 

10X,38HBARRIER    INTEGRATION    INCR.  DELTB       =,F10 

IF(MODE.EQ.O)    WRITE ( 6, 1008}    EBAR ,EM ,AAA,HMAX ,HMIN, 
1008    FORMAT (1H0,9X,34HARGUMENTS    FOR    MODE    0    INTEGRATION 
A  8X,6(2X,F12.3)       ) 

WRITE«6,1004)    XCOP,DINCH,UO,DIPS    , YC0P,DINCH, VO,DI 
A  2C0P,DINCH,W0,DIPS 

1004  F0RMAT(1H0,//,52X,38HI    NITIAL         CONDITI 

1  40X,    8HXC0P         =,F8.2,3X,2A4,39X,6HU0  =,F8.2,3X, 

2  10X,38HSPRUNG    MASS    C.G.    POSITION  YCOP         =,F8. 

3  7X,38HSPRUNG    MASS    LINEAR    VELOCITY  VO         =,F8. 

4  40X,    8HZC0P         =,F8.2,3X,2A4,39X,6HW0         =,F8.2,3X, 
WRITE (6,1005)    PHIO,DEG,PO,DPS,THETAO,DEG,QO,DPS, 

1  PSIO,DEG,RO,DPS 

1005  FORMATdH    , 

1  39X,    8HPHI0 

2  10X,38HSPRUNG 

3  7X,38HSPRUNG 

4  40X,    8HPSI0 


=,F8.2,3X,2A4,39X,6HP0 
MASS    ORIENTATION 
MASS    ANGULAR    VELOCITY 
=    F8.2,3X,2A4,39X,6HR0 


=,F8.2,3X, 

THETAO    =,F8. 

QO         =,F8. 

=,F8.2,3X, 


/ 
/ 
/ 

.5,2X,A4       ) 

BET 

:      / 

PS, 

0   N    S         // 
2A4  / 

2,3X,2A4, 
2,3X,2A4      / 
2A4  ) 


2A4  / 

2,3X,2A4  , 

2,3X,2A4  / 

2A4  ) 


IF(ISUS.EQ.2)    GO    TO    101 


UMPl    = 

TDK  I) 

TD1(2) 

TD2 ( 1 ) 

TD2{2) 

UMP    =    DEL20 

UMV    =    DEL20D 


UD2 

=   DINCH(I) 
=   DINCH(2) 
=   DIPS(l) 
=  DIPS{2) 


IDDTIOIO 
TOOT  10  20 
I  DOT  1030 
ID0T1040 
ID0T1050 
IDOT1060 
ID0T1070 
ID0T10  80 
I00T1090 
IDOTllOO 
IDOTlllO 
ID0T1120 
ID0T1130 
ID0T1140 
ID0T1150 
ID0T1160 
ID0T1170 
ID0T1180 
ID0T1190 
IDCT1200 
ID0T12  10 
ID0T1220 
ID0T12  30 
ID0T12  40 
ID0T1250 
ID0T12  60 
ID0T12  70 
ID0T1280 
ID0T1290 
IDOT1300 
ID0T1310 
I00T1320 
ID0T1330 
ID0T134O 
I  DOT  1350 
ID0T1360 
ID  OT 13  70 
I  DOT  13  80 
ID  OT  13  90 
ID0T1400 
IDCT14I0 
ID  OT  14  20 
ID  OT  1430 
I  DOT  1440 
ID0T1450 
1D0T1460 
I DOT  1470 
ID0T1480 
ID0T14  90 
ID0T1500 
ID  OT  15  10 
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101 


60    TO    102 

UMPl    -    UPF 

TDKl) 

TD1{2) 

T02 ( 1 ) 

TD2(2) 

UMP 

UMV 


=  DEG(l) 
=  DEG(2) 
=  DPS(l) 
=  DPS(2) 

=    PHIFO 

a    PhlFOD 


MASS    VELOCITIES 
TO    103 


X,2A4,37X,8HDEL10D    s,F8.2f 3X, 2A4/ 
t2A4tF8.2f3Xt2A4t 
*2A4«Fe.2»3Xt2A4  ) 


102    WRITE (6,  1006)    DEL10,DI NCH,DEL10D*0IPS ,UMPl .UDEtUMP ,TDl tUHP 1,UVE, 
1  UMV,TD2 

1006    FORMAT(lhO,39X,8HOEL10       =»F8i2t3 

1  10X,30HUNSPRUN6   MASS    POSITIONS 

2  7X,3  0HUNSPRUNG 
IF(ISUS.EQ.l)    GO 
UMPl    =    UPR 
TD1{1>    =  DE6(1) 
TD1(2>    =   DEGJ2J 
TD2(1)    =   DPS(l) 
TD2(2)    =   DPS(2» 
UMP    s    PHIRO 
UMV    =    PHIROD 
GO    TO    104 


103 


UMPl  = 
TDKl) 
TDl(2) 
TD2(1) 
T02  ( 2 ) 
UMP    = 


UD4 

=   DINCH(l) 
=   DINCH(2) 
=   DIPS(l) 
=   DIPS(2) 
DEL40 


UMV    =    DEL40D 
104    WRITE(6,1007)    DEL30, DINCHfDEL30D 
1  UMV,TD2,PSIFI0,DEG 

1007    FORMATdH    ,39X,8HDEL30       =,F8.2f3 

1  40X,2A4,F8.2»3Xt2A4,3  7X,2A4,F8, 

2  10X,38HSTEER    ANGLE 

3  7X,38HSTEER   VELOCITY 
WRITE(6,1000)     (HED<I),I=1,18),DA 

1  (VHED(I),I=1,10),(THEDCI),1 

2  (GHED(I),I=1,10),(SHED«1),I 


WRITE(6,2001) 
1 
2 

2001    FORMAT (IHO, 


XMS*PS2PIt 
XMUF,PS2PI 
XMURfPS2PI 


AtD 
B,D 
ZFt 


, DIPS f UMPl, UDEf UMP, TDlt UMP 1,UVE, 

*PS1FD0,DPS 

X,2A4,37X,8HDEL30D    s,F8.2, 3X,2A4/ 

2,3X,2A4      / 

PSIFIO  =,F8.2,3X,2A4, 
PSIFDO  =,F8.2,3X,2A4     ) 

0E(1),DADE(2), 

=1,10),(CHED(I),I=1,10), 

*=1,10) 

INCH, 

INCH, 

DINCH 


1  9X,37HSPRUNG   MASS 

2  5X,32HFR0NT    WHEEL    X    LOCATION 

3  10X,37HFR0NT   UNSPRUNG   MASS 

4  5X,32HREAR    WHEEL    X    LXATION 

5  10X,37HREAR    UNSPRUNG    MASS 

6  5X,32HFR0NT    WHEEL    Z    LOCATION 
TDKl)    =  TNU2(1) 

TDK2)    =  TNU2(2) 
IF(ISUS.EQ.2)    GO   TO    201 


A 

B 
ZF 


XMS 

XMUF 
=  f 

XMUR 


=B,F10*3,1X,3A4, 
F10,3,1X,2A4 

-,F10.3,1X,3A4, 
F10.3,1X,2A4 

-,F10.3,1X,3A4, 
F10,3,1)IC,2A4 


ID0T15  20 
ID OT 1^30 
ID0T1540 
ID  OT 15  50 
ID  OT 15  60 
ID0T15  70 
ID0T1560 
ID  OT  1590 
I  DOT  16  00 
ID0T1610 
ID0T16  20 
ID0T1630 
ID  OT  1640 
ID0T16  66 
ID0T1660 
ID0T16  70 
IDOTlfcSO 
ID0T16  90 
ID0T1700 
1DCT1710 
IDCT1720 
ID0T1730 
ID  OT  1740 
ID0T1750 
ID  OT  17  60 
I DOT  1770 
ID0T1780 
ID0T1790 
ID0T1800 
I  DOT  18  10 
ID0T1820 
ID0T1830 
I00T1840 
ID0T1850 
ID0T1860 
ID0T1870 
ID0T1880 
I  DOT  18  90 
ID0T1900 
ID0T19  10 
I  DOT  19  20 
ID0T1930 
ID  OT  1940 
I OCT  19 50 
ID0T1960 
ID  OT  1970 
ID0T1980 
ID0T1990 
IDOT2000 
ID  OT  20 10 
ID  OT  20  20 
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201 


202 


2002 


203 


20^ 


205 


206 


207 


208 


2003 


GO    TO    202 

ID0T2030 

TDl(l)    =   DINCH(l) 

I  DOT  20  40 

TD1(2)     =   DINCH<2) 

ID0T20^0 

CONTINUE 

I DOT 20 60 

WRITE(6,2002)    XIX,    PS2I, 

ZR 

fDlNCH, 

ID  OT  20  70 

1                                       XIY,    PS2I, 

TF 

,DINCH, 

IDOT20eO 

2                                       XIZ,    PS2I, 

TR 

,DINCH, 

ID  GT  20  90 

3                                       XIXZ,PS2I,             RHOF," 

roi 

ID0T2100 

FORMATdH    , 

ID0T2110 

1       9X,37HX   MOMENT    OF    INERTIA 

XIX 

=,F10. 

3, 

IX 

►  3A4 

» 

ID0T21i:0 

2      5X,32HREAR    WHEEL    Z    LOCATION 

ZR 

—  » 

FIO. 

3, 

IX 

,2A4 

/ 

ID0T2130 

3    10X,37HY   MOMENT    OF    INERTIA 

XIY 

=,F10. 

3, 

IX 

,3A4 

» 

ID0T214O 

4      5X,32HFR0NT    WHEEL    TRACK 

TF 

=  f 

Flo. 

3, 

IX 

,  2A4 

/ 

ID0T2150 

5    10X,37HZ   MOMENT    OF    INERTIA 

XIZ 

=,F10. 

3, 

IX 

,3A4 

» 

ID0T2160 

6      5X,32HREAR    WH6EL    TRACK 

TR 

~t 

FIO. 

3, 

IX 

,2AA 

/ 

ID0T2i70 

7    10X,37HXZ    PRODUCT    OF     INERTIA 

XIXZ 

=,F10. 

3, 

IX 

,3A4 

» 

ID0T2180 

8       5X,32HFRONT    ROLL    AXIS 

RHOF    =, 

FIO, 

3, 

IX 

»2A4 

) 

I DOT 2 1 90 

DO    203    K=l,3 

ID0T2200 

T3D1(K)    ^    TNU3(K) 

ID0T22 10 

73D2{K)    =    TNU3(K) 

IDCT 22  20 

DO    20A    K=l,2 

ID0T2230 

TDl(K)    =    TNU2(K) 

ID0T2240 

TD2{K)     ^    TNU2(K) 

IDGT2250 

TD3(K)    =    TNU2(K) 

I  DOT  22  60 

IF(ISUS.EO.l)    GO    TO    206 

ID0T22  70 

DO    205    K=l,2 

ID  DT  22  60 

T3D2(K)    =    PS21(K) 

IDOT22  90 

TDl(K)    =    DINCH(K) 

ID0T2300 

TD3(K)    =    DINCH(K) 

ID0T23  10 

T3D2(3)    =   PS2I(3) 

IDCT23  20 

IF(1SUS.NE.2)    GO   TO    208 

ID0T2330 

DO    207    K=l,2 

ID  OT  23  40 

T3D1{K)     =    PS2I(K) 

ID0T235.0 

TD2(K)     =   DINCH(K) 

ID0T2360 

T3D1(3)    =    PS2I(3) 

ID0T2370 

WRITE(6,2003)    XIF,    T3D1,    RHO, 

TDl 

f 

ID  OT  23  80 

1                                      XIR,    T3D2,     TSF, 

TD2 

f 

ID  OT  23  90 

2                                     G         ,D1PS2,      TS 

,TD3 

I DOT 2400 

FORMATdH    , 

ID0T2410 

1      9X,37HFR0NT   AXLE    MOMENT   OF 

INERTIA 

XIF 

=tF10. 

.3i 

IX 

,3A4 

t 

ID0T2420 

2      5X,32HREAR   ROLL    AXIS 

RHO 

=  t 

FIO. 

.3, 

IX 

,2A4 

/ 

ID OT 24  30 

3    10X,37HREAR    AXLE    MOMENT    OF    INERTIA 

XIR 

=  ,F10, 

.3, 

IX 

t3A4 

t 

I  DOT  24  40 

4      5X,32HFRONT   SPRING    TRACK 

TSF 

*♦ 

FIO, 

.3, 

rlX 

,2A4 

/ 

ID0T24  50 

5    10X,37HGRAVITY 

G 

=  fF10, 

.3, 

rlX 

,3A4 

* 

ID0T2460 

6      5X,32HREAR    SPRING    TRACK 

TS 

=  » 

FIO. 

>3i 

IX 

,2A4 

1 

ID  OT  2470 

DO    209    K=l,3 

ID0T2480 

T3D1(K)    =  TNU3(K> 

ID0T2490 

T302IK)    =   TNU3(K) 

ID0T2500 

1F(K.EQ.3)    GO   TO    209 

IDOT2610 

TDl(K)    =  TNU2(K) 

ID  OT  25  20 

TD2(K)    =   TNU2(K) 

ID0T25  30 
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TD3(K)  =  TNU2(K) 
209  CONTINUE 

IFdSUS.EQ.l)  GO  TO 
TDICI)  =  RAPRA(l) 
TD1(2)  =  RAPRA(2) 
GO  TO  213 

211  DO  212  K=l,3 
T3D1(K)  =  RPI2(K) 
T302(K)  =  RPI3{K) 
IF(K.E0.3)  GO  TO  212 
TD2(K)  =  RADS(K) 
TD3(K)  -  RPI(K) 

212  CONTINUE 

213  WRITE(6,2004) 
5 
2 
3 

6 

2004  F0RMAT(IH0,39X,7HX1 

1  9Xt32HFR0NT    AUX    RO 

2  10X,37HACCELER0METE 

3  9X,32HREAR    AUX    ROL 

4  40X,7HZ1  =,F10.2 

5  9X,32HREAR   ROLL-ST 

6  40Xr7HX2  =fF10.2 

7  10X,37HACCELEROMETE 

8  9X,32HREAR    DEFL-ST 

9  40Xt7HZ2  =tF10.2 
A101X,6HAKDS3=tF10.3t 

WRITE(6t2005)    XlPStP 
1  OMGPS, 

2005  FORMAT (lH0,15Xf29HS 

1  10X,31HM0MENT    OF    IN 

2  10Xf31HC0UL0MB    FRIC 

3  10X,31HFRICTI0N    LAG 

4  lOXfSlHANGULAR    STOP 

5  10Xf31HANGULAR    STOP 

6  10X,31HPNEUMATIC    TR 
WRITE! 6,2006 »    AKF, 

1  AKFCf 

2  AKFCP, 

2006  FORMAT (lH0,36Xfl6HFR 

1  10X,41HSUSPENSI0N    R 

2  9X,8HAKR  =,F10. 

3  10X,41HC0MPRESSI0N 

4  9X,8HAKRC         s,F10. 

5  43X,8HAKFCP      =,F10. 
WRITE(6,2007)    AKFE, 

1  AKFEP, 


211 


XI, 

DINCH, 

Yl, 

OINCH, 

Zlf 

DINCH, 

X2, 

DINCH, 

Y2, 

DINCH, 

Z2, 

DINCH, 

RF, 
RR, 
AKRS, 
AKDS, 
AKDSl, 
AKDSi:, 
AKDS3, 
=  ,F10.2,1X,2A4 
LL  STIFFNESS   RF    = 
R  1  POSITION       Yl 
L  STIFFNESS    RR    = 
,1X,2A4  , 

EER  COEF,  AKRS  = 
,1X,2A4  ,35X,6HAKDS 
R  2  POSITION  Y2 
EER  COEFS.  AKDS1= 
,1X,2A4,35X,6HAKDS2= 
1X,3A4   ) 

S2I,CPSP,PDI,EPSPS,R 
RADS ,XPS, DINCH 
TEERING         SY 
ERTIA  XIPS       =, 

TION    TORQUE    CPSP      =, 
EPSP      =, 


RATE 

POSITION 
AIL 

PPI, 
PPI, 
PPI3, 


-  » 


AKPS 

OMGPS 

XPS 
AKR, 
AKRC, 
AKRCP, 


ONT    SUSPENSION, 20X,1 

ATE 

3,1X,2A4      / 

STOP    COEFS. 

3,1X,2A4      / 

3, 1X,2A4,9X,8HAKRCP 
PPI,  AKRE, 

PPI3,  AKREP, 


PIPR, 
PIPR, 
TDl, 

TD2, 

TD3, 

T3D1, 

T3D2 
f 
,F10.2,1X,3A4    / 

=,F10.2,1X,2A4    , 
,  F10.2,1X,3A4    / 

,  F10.4,1X,2A4  / 

:^,F10.3,1X,2A4  / 

=,F10.2,1X,2A4  , 

,  F10.3,1X,2A4  / 

,F10.3,1X,3A4  / 

APS, AKPS, PIPR, 

STEM  / 

F10.3,1X,3A4  / 
F10.3,1X,2A4  / 
F10,3,1X,2A4  / 
F10.3,1X,3A4  / 
F10.3,IX,2A4  / 
F10.3,1X,2A4    ) 

PPI, 

PPI, 

PPI3 
5HREAR    SUSPENSION      // 


AKF 


=,F10.3,1X,2A4, 


AKFC         =,F10.3,1X,2A4, 

=,F10,3,1X,2A4  ) 

PPI, 
PPI3, 


ID  OT  25  40 
ID0T25  50 
ID0T25  60 
ID0T2570 
ID  OT  25  80 
ID0T2590 
ID OT 2600 
ID0T2610 
I  DOT  2620 
ID OT 2630 
ID0T26  40 
ID  OT  26  50 
ID0T2660 
ID  OT  26  70 
I DOT 26  60 
ID  OT  26  90 
ID0T2700 
ID0T2710 
ID0T2720 
ID0T2730 
ID  OT  2740 
ID  OT  27  60 
IDCT2760 
ID0T2770 
ID0T2780 
ID  OT  2790 
ID  DT  28  00 
ID0T2810 
ID  OT  28  20 
ID0T28  30 
ID  OT  28  40 
ID0T2850 
ID  OT  28  60 
ID0T2870 
ID0T2e80 
ID0T2890 
ID  OT  29  00 
I  DOT  29 10 
ID  OT  29  20 
ID0T2930 
ID  OT  29  40 
ID0T29  50 
ID0T2960 
ID0T2970 
I  DOT  29  80 
ID  OT  2990 
ID0T3000 
ID0T3010 
ID0T3020 
ID  OT  30  30 
ID0T3040 
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2  OMEGFCf  DINCH,  OMEGRCt 

3  OMEGFEt  DINCHt  OMEGREt 
2007    FORMAT (IH    , 

1  9X,41HEXTENSI0N    STOP    COEBS.  AKFE 

2  9X,    8HAKRE         =,F10.3  ,1X,2A4       / 

3  43Xf    8HAKFEP      =, FIO .3 » 1X.2A4 ,9X t 8HAKREP 

4  10X,41HCOMPRESSION    STOP    LOCATION 

5  9X,    8H0MEGRC    =,FIO .3 t 1X,2A4       / 

6  10X,41HEXTENSI0N    STOP    LOCATION 

7  9X,    8H0MEGRE    =,F10.3 ,1 X,2A4       ) 
WRITE(6,2008)    XLAMF,  XLAMR, 

1  CF,  PSPI,  CR, 

2  CFP,  PD,  CRPf 

3  EPSF,  DIPS,  EPSR, 


DINCH, 
DINCH 


=,F10.3,1X,2A4, 


=,F10.3,1X,2A4      / 
OMEGFC    =,F10,3,1X,2A4", 

OMEGFE    =,F10.3,1X,2A4, 


2008    FORMAT (IH 
1 

2 


PSPI, 

PD, 

DIPS 

XLAMF      =,F10,3, 


=,F10.3,1X,3A4, 


=,F10.3,1X,1A4, 


EPSF         =,FI0.3,1X,2A4, 


9X,41HST0P    ENERGY    DISSIPATION    FACTOR 
18X,    8HXLAMR      =,F10.3       / 

3  10X,41HVISC0US    DAMPING    COEF.  CF 

4  5X,    8HCR  =,F10.3,lX,3A«t      / 

5  10X,41HC0UL0MB    FRICTION  CFP 

6  13X,    bHCRP  =,F10.3,1X,1A4      / 

7  10X,41HFRICTI0N    LAG 

8  9X,    8HEPSR         =  ,F 10  .3 , 1X,2A4       ) 
1F(  ISUS.EQ.2.AND.TINCR,EG!»0.0)    GO    TO    304 
WRITE  (6,  1000)     (HEDd  ),I=1,1&)  ,DADE  <  1 )  ,DADEI2  )  , 

1  (VHED(I),I=1,10), (THED(I),1=1,10),(CHED(I),I=1,10), 

2  (GHEDd  ),I=1,10»,  (SHED(I>,I=1,10) 
IF(ISUS.E0.2)    GO    TO    301 
DO    306    K=l,2 
TDl(K)    =    DINCH(K) 
TD2(K)     =    DEG(K) 
IF( ISUS.EO.l)    GO    TO    308 
DO    307    K=l,2 
TDKK)     =   TNU2(K) 
TD2(K)     =   TNU2(K) 

WRITE (6, 3001)    D I NCH,DEG,TD1,TD2, DINCH, DINCH, TD1,TD1 
FORMAT (IHO, 

A    10X,18HFR0NT    WHEEL    CAMBER,    8X,17HREAR    WHEEL    CAMBER, 

B      6X,23HFR0NT    HALF-TRACK    CHANGE,    4X,22HREAR    HALF-TRACK    CHANGE 

C    18X,2HVS,24X,2HVS,24X,2HVS,24X,2HVS      / 

0      9X,21HSUSPENSI0N    DEFLECTION,    5X, 21HSUSPENSICN 

E      5X,21HSUSPENSI0N    DEFLECTION,    5X, 2 IHSUSPENSION 

F    12X,15HDELTAF  PHIC, IIX, 16HDELTAR  PHIRC 

G    10X,15HDELTAF  DTHF, IIX, 15HDELTAR  DTHR 

H    12X,2A4,2X,2A4,8X,2A4,  JC  ,2A4,8X ,2 A4,2X ,2A4, 8X,2A4,2X, 2A4 

Y  =    DELB 
DO    302    I=1,NDEL 
TTARG(I)    =    Y 

Y  =    Y+DDEL 
302    CONTINUE 

WRITE  (6,  3002)     (TTARGd  ),  PHIC(  I)  ,TTARG{  I  ),PHIRC(I), 


306 


307 

308 
3001 


DEFLECTION, 

DEFLECTION 

» 

/ 


// 


ID0T3030 
ID0T30  60 
ID0T30  70 
ID0T30  80 
ID0T30  90 
ID0T3100 
ID0T3110 
ID073120 
IDOT3130 
ID0T3140 
ID0T3150 
ID0T3160 
ID0T3170 
ID0T3180 
1D0T3190 
ID  or  32  00 
10CT3210 
ID  OT  3^20 
ID0T32  30 
ID0T3240 
ID  OT  32  50 
ID  01 32  60 
ID  OT  32  70 
ID0T3280 
ID  OT  32  90 
ID0T33  00 
ID0T3310 
ID  OT  33  20 
ID0T3330 
ID0T3340 
ID  OT  33  50 
ID0T33  60 
ID0T3370 
ID  OT  33  80 
ID0T33  90 
ID0T34  00 
ID0T3410 
ID0T3420 
ID0T3430 
ID0T3440 
ID0T3450 
ID  OT  34  60 
ID  OT  34  70 
ID0T3480 
ID0T3490 
ID  OT  35  00 
ID0T3510 
ID0T3i>20 
ID0T3530 
ID0T35  40 
ID  OT  35  50 
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1  TTARG(I>,DTHF(I),TTARG(I),DTHRCI),I=1,NDEL) 

3002  F0RMAT(lH0f4(8X»F8.2»2X,F8.2)/(lX,4<8X»F8,2»2X,F8.2))  ) 
301    CONTINUE 

NTPR    =    0 
TTARG( I)    =    0.0 
IF(TINCR.Ett.O.O)    GO    TO    304 
NTPR    -    <T£-TB1/T1NCR    +    1.5 

Y  =    TB 

DO    305     I=ltNTPR 
TTARGU)    =    Y 

Y  =    Y+TINCR 
305    CONTINUE 

WRITE(6,3003) 

3003  FORMAT! 1H0,//56X, 2 IHDR TVER   CONTROL    TABLES      // 

1  4(32H  T  PSIF  TQF  TQR    )  / 

2  4(32H  SEC  DEG  LB-FT         LB-FT)  /) 

;  NTPR4   IS    NUMBER   OF    LINES    FOR    TABLES    IN    FOUR   GROUPS    PER    LINE 

NNADD    =    0 

1F(  (M0D{NTPR,4) ).NE.O)    NNADD=1 
NTPR4    =    NTPR/4    +    NNADD 
NTPR43    =   3»NTPRA 
DO    303    J=1,NTPR4 
II    =    J 

14    =    MINO{NTPR     ,Il-»-NTPR43) 
WRITE( 6,3004) (  (TTARG(II) ,PSIF(II  ),TWF(II) ,TQR ( II ) ) , 11  =  11 ,I4,NTPR4 

3004  F0RMAT(1X,4{F8.3,F8.3,F8.1,F8.1)        ) 

303  CONTINUE 

304  CONTINUE 


WRITE(6,I000>    (HEDd 

1  (VHED{I),I=1,10 

2  (GHED(I),I=1,10 
WRITE(6,4001) 

4001  F0RMAT(1H0,60X,17HT 
A    54X,2HRF,10X,2HLF,1 

WRITE(6,4002)    AKT,PP 
A  RW,DIN 

4002  FORMAT (IHO, 

A      9X,39HTIRE    LINEAR 
B    10X,39HDEFL.    FOR    IN 
C    10X,39HSPRING    RATE 

0  41X,  8HA0  =,4(F 
E  41X,  8HA1  =,4(F 
F  10Xf39HSIDE  FORCE  C 
G  41Xt  8HA3  =,4(F 
H    41X,    8HA4               =,4(F 

1  10X,39HTIRE  OVERLOA 
J  10X,39HTIRE  UNDEFLE 
K    10X,39hTIRE    /    GROUN 

IF(     lAPFR(l)    .EQ.O    . 
WRITE! 6,4004) 


),I=l,ld),0ADE(l),DADE(2), 

), (THED(I),I=1,10),(CHED(I),I=1,10), 

),(SHED(1),I=1,10) 

IRE  DATA  / 
0X,2HRR,10X,2HLR  ) 
I,SIGT,DINCH,XLAMT,A0,A1,A2,A3,A4,0MEGT, 

CH,AMU 


SPRING   RATE 

CREASED    RATE 

INCREASING    FACTOR 

10.3,2X1      / 

10.3,2X)       / 

OEFFICIENTS 

10.3,2X)   / 

10.3,2X)   / 

D  FACTOR 

CTED  RADIUS 

D  FRICTION  COEF. 


AKT 

SIGT 

XLAMT 


A2 


OMEGT 

RW 

AMU 


=,4(F10.3,2X),2A4  / 
=,4(F10,3,2X),2A4  / 
=,4(F10.3,2X)      / 


=,4<F10.3,2X) 


AND.  IAPFR(2)  .EQ.O)  GO  TO  400 


,4(F10.3,2X)  / 
,4(F10.3,2X),2A4  / 
,4(F10.3,2X)      ) 


I00T35  60 
ID  OT  35  70 
ID0T35  80 
ID  OT  35  90 
ID  CT  36  00 
ID  OT  36  10 
ID0T3620 
ID  OT  3630 
ID0T36  40 
ID  OT  36  50 
ID0T3660 
ID  OT 36  70 
ID0T3680 
ID  OT  36  90 
I  DOT 37 00 
ID0T3710 
ID  OT  37  20 
IDOT3730 
ID  OT  37  40 
ID0T3756 
ID OT 3760 
I  DOT  3770 
IDOT3780 
ID0T3790 
)ID0T3B00 
ID0T3810 
ID0T38  20 
I DOT 38 30 
IDOT38  40 
ID0T38  50 
ID0T38  60 
ID0T38  70 
ID  OT  38  80 
ID  OT  38  90 
ID0T3900 
ID0T3910 
ID0T3920 
ID0T3930 
ID  or 39  40 
ID0T39  50 
I  DOT  3960 
ID  CT  39  70 
ID0T3980 
ID  OT  39  90 
ID  OT 40  00 
IDOT4010 
ID0T4O20 
IDOT4030 
IDDT4040 
I  DOT  40  50 
ID0T4O60 
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MAP    =    MINO(NAPFfNAPR) 
TO    AC  2 
TO    406 


APR (I) 


404 
402 


4004    FORMAT (1H0,8X,48HANT1-PITCH    TAB 

1  //    9X,I1HFR0NT    WHEEL»5X,3H 

2  9X,11HDEFL.    -    IN.,3X,8HLB/ 

3  3X,8HLB/LB-FT       /    ) 
FDEF    =    DAPFB 

RDEF    =    DAPRB 

MAP    =    NAPF 

IF(NAPF.NE.NAPR) 

IF(NAPF.EQ.O)    GO 

IF(NAPR,EQ.O)    GO 

DO    401    1=1, MAP 

WRITE(6,4005)     FDEF ,APF ( I ) ,RDEF, 

F0RMAT(5X,4(5X,F8.4) ) 

FDEF    =    FDEF+DDAPF 

RDEF    =    RDEF*DDAPR 

IF(NAPF.EO.NAPR)    GO    TO 

1F(NAPR,GT.NAPF)    GO    TO 

MAPI    =    MAP+1 

DO    403    I=MAP1,NAPF 

WRITE(6,4006)    FDEF,APF(I) 

F0RMAT(5X,2(!jX,F8.4)  ) 

FDEF    =    FDEF+DDAPF 

GO    TO    404 

MAPI    =    MAP+1 

DO    405     1=MAP1,NAPR 

WRITE( 6,4007)    RDEF,APR(I) 

F0RMAT(31X,2(5X,F8.4)) 

RDEF    =    RDEF+DDAPR 

GO    TO    404 

WRITE(6,4008) 

F0RMAT(21H0N0    ANTI-PITCH    TABLES 

CONTINUE 

XF(lNDCRB.NE.l)    GO    TO    702 

WRITE(6,1000)     (HEDCI),1=1,18),D 

1  (VHED(I),I=1,10),(THED<I),I= 

2  (GHED(I),lBl,lO),(SHED(I),I 
WRITE(6,6010) 

6010    FORMAT (1H0,22X,17HC    U    R    B         DA 

A    10X,54HCURB    SLOPE    CHANGE  E 

B    10X,34H   LATERAL    POSITION  S 

C    18X,6HINCHES,11X,6HINCHES,11X, 

WRITE(6,6011)    YClP, 


LES    FOR    CIRCUMFERENTIAL    TIRE    FORCE 
APF,5X,10HREAR    WHEEL, 5X ,3HAPR   / 
LB-FT,5X,10HDEFL.-    IN,, 


4005 


401 


406 


4006 
403 

402 


4007 
405 

400 

4008 

404 


ADE(1),DADE(2), 

l,10),(CHEDa),I':l,10)ff 

:=1*10) 


A 
B 
C 
D 
E 
F 
6011  FORMAT (IH  , 
A  11X,6HYC1P 
B    12X,6HYC2P 


YC2P, 
YC3P, 
YC4P, 
YC5P, 
YC6P, 
NCRBSL 


ZC2P, 
ZC3P, 
ZC4P, 
ZC5P, 
ZC6P, 
AMUC 


=,F9.2,2  3X,7HPHIC1 
=,F9.2,3X,6HZC2P    =, 


T    A  // 

LEVATION    AT 

LOPE   CHANGE 

7HDEGREES 

PHICl, 

PHIC2, 

PHIC3, 

PHIC4, 

PHIC5, 

PHIC6, 


=,F9.2,       / 
F9.2,5X,7HPHIC2   =,F9,2, 


CURB    FACE    ANGLE      / 
/ 
//       ) 


ID0T40  70 
ID0T4O80 
IDOT4090 
ID0T4100 
IDOT4110 
ID0T4120 
ID0T4130 
ID0T4140 
IDOT4150 
ID0T4160 
ID0T4170 
ID0T4180 
ID0T4190 
ID0T42  00 
ID0T4210 
ID  OT  42  20 
ID014230 
ID0T4Z40 
ID0T42  50 
ID0T42  60 
ID0T42  7G 
ID0T42  80 
1  DOT  42  90 
ID0T4300 
ID0T4310 
IDOT4320 
ID0T4330 
ID  OT  4340 
ID0T43  50 
ID  OT  43  60 
I00T4370 
ID  OT 43  80 
ID0T4390 
ID0T44  00 
ID  OT 44 10 
ID0T44  20 
ID0T4430 
ID0T4440 
I0OT4450 
ID0T4460 
ID  OT 44 70 
I  DOT  44  80 
ID0T44  90 
ID  OT  45  00 
ID0T4510 
ID0T45  20 
ID  OT 45  30 
ID  OT 45  40 
ID  OT 45  50 
ID  OT  45  60 
ID  OT 45  70 
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C  12X,6HYC3P  =,F9.2.3X,6HZC3P  =f 
D  12X,6HYC4P  =,F9,2 ,3X ,6HZC4P  =f 
E  12X,6HYC5P  =, F9,2 t 3X, 6HZC5P  =t 
F  12X,6HYC6P  =,F9.2 t3X» 6HZC6P  =, 
G  12X,8HNCRBSL  =,I4  / 
F  10Xt43HCURB  FRICTION  COEFFICIE 
WRITE(6,7001)    RWHJB,RWHJE,DRWHJ 

7001  FORMAT (37H0WHEEL    RADIUS-RADIAL 

1  =^,Fb.3»7H    INCHES    /    17H   RWHJE 

2  17H    DRWHJdNCRE.)       =,F8.3,5H 
NFJP    =    0 

IF(DRWHJ,EQ.0.0)    GO    TO    702 
NFJP    =    (RWHJE-RWHJB)/DRWHJ    +    1. 
IF(NFJP.LE.O)    GO   TO    702 

Y  =    RWHJB 

DO    701    I=1,NFJP 
TTARG(I)    =    Y 

Y  =    Y    +    DRWHJ 

701  CONTINUE 
WRITE(6,7002) 

7002  F0RMAT(//1H  ,3X ,5HRW-H J, 6X,4HFJ 
A  5X,3HIN.,7X»4HLBS,t6Xt4H 
B  l6Xt2HRFt8X»2HLF,8X,2HRR 

DO    703    J=lfNFJP 

WRITE(6,7003)    TTARG( J) ,<FJP<J,I 

7003  FORMAT (IH    tG9.3 .4G10 ,3 ) 
703    CONTINUE 

702  CONTINUE 

IF( INDE.EQ.O)    GO   TO    501 

5001  FORMAT (1H0,36X,31HSPRUNG  MASS-B 
A  6X,18HBARRIER    DIMENSIONS 

WRITE(6,5002)    YBPO, AKV ,S IGR ( 1 } t 
A  ZBTP,C0NS,SIGR(3) 

B  EPSV,S1GR(5) 

5002  F0RMAT(1H0,3X,9H(YB» )0    =     ,F10.3 
A  ,13H    LB/IN**3  t9X,llHS 
B                    4X,9HDELYB«    =    ,F10.3,7H 
C                     13H    DEFL.    RATIO    ♦9X,11HS 
D                    4X,9HZBT»          =    ,F10,3t7H 
E                     13H    ENERGY    RATIOf 9X, IIHS 
F                    4X,9HZBB»          -    tFl0.3,7H 
G                     13H  ,9X,11HS 
H                    4X, 18HVEHICLE    DIMENSIONS 
I                    13H    IN/SEC  ,9X,11HS 

WRITE(6,5003)    XVF,EPSB tS IGR (6) ♦ 
1  YV,SIGR(8) ,ZVT,SI 

5003  FORMATIIH    ,3X,9HXVF  =     tFlO.3 
A                  ,3H   LB,18X,11HSIGMAR    5    = 
B                    4Xt9HXVR            =    ♦F10,3f7H 
C  3 
D                    4X,9HYV               =    tF10.3t7H 


F9.2t5X,7HPHIC3  =,F 
F9.2t5X,7HPHIC4  =,F 
F9.2t5X,7HPHIC5  =tF 
F9.2,5X,7HPHIC6  =,F 


NT  FACTOR 


AMUC 


SPRING  FOR  TABLE   / 
(END)      =,F8.3,5H 


P.,6X,4HFJP.,6X,4HF 
LBS.,6Xt4HLBS..6Xf4 
,8X,2HLR    /   ) 


I)tII=l,4) 


ARRIER    IMPACT    DATA 
,56X»24HBARRIER    LOA 
DELYBP,SETfSIGR(2), 
,ZBBP,AMUB,SIGR(4), 

tTH    INCHES f6Xfl2HKV 


IGMAR 
■  • 

IGMAR 
IGMAR 
IGMAR 


0  =  ,F10,4 
,6X,12HSET 
tFlO.4 
12HC0NS 
,F10,4 
12HMUB 
tFlO.4 


1  = 
.6X, 

2  = 
.6Xt 


3    = 
,12X,12HEPSIL0N    V    = 
IGMAR    4    =    fFlO.4 
XVRt  SIGR(7)f 

GR(9),ZVBtSIGR(10), 
,7H  INCHES, 6X,12HEP 
,F10,4         / 

••  ,       47X, 

X.llHSIGMAR    6    =    ,F1 

••  ,50X,11HSIGMA 


9.2t            / 

ID0T45  80 

9.2,            / 

ID0T45  90 

9,2,            / 

IDOT4600 

9.2,            / 

ID0T4610 
ID0T4620 

=,F8.3 

) 

ID  OT  46  30 
ID0T46  40 

17H    RWHJB(BEG1N)IDOT4650 

••    /, 

ID  OT 46  60 
I DOT 46 70 
ID0T46  80 
I  DOT  46  90 
I00T4700 
ID0T4710 
ID0T4720 
ID0T4730 
ID0T47  40 
ID  CT 47 50 
ID0T4760 
ID  OT  47  70 

JP.,6X,4HFJP.    / 

I DOT 47 50 

HLbS.          / 

ID0T4790 
IDOT48  00 
ID0T48  10 
ID0T4B20 
ID0T4e30 
ID0T4840 
ID0T48  50 
ID0T4860 

// 

I  DOT  48  70 

D    DEFL.    COEF. 

) ID 074680 

I  DOT  48  90 

ID0T49O0 

ID0T4910 

= 

,F10. 

3ID0T4920 

/ 

ID0T4920 

=    ,F10 

.3    , 

I  DOT  49  40 

/ 

ID0T49  50 

=    ,F10 

•  3, 

ID0T4960 

/ 

ID  OT 49  70 

=    ,F10 

.3, 

ID0T49  80 

/ 

ID0T49  90 

,F10.3, 

IDOT5000 

) 

ID0T5010 
ID  OT  50  20 

SIGR(Il) 

IDCT5030 

SILON    B    = 

,F10. 

3ID0T5040 
IDOT50  50 
I00T50  60 

0.4         / 

I  DOT  50  70 

R    7    =    ,F10 

.4      / 

ID0T5080 
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DATE       01/12/76 


TIME   1729 


UPDATE  RECORD 


•50XvllHSI6MAR 
f50X,llHSIGMAR 


8  =    ,F10.4 

9  =    ,F10.4 


E  4Xf9H2VT  =    tF10.3,7H       •• 

F  4X,9HZVB  =    ,F10.3,7H       •• 

G  80Xf IIHSIGMARIO    =     ,F10.4  ) 

WRITE (6, 5004)    ( I ,XST 10 (I ) ,YSTIO ( I) , ZSTIO( I) , AKST( I  ),I  =  1,3) 
5004    FORMAT (1H0,18X,27HSPRUNG    MASS    HARD    POINT    DATA         // 
A    19X,37HL0CATI0N    IN    VEH.    COORDS.  STIFFNESS         / 

B      9Xt45HP0INT  XSTIO  YSTIO  ZSTIO  AKST      / 

C      9Xt44H   NO.  IN.  IN.  IN.  LB/IN      // 

D       (9X,12t4XfF8.2,2X,F8.2,2XfF8.2,2X,F8.2        )        ) 
501    CONTINUE 

IF(NZTAB.EQ.O)    GO   TO    700 

DO    601    1=1,50 

601  TTARG( I)  =  0.0 
DO  602  1=1,10 

602  NTARG(I)  =  0 

DO  603  I=1,NZ7AB 
TTARG(I)  =       XB(I) 
TTARG(5  +  I)=  XE(I) 

XINCR(I) 

YB(I) 

YE(I) 

Y1NCR( I) 

AMUG(I) 

NBX( I) 


1) 
I) 
I) 
I) 
I) 


I)  =  NBYd  ) 


TTARGdO 
TTARG( 15 
TTARG(20 
TTARG{25 
TTARG(30 
NTARG( I) 
NTARG(5  + 
603  CONTINUE 

WRITE(6,1000)  <HED(I), 

1  (VHE0(I),I=1,10), 

2  <GHED(I),I=1,10), (SHED (I), I =1,10) 
WRITE(6,6001) 

6001  F0RMAT(//1H    ,26X,25HTERRAIN    TABLE 
WRITE(6,6002)        (TTARG( I )  ,  1=1 , 5) , 

1  (TTARGd)  ,1=6,10), 

2  (TTARG(I)  ,1  =  11, 14), ZERO, 

3  (TTAR&( I)  ,1=16,20), 

4  (TTARGd)  ,1=21,25), 

5  (TTARG( I) ,I=26,29),ZER0, 

6  INTARG(I) ,1=1,5), 

7  (NTARG(I) ,1=6,10), 

8  (TTARGd)  ,1=31,35), 

9  NZTAB 

6002  FORMAT (IHO, 2 5X,11H  XB( BEGIN)=,5F 12.3,7H 
A  26X,11H 
B  26X,11H 
C  26X,11H 
D  26X,11H 
E  26X,11H 
F  25X,12HN0.X 
G                            25X,12HN0.Y 


I=1,18),DADE(1),DADE(2), 
(THED(I),I=1,10),(CHED(I),I=1,10), 


ARGUMENTS 


INCHES 


XE(END)  =,5F12.3,5H 
X(INCR)  =,5F12.3,5H 
YB(BEGIN)=,5F12.3,5H 
YE(END)  =,5F12.3,5H 
YdNCR)  =,5F12.3,5H 
B0UNDS=,I8,4I12 
B0UNDS=,I8,4I12 


H 
I 


26X,11H    AMUG  =,5F12.3 

25X,18HNO. TERRAIN    TABLES=,I4 


/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
) 


ID  OT  50  90 
ID0T5100 
IDCT5110 
ID0T5120 
ID0T5130 
ID0T5140 
ID0T5150 
ID0T5160 
ID0T517G 
ID0T6180 
ID  OT  51 90 
ID0T5200 
ID0T5210 
ID0T5220 
ID  OT  52  30 
ID0T52  40 
ID0T52  50 
ID0T5260 
IDCfr52  70 
ID  OT  52  80 
ID0T5290 
ID  OT  53  00 
ID0T5310 
ID0T5320 
ID0T5330 
ID  OT  5340 
ID0T53  50 
ID0T53  60 
ID0T53  70 
ID0T5380 
ID  01  53  90 
I D  OT  54  00 
ID0T5410 
ID0T5420 
ID0T5430 
ID  OT  5440 
ID  OT  5450 
ID0T54  60 
IDCrr5470 
ID0T54  80 
ID0T54  90 
ID  OT  55  00 
ID0T5510 
ID0T55  20 
ID0T5530 
ID  OT  55  40 
ID0T55  50 
10  OT  55  60 
ID0T55  70 
ID0T55  80 
ID0T55  90 
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DATE       01/12/76 


TIME       1729 


UPDATE    RECORD 


lF(NZ5.fcO.O)    GO    TO    600 
WRITE(6,1000)    (HFD(I)f 

1  (VHED(I),I=1,10), 

2  (GHEDd  ),I  =  1,10), 
NX5    =    NX(NZTAB) 

NY5    =    NY(NZTAB) 

WRITE(6,6004)    NX5t     (XX 
6004    FORMAT (66H0    ARGUMENTS 
lAST    TABLE)    /lOH    NO. OF 

WRITE(6,6003)    NY5,     (  YY 
6003    FORMAT! lOHONO.OF    Y    =, 


I=l«18)TDADE(l)tDADE(2)> 
(THED(I)f 1=1,10),(CHED(1),I=1, 
CSHED(I),I=lf 10) 


10), 


ZGP5(I),I=1,NX5) 

FOR   TERRAIN    TABLE    WITH    VARYING    INCREMENTS 

X    =,    I3f2X,9H,    X(ZGP)=,     12F9 •3/24X,9F9.3 ) 

ZGP5(I),I=1,NY5) 

I3,2X,9H,     Y(ZGP)=,12F9.3/24X,    9F9,3) 


600    IF(NZTAB)    604,700,60^ 

604  WRITE{6,1000)     (HED(I), 

1  (VHtD(I),I=l,10), 

2  (GHEDd  ),I  =  1,10), 
LINES    =3 

DO    614    I=1,NZTAB 
NNBX    =    NBXi 1 ) 
NNBY    =    NbY(I) 
NNX    =    NX(I) 
NNY    =    NY  CI) 
LINES    =    LINES 
IF(I.EU.l)    GO 
IFCLINES    .LT.SS)    GO    TO 
WRITE(6,1000)     (HED(N», 

1  (VHED(N),N=1,10), 

2  <GHED(N),N=1,10), 
LINES    =3 

606    WRITL(6,6005)     IrAMUGd 

6005  FORMAT (19H0    TERRAIN    TA 
X    lX,16ri      X       EOUNDARIES 

WRITEt6,6006)     (PSBDROi 

6006  FO.^MATdX,  16H  PSI  BOUN 
WRITE(6,6007)     (YBDRY(J 

6007  FORMAT  dX,16H  Y  BOUN 
IF(  I.EQ.NZTAB  .AND.  N 
ANA ME    =    CONl 

Ys    XBd) 
YYY    =    XINCRd) 
00    605    J=1,NNX 
TXARG(J)    '    Y 

Y  =    Y    ♦    YYY 

605  CONTINUE 

Y  =    YBd) 

YYY  =  YINCRd) 
DO  609  J=1,NNY 
TYARG(J)    =    Y 

Y  =    Y    ♦    YYY 
609    CONTINUE 

GO    TO    610 


I- 1, 18 ), DADE (1), DADE  12), 
(THED(I),I=l,10),(CHEDd),I  =  l,10), 
(SHEDd),I=l,10) 


+    9    ♦     (NNY*l)*INNX/7    ♦    2) 

TO    606 

606 
N=1,18),DADE(1),DADE(2) , 
(THED<N),N=l,10),(ChED(N),N=l,10), 
(SHED(N),N=1,10) 


), (XBDRY(J,I),J=1,NNBX) 

BLE    NO.    ,13,       20X,    6H    AMUG=, 

=,4F13.5) 

J,  I),J=1,NNBX) 

DAKIES=,4F13.5) 

,1  ),J-1,NNBY) 

DARIES=,2F13.5) 

Z5.NE.0)    GO    TO   607 


F13.5// 


ID  OT  56  00 
ID  OT  56  10 
ID0T56  20 
ID OT 56 30 
I0OT5640 
ID0T5650 
ID0T56  60 
(LIDQT5670 
ID0T56  80 
ID0T56  90 
ID0T5700 
ID0T5710 
ID0T5720 
ID0T5730 
I  DOT  57  40 
I  DOT  57  50 
ID0T5760 
ID  OT  5770 
ID0T5780 
ID  OT  57  90 
I  DOT  58  00 
IDCT5810 
ID0T582C 
ID0T58  30 
ID  01  58  40 
ID0T56  50 
ID  OT  58  60 
ID0T5b70 
ID  OT  58  80 
I  DOT  58  90 
ID0T5900 
ID0T5910 
ID0T5920 
I  DOT  59  30 
ID0T594O 
10  GT  59  50 
ID0T59  60 
ID  OT  59  70 
ID0T59  60 
ID0T5990 
ID  OT  6000 
ID0T6010 
ID0T6020 
ID  OT  60  30 
ID0T6040 
ID0T6050 
I  DOT  60  60 
ID0T6070 
ID07  60  80 
ID  OT  60  90 
ID0T6100 
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607    ANAME    =    VARl  ID0T61I0 

DO    611    J=ltNNX  1D0T6120 

611  TXARG(J)    =    XXZGP5(J)  ID0T6130 
DO    612    J=1,NNY  ID0T61^0 

612  TYARG(J)    =    YYZGP5(J)  ID0T6150 
610    WRITE(6»6008)ANAME,  (TXARG(J),J=1,NNX)  IDCrT6160 

6008  FORMAT ( 1H0,A4, 17H.    INCREMENTS  Xs ,2X , 7F13 .5/26X ,7F13. 5/28X , 7F13 •5ID0T6170 
X    )  IDaT61bO 

DO    613    II=ltNNY  I DOT  61 90 

WRITE(6,6009)    TYARGC  II)f  (ZGPUJiII  ,1)  ,JJ  =  1,NNX)  ID016200 

6009  F0RMAT(/2X,3H    Y=,F13,5,    6X, 7F13 , 5/26X, 7F1 3.5/28X ,7F13, 51  ID0T6210 

613  CONTINUE  ID0T6220 

614  CONTINUE  ID0T6230 
C  ID0T6240 

700    CONTINUE  IDaT62i>0 

C  ID0T6260 

CALL    DRIVID  ID0T6270 

WRITE(6,8000)  ID0T6280 

8000    FORMAT    (IHl)  ID0T6290 

RETURN  ID0T6300 

tND  ID0T6310 
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DATE       01/12/76  TIME       1729  UPDATE    RECORD 


SUBROUTINE    INITEQ  IN  ITOO  10 

C  HV0SM-VD2    VERSION  INIT0020 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION  INIT0030 

COMMON/INPT/PHIO,THETAO,PSI0,PO,QO,RO,XCOP,YCOP,ZC0PtU0,VO,W0,  IN  IT 0040 

1  A,B,DEL10,DEL20,DEL30,PHlRO,DELlODfDEL20D,DEL30Dt  INIT0050 

2  PHIRODfTFtTRtZFtZRfRHOfAKRSfXMURt  INIT0060 

3  XMS,XMUF,XlXfXIY,XIZ,XIXZtCF,AKF,XLAMF,0MEGF,CFP,EPSF,INIT00  70 

4  RF,CRfAKR♦XLA^R,OMEGR♦CRPtEPSRfRRtTSfTHMAX,DTCOMP,TO♦    INIT0080 

5  TlfDTCMPl,DTPRNT,MODEf EBARtEM,AAAfHMAXtHMIN,BET,G,  INIT0090 

6  HED(36),DADE (3>,XIR,Xl,Yl,Zl,X2fY2,Z2f PHIC(50),DELB,       INITOIOO 

7  DELE,DDELfNDEL,PSIF(50),TQF(50),TQR(50),TB,TEfTINCR,       INITOllO 

8  NZTAB,NZ5,X8DRY(4,5),PSBDRYU,5),YBDRY(2t5),NBX(5),         INIT0120 

9  NBY(5),NTBLlfNT6L2fNTBL3tZGP(21t21,5)  INIT0130 
C0MM0N/INPT/XB(5) ,XE ( 5 ) , XINCR ( 5 ) tNX (5 ) t YB ( 5> , YE( 5) , YINCR (5) ♦ NY (5 ) , IN IT0140 

I  XXZGP5{21) tYYZGP5(21) , AMUG( 5 ) »PSBDR0(4,5 ) ,UVWMIN ,PORMI N    IN1T0150 

COMMON    /COMP/SUMM,TH£TN, PHlN,PSIN,PI,RAD,GAMl,GAM2,GAM3tGAM4,GAM5,INIT0l60 

1  GAM6,GAM7,GAM8,GAM9,THETT,PHIT,PSIT,ZRDtTR02,  INIT0170 

2  TF02»TIZtRH02tRH0MUR»AMUF,BMURf ZPRtTM4»RHMR2t A02APB,     INIT0160 

3  B02APB,RFTF,TS02,RRTS,BR0MaR,XMUF02,AXMF02,XMTF04»  INIT0190 

4  XIZR,RTR,RHMR2I,XIXP,XIZP,XIXZPtXIYZP,DlPD2fDlMD2t  INIT0200 

5  ZRD3TZRD3R,ZFD3R,ZFD12tTIZ2,TG6l,DDlP2,DDlM2,RPRtPHRPINIT0210 

6  ,TANTP,SPHTP,CPHTPtSECTP,SFXStSFYStSFZStSNPS»SNTSf  INIT0220 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGXtSFYUtSFXUtSFYUF,  INrr0230 

8  SFYURfSFZUf CGSTH,SINTH,COSPS,SINPStCOSPH,SINPH,ANGl,     INIT0240 

9  ANG2,CPHI,SPHI,CPSIfSPSI,PltP7,P3tP4,P5,P6,TX,TY,TZ  INIT0250 
COMMON    /C0MP/TRH,DISTX,DISTYtDlSTD,DISTS,D21,ZfcTA4,ZETA4DtZETA3,       IN  IT 02 60 

1  ZETA3D,SFZ1 ,SNPUtSNTU,HCGhl,HCGH2.HC&H3»HCGH4tTERMl,    INIT0270 

2  TERM2»SNPSUtSNPR,HCBHl,HCBH2tHCBH3fHCBH4,HCAHl,HCAH2f INIT02  80 

3  HCAH3fHCAH4tUQ,WP,URt0RtVP,PR,P2,Q2tR2,VR,WQ,P0,PHIR2INIT0290 

4  ,PHIRD2,RPHRD,GCTH,GSTH,GCTSP,GCTCPtXXX,YYY,IXtIY,XXl,lNIT03  00 

5  XX2,YYl,YY2,THGl,THG2tPHGltPHG2,ZZl.ZZ2fLLL  INIT0310 
DIMENSION  HCAH(4),HC8HC4),HCGH{4)  INIT0320 
EQUIVALENCE  (HCAH< 1) ,HCAHl) , { HCBH{ 1 ) ,HCBH1 ) , {HCGH( 1 ) ,HCGHl )  IN  IT 03 30 
COMMON    /DIMV/XlP,X2PfX3  * tX4P, Y1P,Y2P, Y3P , Y4P , Z1P,Z2P,Z3P ,Z4P, PHI  1 , INIT0340 

1  PHI2tPHI3,PHI4,PSIl,PS12,PSI3tPSI4,CAYW(4),CBYW(4),       INIT0350 

2  CGYW(4) ,ZPGI(4J,THGI(4),PHGI(4)»CPG(4)tSPG(4) ,CTG(4 ) , IN IT0360 

3  STG(4) tCAGZ(4),CBGZ{4),CGGZ(4),Dl(4),D2(4),D3(4),  INIT0370 

4  XLM1(4) ,XLM2(4),XLM3(4),AMTX(3»3),CMTX(3,4),XGPP(4),     INIT0380 

5  YGPP(4) ,ZGPP(4),0MATX(10,I1) tDELTA(4) ,CAR(4),CBR(4),     INIT0390 

6  CGR(4) ,FR(4),HI(4) ,FC(4),TI(4),AX(4),BX{4),CX(4),  IN  rr0400 

7  CTXG{4),UG(4)fSTXG(4),AY(4),BY(4>»CY<4),CPYG(4),  INIT0410 

8  SPYG(4) ,VG(4),PSIIP(4),PHICI(4)tCAC(4),CBC(4),CGC(4)tINIT0420 

9  FCXU(4) ,FCYU(4),FCZU(4),FS(4) »CAXW(4) ,CBXW(4) ♦CGXW(4) IN n0430 
COMMON    /DIMV/AS(4),BS(4) ,CS (4) ,CAS ( 4) ,CBS ( 4) , CGS (4) ,BETP <4 ) ,  INIT0440 

1  BETBR(4),FSXU(4}fFSYU(4),FSZU(4),FRXU(4),FRYU(4),  INIT0450 

2  FRZU(4) ,FXU(4),FYU(4) ,FZU(4),SI(4),F1FI(2),F1RI(2),       INIT0460 

3  F2F1(2) ,F2Rl(2)tCAH(4l,CBH(4),CGH(4>  INIT0470 
DIMENSION  XP(4),YP(4),ZPI4)tPHII(4),PSII(4)  INn0480 
EQUIVALENCE     (XP(1),X1P), ( YP( 1 ) , YIP ) ,( ZP ( 1 ) ,ZIP) t (PHII { 1) ,PHI I ) ,          INIT0490 
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DATE   01/12/76 


TIME   1729 


UPDATE  RECORD 


1  (PSIKl) 

COMMON    /COMPN/    FRSPt 

1  OPSIN 

2  PHI2D 

3  SFRX{ 
LOGICAL    LCBltLCBZ 
COMMON    /INSUS/    XIF,R 

1  AKDSt 

2  NCAMF 
COMMON  /TIRIN/  AKT(4 

1  A4(4J 

2  A12(^ 
DATA    RPD/.01745329/ 
RHF    =    0.0 

RHR    =    0.0 

IF(ISUS.NE.l)    RHR    = 
IF(ISUS.EQ.2)    RHF    = 
CTHO    =    COS(THETAO*RP 
STHO    =    SIN(THETAO*RP 
SIR    =    XMS*A*G*CTHO/( 
SIF    =    XMS*G*CTHO-SIR 
DTF    =    (SIF/CTHO*XMUF 
DTR    =    (SIR/CTHO+XMUR 
SDl    =    0.5*(B*XMS*G/( 
SD3    =    0,5*(A*XMS*G/( 
HCG    =    -ZCOP 
ZF    =    (HCG+A*STH0-RW( 
ZR    =    (HCG-B*STHO-RW( 
FR(1)    =    AKT(1)*DTF 
FR(2)    =    FR(1) 
FR(3)    =    AKT(3)*DTR 
FR(4>    =    FRC3) 
HI(1>    =    RW(1)-DTF 
HI(2)     =    HKl) 
HI(3)    =    RW(3)-DTR 
HI(^)    =    HK3) 
RETURN 
END 


,PSI1) 

4)  ,FRCP(4),ICBHIT,JCBHIT, 

T,TANPCi,TANPC2,PHIC1R,PHIC2R,AMUCMP,PHI1D, 
,LCB1(4),LCB2(4),IHIT,AJMTX(3,3),BMTX(3,3), 
4),SFRY<4),SFRZK)fTlPSIf  T2PSI,XMUGI(4) 

H0F,TSF,PHIF0,PHIF0D,DEL40,DELA0DtISUS, 

AKDSl»AK0S2f AKDS3,PHIRC{50),DTHF(50) fDTHR(50) 

,NCAMR,NDTHF,NDTHR 

)tSIGT(4) «XLAMT(4)»A0(4),A1(4) «A2(4),A3(4) t 

fOMEGT{4) ,AMU(4),RW(4),FJP(35,4),A234(4)f 

),OMT2A2(4),OMT2M1(4),A23(4),ITIR(4) 


RHO 
RHOF 
D) 
D) 
A  +  B) 

*G)*0.5/AKT(1) 
*G)*0.5/AKT(3) 
A+B)~SIF)/AKF 
A+B)-SIR)/AKR 

1 ) ♦DTF )/CTH0-RHF-SD1 
3)+DTR)/CTH0-RHR-SD3 


INIT0300 
INIT0510 
INIT05  20 

INIT05  30 
IN1T05»40 
INIT05  50 
INIT0560 
,INIT05  70 
INIT05  80 
IN  n  05  90 
INIT0600 
INIT0610 
IN  IT  06  20 
INIT06  30 
IN1T06  40 
IN  IT  06  50 
INIT0660 
IN  IT  0670 
INIT06  80 
INIT06  90 
INIT0700 
INIT0710 
INIT07  20 
IN  n  07 30 
INIT0740 
INIT07  50 
IN  IT  07  60 
IN  IT 07 70 
INIT07B0 
INIT0790 
IN  IT  08  00 
INIT0810 
1NIT08  20 
INIT08  30 
INIT08  40 
IN  IT  08  50 
INIT0860 
INITOfiTO 
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DATE   01/12/76 


TIME   1729 


UPDATE  RECORD 


1 
5000 


6000 


SUBROUTINE    INPUT 
C  HV0SM-RD2    VERSION 

C  REVISED   OCTOBER    1975         CALSPAN    CORPORATION 

DIMENSION  CARDIM(20),ICARD(300),DUM(ia) 

DATA    NBLKS/6/ 

WRITE(6,1000) 
1000    FORMAT (IHl) 
C  SET   INPUT    CARD    COUNTER 

NC    =   0 
C  REWIND   UNIT    2 

REWIND    2 
C  READ    A    CARD 

READ(5,5000,END=999)     (CARDIM ( K) , K=l ,18 ) ,NSEQ,NCARD 

F0RMAT(16A4,2I4) 

OUTPUT    CARD    IMAGE 

WRITE (2,2001)     (CARDIM(K) ,K=1, 18 ) ,NSEQ,NCARD 

WRITE (6,6000)     (CARDIM(K) ,K=1,18) ,NSEO,NCARD 

FORMATdH    ,18A4,2I4) 

IF(NCARD.GE,9999)    GO    TO    20 

IF(NCARO.LE.O)    GO    TO    90 

IF(NSEQ.GT.O)    GO    TO    1 

NC    =    NC+1 

ICARD(NC)    =    NCARD 

GO    TO    1 

20  REWIND    2 
TEST    FOR    AT    LEAST    ONE    CARD    OTHER    THAN    9999 

1F(NC.LE«0)    GO    TO    91 

SET    COUNTER    TO    PROCESS   ALL    BLXK   NUMBERED    CARDS 
IC    =    1 

DETERMINE    CARD    FORMAT    AND    TRANSFER    TO    PROPER    CARD    BLOCK 

SUBROUTINE    TO    STORE    DATA 

21  NBLK    =    ICARD(IC)/100 
NBCRD    ~    ICARD(ICI-NBLK*100 

FORMAT    TEST 
IF(NBCRD.EO,0)    GO   TO    22 

NUMERIC    INPUT 
READ(2,20O0)     (DUM(K) ,K=1,9) ,NSEQ,NCARD 

2000  FORMAT  (9F8. 0,214^) 
GO    TO    23 

22  CONTINUE 

C  ALPHANUMERIC  INPUT 

READ (2, 2001)  ( DUM( K ) ,Kb1 , 18) ,NSEQ, NCARD 

2001  F0RMAT(18A4,2I4) 

C  BRANCH   TO   PROPER    SUBROUTINE    TO   STORE    INPUT 

23  IF(NBLK    .LE.O)    GO    TO    92 
IF(NBLK.GT.NBLKS)    GO    TO    93 

GO    T0( 100, 200, 300, AOO, 500, 600), NBLK 
C       PRINT    ERROR    MESSAGE    HERE    ? 
100    NERR    =    0 


INPTOOIO 
INPT0020 
IN  PT  00  30 
IN  PT  00  40 
INPT00  50 
IN  PT  00  60 
IN  PT 00  70 
INPT0080 
INPT0090 
IN  PT  01 00 
INPTOllO 
1NPT0120 
INPT0130 
INPT0140 
INPT0150 
INPT0160 
IN  PT  01 70 
INPT0180 
IN  PT  01 90 
IN  PT  02  00 
IN  PT 02 10 
IN  PT  02  20 
IN  PT  02  30 
IN  PT 02  40 
IN  PT 02  50 
IN  PT  02  60 
IN  PT  02  70 
IN  PT  02  80 
INPT0290 
IN  PT  03  00 
IN  PT  03 10 
IN  PT  03  20 
IN PT 0330 
IN  PT  03  40 
INPT0350 
IN  PT  03  60 
IN  PT  03  70 
IN PT 0380 
IN  PT  03  90 
INPT0400 
IN  PT  04 10 
IN PT 0420 
INPT0430 
INPT0440 
IN  PT  0450 
IN  PT 04 60 
IN  PT 04 70 
INPT0480 
INPT0490 
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TIME       1729 


UPDATE    RECORD 


CALL    BLK01(NBLK,NBCRD,NSEQ,NCARD,DUM,NERR) 
TEST    R3R    ERROR 

IF(NERR.EQ.O)    GO    TO    30 

GO    TO    9<» 
200    CALL    BLK02(NBLK,NBCRDtNSEQ,NCARD,DUM,NERR) 

IF(NERR»fcQ.O)    GO   TO    30 

GO    TO    94 
300    NERR    =    O 

CALL    BLK03(NBLK,NbCRD,NSEQ,NCARD,DUMtNERR) 

IF(NERR.tQ.O)    GO    TO    30 

GO    TO    94 
400    NERR    =    0 

CALL    BLK04(NBLK,NBCRD,NSEQ,NCARDfDUM,NERR) 

IF(NERK,EQ«0)    GO    TO    30 

GO    TO    94 
500    NERR    =    0 

CALL    BLK05{NBLK,NBCRD,NSEQ,NCARDtDUM,NERR) 

IF(NERR.LO.O)    GO    TO    30 

GO    TO    94 
600    NERR    =    0 

CALL    BLK06(NBLK,NECRD,NSLQ,NCARD,DUM,NERR) 

IF(NEKR.EQ.O)    GO    TO    30 

GO  TO  94 
30  CONTINUE 

TEST  IF  ALL  CARDS  ARE  READ 

IC  =  IC+1 

IF(IC.GT.NC)    GO    TO    40 
;  GET    NEXT    CARD    FROM    UNIT    2 

GO  TO  21 
40  CONTINUE 

SEARCH  FOR  END  OF  DATA 

READ (2 ,2001 )  (DUM(K) ,K=1 , 18 ) ,NS E&,NCARD 

1F(NCARD.NE,9999)  GO  TO  95 

GO    TO    50 
999    WRITE(6,6001)    NCARD 

6001  F0RMAT(56H    UNEXPECTED    END    OF    FILE    ENCOUNTERED 
1  34HR0UTINE    INPUT.       LAST    CARD    READ    WAS 

GO    TO    49 

90  WR1TE(6,6002) 

6002  FORMAT! 56H    A    CARD   NUMBERED    LESS    THAN    OF    EQUAL 
1  50HRED    IN    SUBROUTINE    INPUT.      CARD    IMAG 

GO    TO    49 

91  WRITE(6,6003) 

6003  F0RMAT(33H    THE    NUMBER    OF    CARDS    READ    IS    ZERO 
GO    TO    49 

92  WRITE{6,6004) 

6004  FORMAT! 56H  A  BLOCK 
1        THBTAINED 

GO  TO  49 

93  WRITE(6,6005) 

6005  FORMAT (56H    A    BLOCK 


IN  STMT  NO.  1  OF  SU 
,14   ) 


TO  ZERO  WAS  ENCOUNT 
E  PRINTED  ABOVE   ) 


NUMBER 
) 


OF  LESS  THAN  OF  EQUAL  TO  ZERO  HAS  BEEN 


NUMBER  LARGER  THAN  THE  ALLOWED  NUMBER  HAS  BEEN 


IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 

BIN 
IN 
IN 
IN 

EIN 
IN 
IN 
IN 
IN 
IN 
IN 

OIN 
IN 
IN 
IN 
IN 


PT0500 
PI  05  10 
PT05  20 
PT05  30 
PT0540 
PT05  50 
PT05  60 
PI  05  70 
PT0580 
PT05  90 
PT0600 
PT0610 
PT06  20 
PT06  30 
PT0640 
PT06  5U 
PT06  60 
PT&0  7G 
PT  06  60 
PI  06  90 
PT0700 
PTC710 
PT07  20 
PT0730 
PT07  40 
PT0750 
PT07  60 
PT0770 
PT0760 
PT0790 
PT0800 
PT0810 
PT0820 
PT0830 
PTG8  40 
PT08  50 
PT0ti60 
PT0b70 
PT06  6G 
PT0b90 
PT0900 
PTOVIO 
PT09  20 
PT09  30 
PT0940 
PT09  50 
PT0960 
PT09  70 
PT09  80 
PT0990 
PT  10  00 
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1                    aHOBTAINED         >  INPTIOIO 

GO    TO    49  IN PT 10 20 

94  WRITE(6,6006)    NBLK ,NBCRD ,NSEQ,NC ARD,NERR  INPT1030 

6006  FORMAT (t6H    AN    ERROR    HAS    OCCURRED    IN    STORING  INPUT    VALUES    IN    ONE    0FINPT1040 

1  23H    THE    BLKXX    SUBROUTINES.               /  INPT1050 

2  39H    THE    CALLING    ARGUMENTS    FROM    INPUT  AK£    :         /                                     INPT1060 

3  7H    NBLK    =, I4,2X, 7HNBCRD    =, I4,2X , 6HNSEQ    =, I4,2X t7HNCARD    =,    INPT1070 

4  I4,2X,6HNERR    =,I4            )  INPT1080 
GO    TO    49  IN  PT  10  90 

95  WRITE(6,6007)  INPTllOO 

6007  F0RMAT(56H    AN    EXPECTED    9999    CARD    HAS    NOT    BEEN    ENCOUNTERED    AFTER    STINPTlllO 
1                    20H    MT    NO,    40    IN    INPUT.               »  INPT1120 

49  STOP  INPT1130 

50  RETURN  INPT1140 
END  IN  PT  11 50 
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TIME   1729 


UPDATE  RECORD 


SUBROUTINE    INTRPK TABLEt XMlNtXMAXt DX,X, Y ) 
C  HV0SM-RD2    VERSION 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION 

C  QUADRATIC    INTERPOLATION    SUBROUTINE    INTRPL, ADDITIONAL    ENTRY 

DIMENSION   TABLE(l) 

ENTRY    INTRPC(TABLE,XMIN,XMAX,DXtX,Y,SLOPE) 

1  XLK    =    AMINHX,XMAX) 
XLK    =    AMAXKXLKfXMIN) 
Nl    =    (XLK-XMIN)/DX-»-1.2 
N2    =    Nl*l 

NT    =    (XMAX-XMIN)/DX+I.2 
NO    =    Nl-1 

2  IF(NO.GT.O)    GO    TO    3 
NO    =    Nl 

Nl    =    N2 
N2    =    Nl+1 

3  IF(N2.LE.NT)    GO    TO    4 
N2    =    Nl 

Nl    =    NO 
NO    =    Nl-1 

4  XXX    =    FL0AT(N0)*DX+XMIN 
DX2    =    DX**2 

A    =     (lABLE(N2)-2.0*TABLE(Nl)-»-TABLE(N0>)/<2.0*DX2) 

B=     (TABLt(Nl)-TABLE(NO) )/DX-A*(2.0»XXX-DX) 

C    =    TABLEINI )-(A«XXX**2+B*XXX) 

Y    =     (A*XLK+B)«XLK+C 

SLOPE    =    2,0    ♦A    *    XLK    ♦    B 

RETURN 

END 


IN 

IN 
IN 
INTRP'C  IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 
IN 


TROOl^' 
TROO  20 
TR00  30 
TROO^O 
TROO  50 
TROO 60 
TROO  70 
TROO  80 
TROO  90 
TROIOO 
TROllO 
TR0i2G 
TR0130 
TR0140 
I R  01  50 
TR0160 
TR0170 
TR0180 
TROIVO 
TR0200 
TR0210 
rK  02  20 
TR02  30 
TR02  40 
TRU2  50 
TR02  60 
TR02  70 
TR  02  80 
TR02  90 
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SUBROUTINE    INTRP5(INDX)  INT50010 

C  HV0SM-RD2    VERSION  INT50020 

C  REVISED   OCTOBER    1975         CALSPAN    CORPORATION  INT50030 

COMMON/INPT/PHlO,THETAO,PSIO,PO,QO,RO,XCOP,YCOP,ZCOP,UO,VO,WOf  INT50040 

1  A,B,DEL10,DEL20tDEL30,PHIRO,DEL10D,DEL20D,DEL30D,  INT50050 

2  PHIR0D,TF,TR,2F,ZR,RH0,AKRS,XMUR,  INT50O60 

3  XMS,XMUF,XIX,XIY,XI2tXIXZfCF,AKF,XLAMF,0MEGF,CFP,EPSF,INT50O70 

4  RF,CR,AKR,XLAMR,OMEGR,CRPfEPSR,RR»TS»THMAX,DTCOMP,T0f    INT500  80 

5  TltDTCMPl,DTPRNT,MODE,EBAR,eM,AAA,HMAX,HMIN,BET,Gt  INT50090 

6  HED(36),0ADE(3),XIR,X1,Y1,Z1,X2,Y2,Z2,PHIC{50) ,DELB,       INT50100 

7  DELE, DDEL, NOEL, PSIF(50),T0F(50),TCR(50),TBtTE,TINCRt       INT50110 

8  NZTAB,NZ5,XBDRY(4.,5)  tPSB0RY(4,5),YBDRY(2,5),NBX{5),  INT50120 

9  NBY(5J,NT6Ll,NTBL2»NTBL3,2&P(21,21.5)  INT50130 
C0MM0N/1NPT/XB<5),XE(5),X1NCR(5),NX(5),YB(5),YE(5),YINCR(5),NY(5),INT501A0 

1  XXZGP5(21) ,YYZGP5(2l) ,AMUG(5) ,PSBDR0(4,5) tUVWHlN ,PORMIN    INT50150 

COMMON    /DIMV/XlP,X2P,X3P,X4P,YlP,Y2P,Y3P,Y4P,ZlP,Z2PfZ3P,Z4P,PHIl,INT50160 

1  PHI2,PHI3,PHI4,PSI1,PSI2,PSI3,PSI4,CAYW(4),CBYW(A),       INT50170 

2  CGYW(4) ,ZPGI(4),TH6I(4),PHGI(4) ,CPG (4 ) ,SPG(4> ,CTG(4) ,INT50180 

3  STG(4),CAGZ(4),CBGZ(4),CGGZ(4),D1(4),D2{4),D3(4),  INT50190 

4  XLM1(4) ,XLM2<4) ,XLM3(4),AMTX(3,3),CMTX(3,4),XGPP(4),     INT50200 

5  YGPP(4) ,ZGPP(4),DMATX(10,11),DELTA(4)»CAR(4),CBR(4),     INT50210 

6  CGR(4),FR(4>,HI(4},FC(4),TI(4),AX(4),BX(4),CX(4),  INT5022O 

7  CTXG(4) ,UG(4),STXG(^)»AY(4),BY(4),CY(4),CPYG(4),  INT50230 
a  SPYG(4) ,VG(4),PSIIP(4) .PHICI (4) , CAC(4 ) ,CBC( 4) tCGC (4 ) ,INT50240 
9                                    FCXU(4)  ,FCYU(4),FCZU(4),FS(4),CAXW{4)  ,CBXW(4)  ,CGXW(4) INT50250 

COMMON    /DIMV/AS(4),BS<4) ,CS(4 ) ,CAS (4) ,CBS ( 4) ,CGS (4 ) ,BETP(4) ,  INT50260 

1  bE7BR(4),FSXU(4),FSYU<4) ,FSZU(4)  ,FRXU(4),FRYU(4),  INT50270 

2  FR2U(4) ,FXU(4),FYU(4),FZU(4),SI(4J,F1FI(2»,F1RI(2),       INT50260 

3  F2FI(2) ,F2RI (2),CAH(4),CBH(4),CGH(4}  INT50290 
DIMENSION  XP(4),YP(4),ZP(4),PHII(4),PSII{4)  INT50300 
EQUIVALENCE     (XP ( 1) ,X IP ), ( YP< 1 ) , YIP ) , < ZP( 1 > ,Z1P) , (PHII ( 1) ,PHI 1 ) ,          INT5  0310 

1  (PSIKl)  ,PSI  1)  INT50320 

COMMON    /C0MP/SUMM»THETN,PHIN,PSIN,PI,RAD,6AM1,&AM2,GAM3,GAM4,GAM5»INT503  30 

1  GAM6,&AM7,GAM8,GAM9,THETT,PHIT,PSIT,ZR0,TR02,  INT50340 

2  TF02,TIZ,RHO2,RH0MUR,AMUF,BMUR,ZPRtTM4,RHMR2»A02APB,     INT50350 

3  B02APB,RFTF ,TS02,RRTS,BR0MURtXMUF02»AXMF02»XMTF04,  INT50360 

4  XIZR,RTR,RHMR2I,XIXP,XIZP,XIXZP,XIYZP,D1PD2,D1MD2,  INT50370 

5  ZRD3,ZRD3Rt ZFD3R.ZFD12,TIZ2»TG61,DD1P2,DD1M2,RPR,PHRPINT503  80 

6  ,TANTP,SPHTPtCPHTP,SECTP,SFXS,SFYS,SFZS,SNPS,SNTS,  1NT50390 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYU,SFXUtSFYUF,  INT50400 

8  SFYUR,SFZU,C0STH,SINTH,C0SPS»SINPS»C0SPH,SINPH,ANG1,    INT50410 

9  ANG2»CPHI,SPHl,CPSI,SPSI,PltP7»P3,P4,P5,P6»TX,TY,TZ  INT50420 
COMMON    /C0MP/TRH,DISTX,D1STY,DISTD,DISTS,D21,ZETA4,ZETA4D,ZETA3,       INT50430 

1  ZETA3D,SFZI»SNPU,SNTU,HCGH1,HCGH2,HCGH3,HCGH4,TERM1,     INT50440 

2  TERM2,SNPSU,SNPR,HCBH1,HCBH2,HCBH3,HCBH4,HCAH1»HCAH2,INT504  50 

3  HCAH3,HCAH4,UQ,WP,UR»QR,VP,PR,P2,02,R2,VR,W0,Pa,PHIR2INT50460 

4  ,PHIRD2,RPHRD,GCTH,GSTH,GCTSP,&CTCP,XXX,YYY,IX.IY,XX1,INT504  70 

5  XX2,YYl,YY2,THGltTHG2,PHGl,PHG2,ZZl,ZZ2,LLL  INT50480 
DIMENSION   HCAH(4>,HCBH(4),HCGH(4)  INT50490 
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1 

z 

c 

c 

NWHEBL  =  INDX 

c 

IXBDRY  =  0 

c 

lYBDRY  =  0 

c 

XLCEPT=0.0 

c 

XRCEPT=0.0 

c 

15  =  0 

c 

DATE   01/12/76     TIME   1729  UPDATE  RECORD 

EQUIVALENCE  (HCAH(l) ,HCAH 1) t (HCBH( 1 )f HCBHl ) , (HCGH( 1),HCGH1)  INT50300 

COMMON  /UDMPN/  FRSP ( 4) t FRCP(4) , ICBHIT, JCBHIT ♦  INT50510 

1  DPSINT,TANPClfTANPC2,PHIClR,PHIC2R,AMUCMP,PHIlD,  INT50520 

2  PHI2D,LCBl(4),LCb2(4)tlHIT,AJMTX(3,3),BMTX(3,3),  INT50530 

3  SFRX{4),SFRY(4)fSFRZ(4),TlPSI,T2PSI ,XMUGI(4)  INT50540 
LOGICAL  LCB1,LCB2  INT50550 
COMMON    /TIRIN/    AKT(4 ) , SIGT(4) ,XLAMT (4) , AO ( 4) , Al (4) , A2 ( 4) t A3 (4 ) ,  INT50560 

AA(4) ,0MEGT(4) ,AMU(4) , RW (4 ) ,FJ P( 35, 4) ,A234( 4) ,  IN T5 05 70 

A12(4),0MT2A2(4) ,0MT2Ml{4) , A23 (4) ,1 TIR ( 4)  INT5  05bO 

IN  T5  05  90 
INT506  00 
IN  T5  06 10 
INT506  20 
IN  T5  06  30 
INT5  0640 
1  NTS  06  50 
IN  15  06  60 
ERR    =    0.0  INT50670 

10  XXX  =  XP(INDX)  INT5C680 
YYY  =  YP(INDX)  INT50690 
IT  =  0  INT50700 
DO  11  I=1,NZTAB  INT50710 
IF(  XB(I  ).EQ.XE(I)  .OR.  YB( I ) .EQ .YE ( I ) )  GO  TO  11  INT50720 
IF(XXX.&E.XB(I ).AND.XXX.LE.XE(I ) .AND. YYY.GE.YBl I ). AND. YYY. LE.YEC I HNT507  30 

X    )     IT    =1  1NT50740 

11  CONTINUE  INT50750 
IF(IT.NE.O)    GO    TO    15  INT50760 

13    ZPGI(INDX)=    0.0  INT50770 

THGI(INDX)=    0.0  INT50780 

PHGI(INDX)=    0.0  INT50790 

XMUGKINDX)     =    AMUdNDX)  INT50600 

RETURN  INT508  10 
ITV    =    1    IDENTIFIES    THE    VARIABLE    INCREMENT    TABLE    HERE.          INT50820 

15    ITV    =    0  INT50830 

IF(     IT.EQ.    NZTAB    .AND.    NZ6.NE.0)    ITV    =    1  INT50840 

XMUGKINDX)    =    AMU(INDX)*AMUG(IT  )  INT50&50 

XBT    =    XB(IT)  INT50e60 

XET    =    XE(IT)  INT50870 

YBT    =    YB(IT)  INT5C8&0 

NXT    =    NX(IT)  INT50890 

NYT    =    NY(IT>  INT50900 

NBXT=    NBXdT)  INT50910 

NBYT=    NBY(IT)  INT509  20 

IF(ITV.GE.l)    GO    TO    20  INT50930 

TABLES    WITH    CONSTANT    INCREMENT  INT50940 

XINCRT       =      XINCR(IT)  INT50950 

YINCRT       =      YINCR(IT)  INT50960 

IX    =(XXX-XBT)/XINCRT    ♦    1.0  INT50970 

lY    =(YYY-YBT)/YINCRT    ♦    1.0  INT50980 

XXI    =    XBT    +    FL0AT(IX-1)*XINCRT  INT50990 

XX2    =    XXI    ♦    XINCRT  INTSIOOO 
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UPDATE    RECORD 


FLOAT( IY-1)*YINCRT 
YINCRT 


-   XXX)    22f21f21 


-XXZGPSdXX)  )    27,26,27 


-    YYY)    29,28,28 


YYl    =    YBT 

YY3    =    YYl 

GO    TO    40 
C  IX    IS    LOW    INDEX    FOR    X    ,    lY    IS    LOW    INDEX    FOR    Y 

C  FLOAT(IX-l)    IS         COUNT         OF    INCREMENTS 

C  VARIABLE    INCREMENT    TABLE    (ARGUMENTS    GIVEN,    XXZPG5(21) 

DO    22    1=2, NX! 

IF    (XXZGPSd) 

IXX    =    I 

GO    TO   2  5 

CONTINUE 

IXX    =    NXT 

IX    =    IXX-1 

IF     (XXZtP5(lX) 

ERR    =    1.0 

GO    TO    13 

DO    29    1=2, NYT 

IF     (YYZbP5(I) 

IYY=    I 

GO    TO    30 

CONTINUE 

IYY=    NYT 

lY    =    lYY    -    1 

IF(  YYZi,P5(IY) 

XXI     -    XXZGP5(IX) 

XX2    =    XXZGPSdXX) 

YYl    =    YYZGP5(IY) 

YY3    =    YYZGP5(IYY) 

XINCRT    =    XX2    -    XXI 

YINCRT    =    YY3   -    YYl 
40    XX3    =    XXI 

XX4    =    XX2 

SEARCH    FOR    Y    BOUNDARIES    IN    THIS    MESH.Y    BOUNDARIES   HAVE 

IF     (NBYT    .EQ.    0)    GO    TO    54 

JJ    =    0 

DO    41    1=    1,NBYT 

IF(YY1.&E.YBDRY( I,IT).QR,    YBDRY ( I, IT) .GT. YY3 )    GO   TO    41 

JJ    =    I 


20 
21 
22 
25 

26 
27 
28 
29 
30 
35 


-    YYZGP5(IYY) )35,26,35 


c 

c 

lYBDRY  =  I 

c 

GO  TO  42 

41 

CONTINUE 

42 

IF(JJ»EQ.O)  GO  TO  54 
IF(YYY,GE.YBDRY(JJ,IT) )G0 
YY3  =  YYl 
IFdTV.GE.l)  GO  TO  44 

43 

YYl  =  YY3  -  YINCRT 
lY  =  lY  -1 

GO  TO  54 

44 

YYl  =  YYZGP5CIY-1) 

TO    50 


INT51010 
IN  T5 10  20 
INT51030 
INT51040 
INT51050 
,YYZPG5(21))INT510  60 
IN  T5 10  70 
I  NTS  1080 
INT51090 
IN  T5  1100 
INT51110 
IN  T5 11  20 
INT51130 
INT51140 
INT51150 
IN  T5  1160 
INT51170 
INT51180 
IN  T5 11  90 
INT512  00 
INT51210 
INT51220 
INT51230 
INT51240 
IN  T5  1250 
1NT51260 
INT51270 
INT51280 
INT51290 
1NT51300 
INT51310 
INT51320 
CONSTANT  Y.INT51330 
IN  T5 13  40 
INT51350 
IN  T5 1360 
IN  T5 13  70 
INT513  80 
IN  T5 13  90 
INT51400 
INT51410 
IN T5 1420 
I NTS  1430 
INT51440 
IN  T5 14  50 
IN  T5 1460 
INT514  70 
INT51480 
IN T5 1490 
INT51500 
INT51510 
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lY    =    IY-1  IN  T5 15  20 

YINCRT    =   YY3    -    YYl  INT51530 

GO    TO    54  INT51540 

50  YYl  =  YY3  INT51550 
IFdTV.GE.l)    GO    TO    52  INT51560 

51  YY3  =  YYl  ♦  YINCRT  1NT51570 
lY  =  lY  ♦  1  INT51580 
GO    TO    5)4  INT515  90 

52  YY3  =  YYZGP5(IY  -^2  )  INT51600 
lY  =  lY  ♦  1  INT51610 
YINCRT    =      YY3    -    YYl  INT51620 

54    YY2    =    YYl  INT51630 

YY4    =    YY3  INT51640 

SEARCH    FOR    SLANTED    BOUNDARIES  INT51650 

IF    (NBXT    .EQ.    0)    GO    TO   61  ■                                                                 INT51660 

II    =    0  INT51670 

DO    60    1=1, NBXT  1NT51680 

XBDRT    =    XBDRY(I,IT)  IN  T5  16  90 

PI    AND    2. ♦PI     ARE    SINGULARITIES  FOR    COTAN                                                  INT51700 

IF(     AMCD{PSBDRY(I,IT)     ,    PI)        .EQ.    0.0)  GO    TO    60                                                    INT51710 

CTNPSB    =   COTAN(PSBDRY(I,IT) )  INT51720 

XLCCPT    =      XBDRT    ♦    ( YYl-YB T)*CTNPSB  INT51730 

XRCEPT    =      XBDRT    ♦    ( YY3-YBT) *CTNPSB  INT51740 

11=    I  INT51750 

IF(     XXl.LE.XLCEPT    .AND.    XLCEPT.LE.XX2 )  GO    TO    bO                                                    INT51760 

IF(XLCEPT.LE.XX1    .AND.    XRCEPT. GT .XX3)    GO  TG    80                                                       INT51770 

IF(XLCEPT.GE.XX2    .AND.    XRCEPT. LT .XX4)    GO  TO    80                                                       INT517eO 

60  CONTINUE  INT51790 

NO    SLANT    BOUNDARY    IN    THIS    MESH  INT51800 

61  XXMXXl  =  XXX-XXl  INT51810 
YYMYYl  =  YYY-YYl  INT51520 
ZPGl  =  ZGPdX  ,IY  ,IT)  INT51830 
ZPG2  =  ZGP(IX+1  ,IY  ,IT)  INT51840 
ZPG3  =  ZGPdX  ,IY+1  ,IT)  1NT51850 
ZPG4  =  ZGPdX  -HtlY-d  ,IT)  INT51860 
ZZl  =  ZPGl  ♦  XXMXXl*  (ZPG2-ZPG1)/XINCRT  INT51870 
ZZ2  =  ZPG3  ♦  XXMXXl*  (ZPG4-ZPG3 )/XINCRT  INT51880 
ZPGIdNDX)  =  ZZl  ♦  YYMYY1*(ZZ2-ZZ1)/YINCRT  INT51890 
THGl  =  ATAN2  ( ( ZP61-ZPG2 ) .XINCRT )  INT51900 
THG3  s  ATAN2  (( ZPG3-ZPG4 ) .XINCRT )  INT51910 
THGIdNDX)  =  THGl  +  YYMYYl  *(TH63-  THGD/YINCRT  1NT51920 
IF(YYMYYl)    62.65,63  INT51930 

62  ZPHl  =  ZZl  INT519M3 
ZYINCR  =  -YYMYYl  INT51950 
GO    TO    67  IN  T5 19  60 

63  IF(    YY3-  YYY)    65,64,65  INT51970 

64  PHGI(INDX)  =  ATAN2(  (ZZ2  -  ZZD/YINCRT,  COS(THGl))  INT51980 
NOTE  THGl,  AS  ROLL  REFERENCE  IS  TO  POINT  1  HERE  INT51990 
GO    TO    68  INT52000 

65  ZPHl  =  ZZ2  INT52010 
ZYINCR    =                YY3   -    YYY  INT52020 
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67 

68 
C      68 
C 
C 

C3000 
C 

80 
C 

c 
c 

c 
c 

c 
c 


83 


85 


90 


92 
93 

95 
96 


PHGKINDX)    = 
RETURN 
ZPGIIO    = 
THGIIO    = 
PHGIIO    = 
RETURN 

SLANT 
2XINCR    = 


ATAN2(     (ZPHl-ZPGKINDXn/ZYINCRt    COS(  TH61  (INDX) )  ) 


ZPGKINOX) 

THGI(INDX)/RAD 

PHGI(INDX)/RAD 


BOUNDARY 
XINCRT 


IN    THIS    MESH 


IXBDRY    =    II 

IF(    XXX    .GT.tXBDRT    ♦    (YYY  -  YBTJ*   CTNPSB)     )    GO   TO    140 

WHEEL    HAS   NOT    CROSSED   THE    SLANT    BOUNDARY,    STEP   BACK    ON    X    , PERHAPS 
INDEX    FOR   HIGH    GRID    X    IS     IX+1,     (XX2    AT    IX+1, I Y) , (XX4   AT    IX-H,IY+1 

COUNT   OF    CONSTANT    INCREMENTS    FOR    XX2    IS    IX 
NXW    =    IX 

IFdTV.GE.l)    GO    TO    93 
XX2W    =    XX2    ♦    XINCRT 
DO    85    1=1, NXW 
XX2W    =    XX2W    -    XINCRT 
IF(     XX2W    .6E.    XLCEPT)    GO    TO    65 
IX2W=    IX    +2    -    I 
GO    TO    90 
CONTINUE 
IX2W    =    2 

XX2W    =    XbT+    XINCRT 
XXI    =    XX2W    -    XINCRT 
XX4W    =    XX4    +    XINCRT 
DO    92       1=1, NXW 
XX4W    =    XX4W-    XINCRT 
IF(XX4W    ^E,    XRCEPT)    GO    TO    92 
IX4W    =    IX      +2-1 
GO    TO       100 
CONTINUE 
IX4W    =    2 

XX4W    =    XBT+    XINCRT 
GO    TO    100 
NXW5    =    IX 
NXWW    *    IX   +2 
DO    95       1=   1,NXW5 
IX2W    =    NXWW    -    I 

IF(    XXZGP5(IX2W)    .LT.    XLCEPT)    GO   TO   96 
CONTINUE 
IX2W    =    2 

XX2W    =    XXZ&P5( IX2W) 
XXI  -    XXZGP5(IX2W-1) 

XINCRT    e      XX2W    -   XXI 
DO    97       1=    1,NXW5 
IX4W    =    NXWW    -    I 
IF(XXZCP5(IX^W)     .LT.    XRCEPT)    GO    TO   98 


INT52030 
INT52040 
I  NTS  20  50 
IN  T5  20  60 
IN  T5  20  70 
IN  T5  20  80 
INT52090 
IN  T5  21 00 
INT52110 
INT52120 
INT52130 
IN  T5  21 40 
INT52150 
.INT52160 
)INT52170 
INT52180 
IN  T5  21 90 
INT5  2200 
INT5  2210 
IN  T5 22 20 
INT522  30 
IN  T5  2240 
IN  T5  22  50 
IN  T5  22  60 
IN  T5  22  70 
INT522  80 
INT5  22  90 
IN  T5  23  00 
INT52310 
INT52320 
IN  T5  23  30 
IN  T5  23  40 
IN  T5  23  50 
INT52360 
IN  T5  23  70 
IN  T5  23  80 
INT52390 
INT52400 
IN  T5  24 10 
INT52420 
INT5  2430 
IN  T5  2440 
INT52450 
INT5  2460 
IN  T5  24  70 
INT52480 
INT52490 
IN  T5  25  00 
INT52510 
INT52520 
IN  T5  25  30 
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97  CONTINUE 
IX4W    =2 

98  XX4W    =    XX2GP5(IX4W) 
100    IXIW    =    IX2W    -1 

IX3W    =    IX4W    -1 

IFUXIW      -         IX3W)     104tl03tl04 

103  IX    =    IXIW 
GO    TO    61 

104  ZPGl    =    ZGPdXlW,    lY,    IT) 
ZPG2    =    2GP(IX2W,    lY,    IT) 
ZPG3    =    ZGP(IX3W,    IY+1,    IT) 
ZPG4    =    ZGP(IX4W,    IY+1,    IT) 
IF(IX2W    -   IX3W)    106,107,110 

106  ZPHl       =      ZGP(IX3W-1    ,IY+1,    IT) 

ZPHl    IS    POINT    FIVE   HERE 
GO    TO    108 

107  ZPHl         =   ZPG3 

108  ZPH2  =  ZPG2 
ZTHl  =  ZPG3 
ZTH2  =   ZPG4 

IF(  ITV.Gfc.DZXINCR    =    XXZGP5(IX4W)    -  XXZGP5(IX3W) 
GO    TO    115 

110  IFCIXIW    -    IX4W)     115,112,111 

111  15    =MAX0(IX1W-1    ,1) 

ZPH2      IS    POINT    FIVE    HERE 
ZPH2  =   ZGP(I5,    IY,IT) 

GO    TO    113 

112  ZPH2     =  ZPGl 

113  ZPHl  =  ZPG4 
ZTHl  =  ZPGl 
ZTH2     =  ZPG2 

1F(  ITV.GE.DZXINCR  =  XXZGP5(IX2W)  -  XXZGP5(IX1W) 
115  ZZZl   =   ZPG2 

XXMXXl  =  XXX  -  XX2W 

YYMYYl  =  YYY  -  YY2 

GO  TO  180 

WHEEL  HAS  CROSSED 
140  NXW  =  NXT  -1 

KXW  =  IX 

IF(ITV.GE.l)  GO  TO  153 
143  XXIW  =  XXl-  XINCRT 

DO  145  I  s  KXW,NXW 

XXIW  =  XXIW  ♦  XINCRT 

IF(XX1W  .LT,  XLCEPT)  GO  TO  145 

IXIW  =  I 

GO  TO  150 
145  CONTINUE 

XXIW  =  XET-  XINCRT 

IXIW    ^    NXW 
150    XXI    =    XXIW 

XX3W    =    XX3    -    XINCRT 


SLANT    BOUNDARY.    STEP    AHEAD    ON    X,    PERHAPS. 


INT52540 
IN  T5  25  50 
INT5  2560 
INT52570 
IN  T5  25  80 
INT525  90 
IN  T5  26  00 
INT52610 
INT52620 
IN  T5  26  30 
INT52640 
INT526  50 
INT52660 
INT526  70 
IN  T5  26  80 
INT52690 
IN  T5  27  00 
IN752710 
1NT52720 
INT52730 
1NT52740 
IN  T5  27  50 
INT52760 
INT5277G 
INT52780 
lNTb2790 
IN  T5  28  00 
INT52610 
INT52820 
INT528  30 
IN  T5  28  40 
INT528  50 
INT52860 
IN T5 28  70 
INT5  28  80 
IN  T5  28  90 
IN  T5  29  00 
INT5  29  10 
INT52920 
INT52930 
INT529  40 
INT5  29  50 
IN  T5  29  60 
INT5  29  70 
INT529eO 
IN  T5  29  90 
I  NTS  30  00 
IN  T5  30  10 
INT53020 
INT53030 
1NT5  30  40 
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DO    152    1=   KXW    ,NXW 

XX3W    =    XX3W    ♦   XINCRT 

IF(XX3W    .LT.    XRCEPT)    GO    TO   152 

IX3W    =    1 

GO    TO    160 

152 

CONTINUE 

IX3W    =    NXW 

XX3W    -    XET-    XINCRT 

GO    TO    160 

153 

DO    155       I    =    KXW,    NXW 

IF(XXZ&P5(I)    .LT.    XLCEPT)    GO 

TO    155 

IXIW    -    I 

GO    TO    156 

155 

CONTINUE 
IXIW    -    NXW 

156 

XXIW    =    XXZGP5(1X1W) 
XXI       =    XXIW 

XINCRT    =      XXZGP5(IX1W    ♦    1)    - 

XXI 

DO    157    1=    KXW    ,NXW 

IF(XXZGP5(I)    .LT.    XRCEPTI    GO 

TO    157 

IX3W    =    I 

GO    TO    158 

157 

CONTINUE 
IX3W    =    NXW 

158 

XX3W    =    XXZGP5(IX3W) 

160 

IX2W    =    IXIW    ♦    1 
IX4W    =    IX3W    ♦    1 
IFCIXIW    -  IX3W»    164,163,164 

163 

IX    =    IXIW 
GO    TO    61 

164 

ZPGl    =    ZGP(IX1W,IY,IT) 
ZPG2    =    ZGPCIX2W,IY,IT) 
ZPG3    =    Z&P(IX3W,IY"H,IT) 
ZPG4    =    ZGP(IX4W,IY+1,IT) 
IF(IX2W    -   IX3W»     166,16  7,170 

166 

ZPH2    =    ZGP(     IX2W*1,IY,IT) 

ZPH2    IS    POINT   FIVE    HERE 
GO    TO    168 

167 

ZPH2    =    ZPG2 

168 

ZPHl    =    ZPG3 
ZTHl    =    ZPGl 
ZTH2    =    ZP62 

IFdTV.GE.DZXINCR    =    XXZGP5(IX2W)    -XXZGP5  (  IXIW) 

GO    TO    175 

170 

IFdXlW    -  IX4W)    175,172,171 

171 

15    =    MIN0(IX4W+l,NXT) 

ZPHl    IS   POINT    FIVE    HERE 
ZPHl    =    ZGP(I5,IY+1,IT) 
GO    TO    173 

172 

ZPHl    =    ZPG4 

173 

ZPH2    =    ZPGl 

IN T5 30 50 
IN  T5  3060 
INT53070 
IN  T5  30  80 
INT530  90 
INT53100 
INT53110 
INT53120 
IN  T5  3130 
INT53140 
IN  T5  31 50 
IN  T5  31 60 
INT53170 
INT5  3180 
INT53190 
INT532  00 
IN  T5 32 10 
IN  T5  32  20 
INT532  30 
IN  T5  3240 
INT5  32  50 
INT532  60 
IN  T5  32  70 
1NT53280 
INT53290 
IN  T5  33  00 
INT53310 
INT533  2G 
IN  T5  33  30 
IN  T5  33  40 
IN  T5  33  50 
IN  T5  33  60 
IN  T5  33  70 
IN  T5 33 80 
IN  T5  33  90 
IN  T5  34  00 
IN  T5  34  10 
INT5  3420 
IN  T5  34  30 
INT53440 
IN  T5  34  50 
INT53460 
INT53470 
IN  T5  34  80 
INT534  90 
IN  T5  35  00 
INT53510 
IN  T5  35  20 
IN  T5  35  30 
INT53540 
INT53550 
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ZTHl    =    ZPG3  INT53560 

ZTH2    =    ZPG4  INTt.3570 

IF(ITV.&E.1)ZX1NCR=    XXZGP5(IX4W)    -    XXZGP5(IX3W)  IN7i;35bO 

175    ZZZl    =    ZPGl  INT53590 

XXMXXl    =    XXX    -    XXI  INT5.36O0 

YYMYYl    =   YYY    -    YYl  INT536  10 

180    ZTH12    =      ZTH1-ZTH2  INT53620 

TTANTH    =      ZTH12/ZXINCR  INT53630 

THGKINDX)    =    ATAN2(     ZTHl  2  »    ZXINCR)                                                                                INT53640 

TCOSTH    =   COS(TH&I(INDX)»  INTSSbi-O 

PFAC    =    (ZPHl    -    ZPH2)/YINCRT  INT5  3660 

PHGKINDX)    =    ATAN2(     PFACt  TCOSTH)                                                                                           INT5  3fe70 

IF(TCOSTH)     186,185,186  INT5368& 

185  TTANPH  =  0,0  INT53690 
GO    TO    187  INT5  3700 

186  TTANPH    =      PFAC/TCOSTH  INT5  37  10 

187  ZPGKINDX)  =  ZZZl  ♦  YYMYY1*TC0STH*TTANPH  -  XXMXXl*  TTANTH  INT53720 
RETURN  INT53730 
END  INT53740 
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SUBROUTINE    MATRIX  MTRXOOIO 

C  HV0SM-RD2    VERSION  MTRX0020 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION  MTRX0030 

COMMON/INPT/PHIO,THETA0,PSIO,POtQO,R0,XCOP,YCOP,2COPfUO,VO,W0,  MTRX00  40 

1  A,B,DEL10,DEL20,0EL30,PHIR0,DEL10D,DEL20D,DEL30Dt  MTRX0050 

2  PHIR0DrTF,TR,2F,ZR.RH0f AKRStXMURt  MTRX0060 

3  XMS,XMUF,XIX,XlY,XIZtXIXZ,CF,AKF,XLAMFtOMEGF,CFP,EPSF,MTRX00  70 

4  RF.CRf AKR,XLAMR,OMEGRfCRP»EPSR,RR,TSfTHMAX,DTCOMP,TO,    MTRX00  80 

5  TltDTCMPItDTPRNTtMODE,EBAR,EM,AAA,HMAXtHMIN,BET»G,  MTRX0090 

6  HED(36),DADE(3) ,XIR,X1,YI,Z1,X2,Y2,Z2,PHIC(50) ,DELB,       MTRXOIOO 

7  DELE,DDEL,NDEL,PSIF(50),TOF(50),TQR(50),TB,TEtTINCR,       MTRXOllO 

8  NZTAB,NZ5,XBDRY(4,5)fPSBDRY(4,5) ,YBDRY(2f5)fNBX(5),  MTRX0120 

9  NBY(5),NTBL1 tNTBL2,NTBL3,ZGP{21,21,5)  MTRX0130 
C0MM0N/INPT/XB(5),XE(5),XINCR(5) tNX{5),YB(5) , YE( 5) t YINCR (5 ) t NY ( 5 ) ♦MTRX0140 

1  XXZGP3(21)  ,YYZGP5(21)  t AMU&{5) tPSBDR0(4,5 ) ,UVWMIN .PORMIN    MTRX0150 

COMMON    /INTG/NtQ»TtDT,VAR(50) ,D£R( 50)  MTRXOlbO 

EQUIVALENCE     (U,VAR(1  )) »( V,VAR(2) ), (W,VAR(3)) ,(P,VAR(4) ) , (Q , VAR < 5 ) ) MT RXOl 70 

1  , (R,VAR(6))  ,( DELI, VAR (7) ), (DEL  ID, VAR ( 8 ) ) , (DEL2, VAR (9) ), MTRXOlbO 

(DEL2D,VAR(10)),(DEL3,VAR(ll) ) ,(DEL3D,VAR(  12) )  ,  MTRX0190 

(PHIR,VAR( 13) ),(PHIRD,VAR(14) ) , ( THETTP , VAR ( 15 ) )«  MTRX02  00 

(PHITP,VAR(16)), (PSITP,VAR(17) ), ( XCP ,VAR ( 1 B) ) ,  MTRX0210 

(YCP,VAR(19)  ),(ZCP,VAR<20)),{PSIFI,VAR(21) ),  MTRX0220 

(PS1F1D,VAR( 22))  MTRX0230 

EQUIVALENCE    (DU, DER ( 1 ) ) , ( DV, DER ( 2) ) , ( DW,DER ( 3 ) ) , (DP,DER(4) ),  MTRX0240 

(DO,DER( 5) ), (DR,DER(6) ) , ( DDEL 1 ,DERt7) ) , (DDELID ,DER ( 8 ) )MTRX02 50 

, (DO EL 2, DER (9)  ), ( DDEL2D ,DER ( 10 ) ) , (DDEL3,DER (11) ),  MTRX02  60 

(DDEL3D,DER( 12)),(DPHIR,DER( 13)),(DPHIR0,DER(14)),  MTRX0270 

(OTHTTP,DER( 15)), (DPHITP,DER( 16)) , ( DPS ITP, DER( 17) ) ,  MTRX02  80 

(DXCP,DER(18>),(DYCP,DER( 19) ) , (DZCP,DER ( 20 ) ) ,  MTRX02  90 

(DPSIFI,DER(21) ), (DDPSFI,D£R(22) )  MTRX0300 

(VAR(9),PHIF),(VAR(10) ,PHIFD) , (DER ( 9 ) , DPMI F ) ,  MTRX0310 

(DER( 10),DPHIFD)  MTRX0320 

(VAR (13) ,DEL4),(VAR(14),DEL4D),(DER( 13) ,0DEL4) ,  MTRX0330 

L  (DER(14),DDEL40)  MTRX0340 

COMMON    /DIMV/X1P,X2P,X3P ,X4P, YIP, Y2P, Y3P , Y4P , Z1P,Z2P, Z3P ,Z4P,PHI1 ,MTRX0350 

PHI2,PHI3,PHI4,PSI1,PSI2,PSI3,PSI4,CAYW(^),CBYW(4),       MTRX03  60 

CGYW(4)  ,ZPGI(4),THG1(4),PHG1(4),CPG(4),SPG(4) ,CTG (4 ) ,MTRX03  70 

STG(4),CAGZ(4),CBGZ(4),CGGZ(4),D1(4),D2(4),D3(4),  MTRX03  80 

XLM1(4) ,XLM2(4),XLM3(4»,AMTX(3,3»,CMTX(3,4),X6PP(4),    MTRX0390 

Y&PP(4) ,ZGPP(4),DMATX(10,11),DELTA(4),CAR(4),CBR(4),    MTRX0400 

CGR(4),FR(4),HI(4),FC(4),TI(4),AX(4),BX(4),CX(4),  MTRX0410 

CTXG(4) ♦UG(4),STXG(4),AY(4),BY(4),CY(4),CPYG(4),  MTRX0420 

SPYG(4),V&(4),PSIIP(4),PHICI(4),CAC(4),CBC(4),CGC(4),MTRX0430 

FCXU(4),FCYU(4I,FCZU(4),FS(4),CAXW(4} ,CBXW(4) ,CGXW(4)MTRX0440 

COMMON    /DIMV/AS(4),BS(4) ,CS (4) ,C AS (4) ,CBS(4) ,CGS(4 ) ,BETP (4 ) ,  MTRX0450 

BETBR(4),FSXU(4),FSYU(4),FSZU(4) ,FRXU(4) , FRYU (4) ,  MTRX0460 

FRZU(4) ,FXU(4),FYU(4) ,FZU(4} , SI ( 4) ,F1FI ( 2 » ,F1RI ( 2) ,       MTRX0470 

F2F1(2)  ,F2RI(2),CAH(4),CBH(4),CGH(4)  MTRX04  80 

DIMENSION  XP(4),YP(4),ZP(4),PHII(4),PS1I(4)  MTRX0490 


EQUIVALENCE 


EQUIVALENCE 
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DATE       01/12/76 


TIME       1729 


UPDATE    RECORD 


EQUIVALENCE 


COMMON 


(XP(l) ,X1P), (YP(1),Y1P) ,(ZP(1),Z1 
(PSIUD.PSIl) 

/COMP/SUMM,ThETNt  PHIN, PS  IN, PI t RAD,GAM1 
GAM6,GAM7,GAM8,GAM9,THETT,PHIT,PS 
TF02,TIZ,RH0  2,RHGMUR, AMUF,BMUR»Z 
B02APB,RFTF,TS02,RRTS,BR0MUR»XMU 
XIZR,RTR,RHMR2I,XIXP,XIZP,XIXZP, 
ZRD3,ZRD3R, ZFD3R,ZFD1 2»TI Z2 , T&61 
,TANTP,SPHTP,CPHTP,SECTP,SFXS,SFY 
SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CG 
SFYUR,SFZUtCDSTH,SINTH,COSPS,SIN 
ANG2,CPHI,SPHI,CPSI,SPSI,P1,P7,P 
COMMON    /C0MP/TRH,D1STX,DISTY,DISTD,DISTS,D21, 

1  ZETA3D,SFZ1  ,SNPU,SNTU ,HCGHl , HCGH 

2  TERM2,SNPSUtSNPR,HCBHl,HCBH2,HCB 

3  HCAH3,HCAH^,LR3tWP»UR,QR,VPfPR,P2 

4  ,PHIRD2,RPHRD,GCTH,GSTH,GCTSP,GCT 

5  XX2,YYl,YY2,THGl,THG2tPHGl,PHG2, 
DIMENSION    HCAH(4),HCBH(A),HCGH(4) 
EQUIVALENCE     (HCAHU ) ,HCAH1 ) , (HCBH( 1 ) »HCeHl ) , ( 
COMMON/ ADTNL/    Ul ,U2 » U3,UA,V1 ,V2 , V3 , V4 , Wl , W2 , W 

1  XIYP,SPHICtCPHIC,APTCH1, APTCH2, 

2  SL0PE1,SL0PE2,XTRA(300) 
DIMENSION    Ul (4) ,VI(4),WI (4) 

EQUIVALENCE     (UI(1),U1),(VI(1),V1),(W1(1),W1) 
DIMENSION    APITCH(4) 
EQUIVALENCE     ( APITCH( 1 ) ,A PTCHl > 
CALL    CLEAR     (DMATX,DMATX( 10, 11 ) ) 

=    SUMM 

=    GAM2 

=    RhOMUR*PHIR 

=    SUMM 


P),(PH1I( 1),PHI1), 


,GAM2,GAM 
IT,ZRO,TR 
PR,TM4,RH 
F02,AXMFO 
XIYZP,D1P 
,DD1P2,DD 
S,SFZS,SN 
X,SFYU,SF 
iPS,COSPH, 
3,PA,P5,P 
ZETA4,ZET 
2,HCGH3,H 
H3,HCBH4, 
,02,R2,VR 
CP,XXX,YY 
ZZ1,ZZ2,L 


3,&AM4,GAM5 

02, 

MR2, A02APB, 

2,XMTF04, 

D2,D1MD2, 

1M2,RPR,PHR 

PS,SNTS, 

XU.SFYUF, 

SINPH,ANG1, 

6,TX,TY,TZ 

A4D,ZETA3, 

CGHA,TERM1, 

HCAH1,HCAH2 

,WQ,PQ,PHIR 

Y,IX,IY,XX1 

LL 


HC&H( 1),HCGH1) 

3,W4, 

fiPTCH3,APTCH4, 


DMATX(  1,1) 
DMATX(  l,t>) 
DMATX( 1,6) 
DMATX(2,2) 

DMATX (2t4)  =  -GAM2 
DMATX(2,6)  =  GAMl 
DMATX(2,10 
DMATX(3,3) 
DMATX(4,2) 
DMATX(4,4) 
DMATX(4,6) 
DMATX(4,10)    = 


-   -RHOMUR 
XMS 
-GAM3 
XIX+XIXP 
-XIXZ-XIXZP 
RH0MUR*ZRD3 


DMATX(b,l) 
DMATX<5t5) 
DMATX(5,6) 
DMATX(6,1) 
DMATX(6,2) 
DMATX{6,4) 
DMATX{6,5) 
DMATX(6,6) 


GAM2 

XIY+XIYP 

-XIYZP 

DMATX (1,6) 

GAMl 

DMATX{4,6)+BR0MUR 

-XIYZP 

XIZR+XIZP 


DMATX(6,10)    =    BROMUR 
DMATX(7,3)    ~   XMUF02 
DMATX(7,4)    =    XMTF04 


MTRX05  00 
MTRX05  10 
,MTRX05  20 
MTRX05  30 
MTRX05  40 
M1RX05&0 
MTRXGi)60 
PMTRX05  70 
MTRX05  80 
MTRX05  90 
MTRX0600 
MTRX06  10 
MTRX0620 
MTRX06  30 
,MTRX06  40 
2MTRX06  50 
,MTRXC6  60 
MTRX06  70 
MTRX06faO 
MTRXG6V0 
MTRX0700 
MTRX0710 
MTRX07  20 
MTRX0730 
MTRX0740 
MTRX07  50 
MTRX07  60 
MTRX0770 
MTRX07aO 
MTRX07  90 
MTRXOeOO 
MTRXG8  10 
MTRX0b20 
MTRX08  30 
MTRX08  40 
MTRXG8  50 
MTRX0&60 
MTRX08  70 
MTRXOSeO 
MTRX08  90 
MTRX09  00 
MTRX09  10 
MTRX0920 
MTRX09  30 
MTRX09  40 
MTRX09  50 
MTRX09  60 
MTRX09  70 
MTRX09B0 
MTRX09  90 
MTRXIOOO 
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DATE       01/12/76 


TIME   1729 


UPDATE  RECORD 


DMATX(7,5)    = 
DMATX(7,7)     = 

8  DMATX(8,3)  = 
DMATX(b,4)  = 
DMATX(bt^)  = 
DMATX(8,6)    = 

9  DMATX(9,3)  = 
DMATX(9,4)  = 
DMATX(9,5)  = 
DMATX(9,9)  = 
DMATX{9,10) 

10  DMATX(10f2) 
DMATX(10,3) 
DMATX( 10,4) 
DMATX( 10,5) 
DMATX(10,6) 
DMATX(10,9) 
DMATX( 10,10) 

11  GCTSP  =  G*AM 
GCTCP  =  G*AM 

12  DMATX(1,11)     = 
1 

DMATX(2,11)     ^ 
1 
DMATXO.ll)    = 
DMATX(4,11)    = 


DMATX(5,11)    = 


1 
2 

I 
1 
2 

13  DMATX(6,11) 
1 

2 

DMATX(7,11) 
1 

DMATX(8,11) 
1 

DMATX(9,11) 
1 

14  DMATXdO.ll) 
1 

2  PH 

3 

4 

RETURN 

END 


-AXMF02 
XMUF02 
XMUF02 
-XMTF04 
-AXMF02 
XMUFG2 
XMUR 

-DMATX< 1,6) 
BMUR 
XMUR 
=    DMATX(9,4) 
=    -RHOMUK 
=    DMATX(9,4) 
=    XIR-»-ZRD3R*RH0MUR 
=    -BROMUR*PHIR 
-    BROMUR 
=    DMATX(9,4> 

=    RHMR2I 
TX<3,2) 
TX(3,3) 

=  SUMM*(  \/R-WQ-GSTH)-GAM2*PR  +  RH0MUR*PHI 
R?)-GAM6*Q-2.0*RH0MUR*RPHRD+SFXS*SFX 
SUMM*( WP-UR+GCTSP ) +GAM6*P-GAMl*Pg-GA 
PHIR*(P2+R2  +  PHIRD2)'»-SFYS  +  SFYU 
XMS*(UQ-VP ♦GCTCP )-SFZl+SFZS 
GAM3«(UR-WP-GCTSP)+(XIXZ+XIXZP)*PQ-G 
X1XP)*QR-GAM4*(P2+R2)+RHDMUR»PHIR*ZR 
SNPU 

XIXZ*(R2-P2)+(XIZ-XIX-XIYP)*PR+GAM2* 
(GAM7+2.*RH0*TG61)*Q+(XIXZP-bR0MUR)* 
XIYZP*PQ-2«0*XMUR*ZRD3R*RH0*RPHRD+SN 
=  (XIX-X1Y-GAM5)*PQ-(XIXZ+XIXZP-BR0MUR 
XIYZP*PR+GAM9*P+RH0MUR*PHIR*(VR-W0-2 
(Q2-P2-PHIRD2)-GSTH)+GAM1*(WP-UR+GCT 
=    XMUF02*(UQ-VP-A*PR-TF02*gR+(ZF+DELll 

FZU(1)+SI( 1) 
=   XMUF02»(UQ-VP-A*PR+TF02*QR+(ZF+DEL2) 

FZU(2)+SI(2) 

=    XMUR*(U0-VP+RHO*PHIRD2+2.0*P*RHO*PHI 

*0R*ZRD3R*IP2+Q2)+GCTCP)*FZU(3)*FZU( 

=    RH0MUR*(UR-WP-2.0*P*(DEL3D-RHO»PHIR 

RH0*PHIR*  (P2+R2)  +  ZRD3R*ClR-GCTH*SIN( 

IR»RH0MUR*(VP-UQ-2.0*P*RH0*PHIRD~B*PR- 

ZRD3R*(P2+Q2))-XIR*PHIR»(R2-Q2)-XIR 

SNPR 


R*P0+GAM1*(Q2+ 
U 

M2+QR-RHGMUR* 


AM7*P+{X1Y-XIZ 
D3*PHIRD2+SNPS 

(VR-WQ-GSTH)- 

(02  +  R2  )- 

TS+SNTU 

)*QR+GAM8*Q+ 

.0*RHO*RPHRD-B 

SP)+SNPSS+SNPS 

*(P2+Q2)+GCTCP 

*(P2+Q2)*GCTCP 

RD+B*PR+RHO*PH 
4)+Sl(3)+SI(4) 

♦PHIRD)-B*PQ+ 
PHIT+PHIR))+ 
RHO*PHIR*QR- 
*QR  + 


MTRXIOIO 
MTRX1020 
MTRX1030 
MTRX1040 
MTRX10  50 
MT  RX 10  60 
MTRX10  70 
MTRX1080 
MTRX1090 
MTRXllOO 
MTRXlllO 
MTRX112G 
MTRX1130 
MTRX1140 
MTRX1150 
MTRX1160 
MTRX1170 
MTRX1180 
MTRX1190 
MTRX12  00 
MTRX1210 
MTRX1220 
MTRX1230 
MTRX1240 
MTRX12  50 
+  MTRX1260 
+  MTRX1270 
MTRX12  80 
MTRX1290 
MTRX13  00 
MTRX1310 
MTRX13  20 
*  MTRX13  30 
U  MTRX1340 
)'»-MTRX13  50 
MTRX1360 
)+MTRX13  70 
MTRX13  80 
IRMTRX1390 
MTRX1400 
MTRX1410 
MTRX1420 
MTRX1430 
MTRX1440 
MTRX1450 
MTRX1460 
MTRX1470 
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SUBROUTINE    MTRXIR  MTXIOOIO 

C  HV0SM-RD2    VERSION  MTXI0020 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION  MTXI0030 

COMMON/I NPT/PH I 0,THETAOtPSIO,PO,QO,RO,XCOPtYCOP»ZC OP, UOtVO, WO,  MTXI0040 

1  A,B,DEL10,DEL20,DEL30,PHIR0,DEL10D,DEL20D,DEL30D,  MTXI0050 

2  PHIR0D,TF,TR,ZF,ZR,RH0,AKRS,XMUR,  MTXI0060 

3  XMS,XMUF,XIX,XIY,XIZ,XIXZ,CF,AKF,XLAMF,0MEGF,CFP,EPSF,MTXI0070 

4  RF,CR,AKR,XLAMR,OMEGR,CRP,EPSR,RR,TS,THMAX,DTCOMP,TO,    MTXI0080 

5  T1,DTCMP1,DTPRNT,M0DE,EBAR,EM,AAA,HMAX,HMIN,BET,G,  MTXI0090 

6  HEDI36),DADE (3),XIR,X1,YI,Z1,X2,Y2,Z2,PHIC(50),DELB,       MTXIOIOO 

7  DELE,DDEL,NDEL,PSIF(50),TQF(50),TQR(50),TB,TE,TINCR,       MTXIOllO 

8  NZTAB,NZ6,XBDRY(4,5),PSBDRY(4,5),YBDRY(2,5),NBX(5),  MTX10120 

9  NBY(5),NTBLl,NTBL2,NTBL3,ZGP(21t2l,5)  MTX10130 
COMMON/INPT/XB(5),XE(5),XINCR(5) ,NX (5 ) ,YB (5) , YE( 5) ,YINCR ( 5 ) ,NY( 5 ) ,MTXI0140 

1  XXZGP5(21) ,YYZGP5(21) , AMUG( 5 ) ,PSBDR0(4,5 ) ,UV WMIN  ,PQRMIN    MTXI0150 

COMMON    /INTG/NEQ,T,DT,VAR(50),DER(50)  MTXI0160 

EQUIVALENCE     (U,VAR(l)) ,( V,VAR(2) ) , ( W, VAR( 3 ) ) , (P,VAR(4) ),(0,VAR(5) IMTXIQITO 

1  , <R,VAR(6)},(DEL1,VAR(7)),IDEL1D,VAR(8) ) , (DEL2, VAR ( 9) ),MTXI0180 

2  (DEL2D,VAR(10)),(D£L3,VARai)  ),(DEL3D,VAR(12))  ,  MTX10190 

3  (PHIR,VAR(13) ),(PHIRD,VAR(I4) ),(THETTP,VAR(13) ),  MTXI0200 

4  (PHITP,VAR(16)),(PSITP,VAR(17}>,(XCP,VAR(18)),  MTXI0210 

5  (YCP,VAR{19) ) ,(ZCP,VAR<20)),(PSIFI,VAR(21) ),  MTXI0220 

6  (PSIFID,VAR(22) )  MTXI0230 
EQUIVALENCE     (DU,DtR( 1) ), CDV,DER(2) ) ,( DW,DER( 3 ) ) , (DP,DER (4) ),  MTXI0240 

1  (DQ,DER(  5)  ),  (DR,DER{6)  )  ,  (  DDELl  ,DER(7) )  ,  (DDELIO  ,DER  (8  )  )MTXI02i>0 

2  ,(DDEL2,DER(9)),{DDEL2D,DER(10)),(DDEL3,DER(11) ),  MTXI0260 

3  (DDEL3D,DER( 12)),(DPHIR,DER(13)) ,(DPHIRD,DER{14)),  MTXI0270 

4  (DTHTTP,DER(15)), (DPHITP,DER(16)) ,CDPSITP,DER(17)),  MTXI0260 

5  (DXCP,DER(18)  ),(DYCP,DER(  19)  )  ,(DZCP,DER(20n,  MTXI0290 

6  IDPSIFI,DER(21)),(DDPSFI,DER(22) )  MTXI0300 
EQUIVALENCE     IVAR(9 ) , PHIF ) , ( VAR( 10) , PHIFD ) , (DEK{9 ) ,DPHIF) ,  MTXI0310 

1  (DER(10),DPHIFD)  MTX10320 

EQUIVALENCE     (VAR 113) ,DEL4),(VAR( 14) ,DEL4D ) , ( DER ( 13 ) ,DDEL4) ,  MTXI0330 

1  (DER(14),0DEL4D)  MTXI0340 

COMMON    /DIMV/X1P,X2P,X3P,X4P,Y1P,Y2P,Y3P,Y4P,Z1P,Z2P,Z3P,Z4P,PHI1,MTXI03  50 

1  PHI2,PHI3,PH14,PS11,PSI2,PSI3,PSI4,CAYW(4),CBYW(4),       MTXI0360 

2  CGYW(4) ,ZPGI(4),THGI(4),PHGI(4) ,CPG(4 ) ,SPG 14) ,CTG (4 ) ,MTXI0370 

3  STG(4),CAGZ{4),CBGZ(4),CGGZ(4),D1(4),D2(4),D3(4),  MTXI0380 

4  XLM1(4) ,XLM2(4),XLM3(4),AMTX<3,3),CMTX(3,4),XGPP(4),    MTXI0390 

5  YGPP(4) ,ZGPP(4),DMATX(10,11),DELTA(4),CAR{4),CBR(4),    MTXI0400 

6  CGR(4),FR(4),HI(4) ,FC(4),TI(4),AX(4),BX(4),CX(4),  MTX10410 

7  CTXG(4),UG(4),STXG(4),AY(4),BY(4),CY(4),CPYG(4),  MTXI0420 

8  SPYG(4) ,VG(4),PSIIP<4),PHICI(A),CAC(4),CBC(4),CGC(4),MTXI04  30 

9  FCXU(4) ,FCYU(4),FCZU(4),FS(4),CAXW(4) ,CBXW(4) ,CGXW( 4)MTXI0440 
COMMON    /DIMV/AS(4),BS<4) ,CS (4 ) ,CAS ( 4) ,CBS(4) ,CGS (4 ) ,BETP (4 ) ,  MTXI0450 

1  BETBR(4),FSXU(4),FSYU(4),FSZU«4),FRXU(4),FRYU(4),  MTXI0460 

2  FRZU(4) ,FXU(4),FYU(4),FZU(4),SI{4),F1FI(2),F1RI(2),       MTXI0470 

3  F2FI(2),F2RI(2),CAH(4),CBH(4),CGH(4)  MTXI0480 
DIMENSION   XP(4),YP(4),ZP(4),PHII(4),PSII(4)  MTXI0490 
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DATE       01/12/76 


TIME       1729 


UPDATE    RECORD 


EQUIVALENCE     (XP( 1) , XIP ) ,  (  YP( 1 )  , YIP)  ,  ( ZP ( 1 ) ,Z1P) , (PHIH 1),PHI1), 
I  <PSII(l),PSIl) 

COMMON    /COMP/SUMM,THETN, PHIN, PSIN, PI,RA0,GAM1 ,GAM2 t GAM3,  GAM4,GAM5 

1  GAM6,GAM7,GAM8f6AM9,THETT,PHIT,PSIT,ZR0,TR02f 

2  TF02,TI Z,RH02,RH0MUR,AMUF,BMUR,ZPR,TM4,RHMR2f A02APBf 

3  B02APB,RFTF ,TS02,RRTStBR0MUR,XMUF02»AXMF02tXMTF0^f 

4  XIZRtRTR,RHMR2I,XIXP,XIZP,XIXZP,XIYZP,DlPD2,DlMD2, 

5  ZRD3fZRD3R, ZFD3RtZFDl2,TIZ2,TG61,DDlP2,DDlM2tRPR,PHR 

6  ,TANTP,SPHTP,CPHTP»SECTP,SFXS,SFYS,SFZSfSNPStSNTSt 

7  SNPSStTPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYUfSFXU»SFYUF, 

8  SFYUR,SFZUfCOSTH,SINTH,C0SPSfSINPS»C0SPHfSINPHfANGl, 

9  ANG2,CPHI,SPHl,CPSI,SPSItPlfP7,P3,P4,P5fP6,TX,TYfTZ 
COMMON    /C0MP/TRH,DISTX,DISTYtDISTDfDISTSfD21,ZETA4,ZETA4D,ZETA3, 

1  ZETA3D,SFZ1 ,SNPU,SNTU,HCGHl,HCGH2tHCGH3fHCGH4tTERMl, 

2  TERM2tSNPSUfSNPRtHCBHl,HCBH2tHCBh3,HCBH4,HCAHltHCAH2 

3  HCAH3fHCAH4,UQ,WPtUR,QR,VP,PR,P2tQ2fR2,VR,WQ,PQ,PHlR 

4  ,PHIRD2,RPHRD,GCTH,GSTH,GCTSP,GCTCP,XXX,YYY,IXtIY,XXl 

5  XX2,YYl,YY2,THGlfTH&2,PHGI,PHG2,ZZl,ZZ2fLLL 
DIMENSION   HCAH(4),HCBH(4) tHCGH<4) 

EQUIVALENCE     (HCAHd)  ,HCAHl),  (HCBH(  1  ),HCBHl )  ,  (HCGH(  1 )  ,HCGH1  ) 
COMMON/AOTNL/    Ul tU2, U3 ,U4,V1 ,V2 t V3 , V4, Wl, W2 , W3» W4, 

1  XIYP,SPHlCfCPHIC,APTCHl,APTCH2,APTCH3,APTCH4, 

2  SL0Pfcl,SL0PE2,XIRA(300) 
DIMENSION    UI  (4),VH4),WI(4) 

EQUIVALENCE     (UI ( 1 ) tU 1 ) , ( VI ( 1 ) ,V1 ) , ( MI ( 1 ) , Wl ) 

DIMENSION   APITCH(4) 

EQUIVALENCE  (APITCHC 1 ) .APTCHl ) 

COMMON  /SUSCMP/  XMUR02,BXMR02 ,XMTRG4, ZFO, TSF02,RH0F2f RHFMUF , 

1  RHF2MF,RF2MFl,RTFfRRTRtD3PD4,D3MD4,D43tDD3P4f 

2  DD3M4,ZFDlRF,ZRD34,RFPF,RPF2M,WFMF,PHFP,PHIF2t 

3  PHlFD2fRPHFDf ZFDlfZFD2iZRD4,TPF,SL0PE3fSL0PE4, 

4  PHI3D,PHl4DfDTHFlf DTHF2tDTHR3,DTHR4,0TDDlt 

5  DTDD2,DTDD3,DIDD4,FJF(4),SNPF 

CALL    CLEAR(DMATX(l,l  )  ,DMAIX ( 10, 1 1 )  ) 


DMATXCl, 

>1) 

s 

SUMM 

DMATX( 1, 

r&) 

= 

GAM2 

DMATX(2, 

>2) 

= 

SUMM 

DMATX(2i 

)4) 

s. 

-GAM2 

DMA7XI2, 

tt>) 

= 

GAMl 

DMATX(3, 

i3) 

= 

XMS 

DMATX(4, 

>Z) 

s 

-GAM2 

DMATX(4, 

r4) 

= 

XIX+XIXP 

DMATX(4, 

r6) 

= 

-XIXZ-XIXZP 

DMATX(5, 

rl) 

s 

GAM2 

0MATX(5i 

r5) 

X 

XIY+XIYP 

DMATX(6, 

»6) 

= 

-XIYZP 

DMATX(6i 

>2) 

s 

GAMl 

DMATX(6, 

r4) 

s 

-XIXZ-XIXZP 

DMATX(6, 

r5) 

= 

-XIYZP 

DMATX(6, 

>6) 

= 

XIZ+XIZP 

MT  XI 05  00 
MTXI0510 
,MTXI05  20 
MTX10530 
MT  XI 0540 
MTXI05  50 
MTXI0560 
PMTXI0570 
MTXI05  80 
MT  XI  05  90 
MT XI  06  00 
MTXI0610 
MTXI06  20 
MTXI06  30 
,MTXI0640 
2MTXI06  50 
,MTXI0660 
MTXI0670 
MT XI 06 60 
MT  XI 06  90 
MTX10700 
MTX10710 
MT XI 07 20 
MTXI07  30 
MTXI0740 
MT  XI 07  50 
MTXI0760 
MTXI0770 
MTXI0780 
MTXI0790 
MTX108  00 
MTXI0810 
MTXI08  20 
MTX106  30 
MT  XI 08  40 
MT  XI  0850 
MTX108  60 
MT  XI 08  70 
MT  XI 08  80 
MT  XI  08  90 
MTXI0900 
MTXI0910 
MT  XI  0920 
MTXI09  30 
MT  XI  0940 
MT XI  0950 
MTXI0960 
MT  XI 0970 
MT  XI 09  80 
MTXI0990 
MTXI  1000 
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DMATXC7,3)    =   XMUF02  MTXIIOIO 

DMATX(7,4)    =    XMTF04  MTXI1020 

DMATX(7,5)    =    -AXMF02  MTXI1030 

DMATX(7t7)    =    XMUF02  MTXI1040 

DMATX{8,3)    =    XMUF02  MTXI1050 

DMATX(8t4)    =    -XMTF04  MTXI1060 

DMATX(8,5)    -    -AXMF02  MTXI1070 

DMATX(8,8)    =    XMUF02  MTXIIOBO 

DMATX(9,3)    =    XMUR02  MTXII090 

DMATX(9,4)    =    XMTR04  MTXIllOO 

DMATX(9,5)    =    BXMR02  MTXIlllO 

DMATX(9,9)    =    XMUR02  MTXI1120 

DMATX(10,3)    =   XMUR02  MTXI1130 

DMATX(lOt^)     =   -XMTR04  MTXI1140 

DMATX(10,5)     =    BXMR02  MTXI1150 

DMATX( 10,10)    =    XMUR02  MTXIllOO 

GCTSP    =    G*AMTX(3,2)  MTXI1170 

GCTCP    =    &*AMTX(3t3)  MTXIlieO 

DMATXdtll)     =    SUMM*(  VR-W0-GSTH)+GAM1*(Q2  +  R2)-GAM2*PR-GAM6*Q  MTXI119G 

♦SFXU+SFXS  MTX11200 

DMATX(2,ll)     =    SUMM*(WP-UR+GCTSP)-GAM1*PC-GAM2*0R+GAM6*P  MTXI1210 

♦SFYU+SFYS  MTX11220 

DMATX(3,11)  =  XMS*(UQ-VP+GCTCP)-SFZ1*SFZS  MTXIi230 
DMATX(4,11)    =    -GAM2*(WP-UR+GCTSP)*(XIXZ+XIXZP)*PQ-XIYZP*(P2+R2)          MTXI1240 

♦(XIY-XIZ*XIXP)*0R-GAM7*P+SNPU+SNPS  MTXI1250 

DMATX(5,11)    =    GAM2*(VR-WQ-GSTh)-(XIX-XIZ+XIYP)*PR-GAM7*Q  MTXI126G 

♦XIXZP*(Q2+R2)-XIYZP*PQ+XIXZ*(R2-P2)+SNTU+SNTS  MTXI1270 
DMATX(6,11)    =    GAM1*(WPHJR+GCTSP)+(XIX-XIY-GAM5>*PQ-(XIXZ+XIXZP)         MTX112B0 

*0R+GAM8*Q-»-XIYZP*PR*GAM9*P+SNPSU*SNPSS  MTXI1290 

DMATX(7,ll)    =    XMUF02*(UQ-VP+GCTCP-A*PR-»-ZFDl*(P2  +  R2)  MTXI1300 

-TF02»QR)+FZU(l)+Sia)  MTXI 13  10 

DMATX(b,ll)    =    XMUF02*(UQ-VP*GCTCP-A*PR+ZFD2*(P2+R2 )  MTXI1320 

+TF02*QR)+FZU(2)*SI(2)  MTXI1330 

DMATX(9,11)    s    XMUR02»(UQ-VP+GCTCP+B*PR*ZRD3*(P2*R2)  MTXI1340 

-TR02*0R)+FZU{3)+SI(3)  MTXI1350 

DMATXC  10,11)    =    XMUR02*(U0-VP-»-GCTCP*B*PR  +  ZRD4*(P2-H<2)  MTX11360 

♦TR02*QR)+FZU(4)+SIC4)  MTX11370 

RETURN  MTXI  1380 

LND  MTXI1390 


197 
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SUBROUTINE    MTRXSF  MTXSOOIO 

C  HV0SM-RD2    VERSION  MTXS0020 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION  MTXS0030 

COMMON/lNPT/PHIO,THETAOfPSIO,PO,OOtRO,XCOP,YCOP,ZCOP,UO»VO,WOt  MTXSCX)40 

1  A,B,DEL10,DEL20fDEL30»PHIRO,DEL10D,DEL20D,DEL30D,  MTXS0050 

2  PHlRODtTF.TRtZFtZR.RHOf AKRStXMURt  MTXS0060 

3  XMS,XMUF,XIX,XIY,XIZ,XIXZ,CF,AKF,XLAMF,OMEGFtCFP,EPSF,MTXS0070 

4  RF,CRfAKR,XLAMR,OMEGRtCRP»EPSRfRRtTSfTHMAXtDTCOMP,TOf    MTXS0080 

5  Tl,DTCMPl,DTPRNTtMODE,EBAR,EMtAAA,HMAX,HMIN,BET,Gt  MTXS0090 

6  HED{36),DADE(3}»XIR,Xl,yi,Zl,X2,Y2,Z2,PHIC(50),DELB,       MTXSOIOO 

7  DELE,DDEL,NDEL,PSIF(50),TQF(50),TQR(50),TB,TE,TINCR,       MTXSOllO 

8  NZTABtNZ5,XBDRY(4,5),PSBDRY(4,5) tYBDRY(2t5),NBX(5),  MTXS0120 

9  NBY(5)tNTBLltNTBL2,NTBL3,ZGP(2l,2l,5)  MTXS0130 
C0MM0N/INPT/XB(S»I,XE(5),XINCR(5)  ,NX  (5  )  ,YB  (  5)  ,  YE(  5)  ,YINCR  (5  )  tNYi  5  )  ,MTXS0140 

1  XXZGP5(21) ,YYZGP5(21),AMUG(5) tPSBDR0(4,5)tUVWMIN,PQRMIN    MTXS0150 

COMMON    /INTG/NEUiT,DT,VAR(50} ,DER(50)  MTXS0160 

EQUIVALENCE     (U,VAR(1))  ,(V,VAR(2)  )t ( W, VAR( 3  ) ) , (P, VAR(4 ) ), (Q , VAR ( 5 ) ) MTXS0170 

1  , (R,VAR(6)) ,(DELltVAR(7) ) , IDEL ID, VAR ( 8) ) , (D tL2, VAR (9) ),MTXS0180 

2  (DEL2D,VAR(10}),(DEL3tVAR(ll) ),(DEL3D,VAR( 12>) ,  MTXS0190 

3  (PHiR,VAR( 13))t(PHlRDfVAR(14) ),(THETTP,VAR(15) ),  MTXS0200 

4  (PHITP,VAR(16)I,|PSITP,VAR(17)),  (XCP.VARdS)),  MTXS0210 

5  (YCP,VAR(.\9)  ),(ZCP,VAR(20)  ),(PSIF1,VAR(21)  ),  MTXS0220 

6  (PSIFIDtVAR(22) )  MTXS0230 
EQUIVALENCE     (DU,DER( 1) ), (DV,DER(2) ) t ( DW,DER( 3 ) ) f (DP ,DER(4) ) ,  MTXS0240 

1  (DQ,DER( 5) ), <DRfDER{6) ) , IDDEL 1 ,DER< 7) ) , (DDEL1D,DER (8 ) IMTXS02  5C 

2  ,{DDEL2,DER(9)), (DDEL2D,DER(10) ), (DDEL3»DER(11>),  MTXS0260 

3  (DDEL3D,DERU2)  ),  (DPHIR,DER(13)),(DPHIRD,DER(14)),  MTXS0270 

4  (DTHTTP,DER(15) ), (DPHITP,DER( 16) ) ,{DPSITP,DER<17) ),  MTXS0280 
6  (DXCP,DER( 18)),(DYCP,DER(19) ) ,(DZCPrDfcR(20)),  MTXS0290 
6                                 (DPSIFI,DER(211 ),(DDPSFI,DER(22) J                                                       MTXS0300 

EQUIVALENCE     (VAR(9 ) , PHIF ) , ( VAR( 10) , PHIFD) , (DER(9), DPHI F) ,  MTXS0310 

1  (DER(IO)  .DPHIFD)  MTXS0320 

EQUIVALENCE    (VAR (13) ,DEL4) , ( VAR ( K ) ,DEL4D ) , ( DER( 13 ) ,DDEL4) ,  MTXS0330 

1  (DER(14),DDEL4D)  MTXS0340 

COMMON    /DIMV/XlP,X2PtX3P,X4P,YlP,Y2P,Y3P,Y4P,ZlP,Z2P,Z3P,Z4P,PHIl,MTXS0350 

1  PHI2,PHI3,PHI4,PSI1,PS12,PSI3,PSI4,CAYW(4),CBYW(4),       MTXS0360 

2  CGYW(4) ,ZPGI(4),THG1(4),PHGI(4),CPG(4),SPG(4) ,CTG (4 ) ,MTXS0370 

3  STG(4),CAGZ(4),CBGZ(4),CGGZ(4),D1(4),D2(4),D3(4),  MTXS0380 

4  XLM1(4) ,XLM2(4),XLM3(4),AMTX(3,3),CMTX(3,4),XGPP(4)t    MTXS0390 

5  YGPP(4» ,ZGPP(4)tDMATX(10,ll),DELTA(4),CAR(4),CBR(4),    MTXS0400 

6  CGR(4),FR(4),HI(4) ♦FC(4),TI(4),AX(4),BX(4),CX(4),  MTXS0410 

7  CTXG(4) ,UG(4),STXG(4),AY(4),BY(4),CY(4),CPYG(4),  MTXS0420 

8  SPYG(4) ,VG(4),PSIIP(4),PHICI(4),CAC(4),CBC(4),CGC(4),MTXS04  30 

9  FCXU(4),FCYU(4),FCZU(4),FS(4),CAXW(4) ,CBXW(4) ,CGXW(4 )MTXS0440 
COMMON    /DIMV/AS(4),BS(4} ,CS( 4) ,CAS (4) ,CBS(4)  ,CGS(4 ) ,BETP (4 ) ,  MTXS0450 

1  BETBR(4),FSXU(4),FSYU(4) ,FSZU(4),FRXU(4),FRYU(4),  MTXS0460 

2  FRZU(4) ,FXU(4),FYU(4) ,FZU(4) ,SI(4),F1FI(2),F1RI(2),       MTXS0470 

3  F2FI(2),F2RI(2),CAH(4),CBH(4) ,CGH(4)  MTXS0480 
DIMENSION   XP(4) ,YP(4),ZPC4),PHII(4),PSII(4)  MTXS0490 
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DATE       01/12/76 


TIME       1729 


EQUIVALENCE     (XP(1),X 

1  (PSIKI) 

COMMON    /COMP/SUMM,TH 

1  &AM6,GAM 

2  TF02,T1 

3  BC2APB, 

4  XIZR,RT 

5  ZRD3,ZR 

6  ,TANTP,S 

7  SNPSS.T 

8  SFYURtS 

9  ANG2,CP 
COMMON    /C0MP/TRH,D1S 

1  ZETA3D, 

2  TERM2»S 

3  HCAH3,H 

4  ,PHIRD2, 

5  XX2,YY1 
DIMENSION  HCAH14),HC 
EQUIVALENCE  (HCAH(l) 
COMMON/ADTNL/    Ul,U2t 

1  XIYP,S 

2  SLOPEl 
DIMENSION  UI (4) ,VI(4 
EQUIVALENCE  (UI(1),U 
DIMENSION  APITCHU) 
EQUIVALENCE  (APITCH( 
COMMON  /INSUS/  XIF,R 

1  AKDS, 

2  NCAMF 
COMMON  /SUSCMP/  XMUR 

1  RHF2 

2  DD3M 

3  PHIF 

4  PHI3 

5  DTDD 


CALL  CLfcAP.(DMATX(l,l),DMATX(lO,ll)) 


;1P),(YP(1),Y1P),(ZP(1),Z1P|,(PHII( 
,PSI1) 

IETNtPHlNtPSIN,PIfRAD,GAMl,&AM2,GAM; 
l7,GAMa,GAM9,THETT,PHlT,PSIT,ZR0,TR( 

ZtRH02tRH0MUR,AMUF,BMUR,ZPRtTM4,RHI 
RFTF  .T5:n?.RRT<;  -RRnMllR  .XMllFOP  -AXMFn 


UPDATE    RECORD 


DtPHIl), 


3tGAM4,GAM5 

02, 

MR2, A02APB, 

2,XMTF0A, 

D2,D1MD2, 

1M2,RPR,PHR 

PS.SNTS, 

XUtSFYUF, 

SINPH,ANG1, 

6,TX,TY,TZ 

A4D,ZETA3, 

CGH4tTERMl, 

HCAH1,HCAH2 

,WQ,PO,PHIR 

Y,IX,IY,XX1 

LL 

CGHl) 

TCH4, 


DMATX(1,1)  = 

DMATX(1,5)  = 

DMATX{1,6)  = 

DMATX(2,2)  = 

DMATX(2f4)  « 

DMATX(2,6)  » 

DMATX(2f8)  = 
DMATX(2,10)= 

DMATX(3,3)  = 

DMATX(4,2)  = 

DMATX(4,4)  = 

DMATX(4,6)  = 

DMATX(4,8)  = 


SUMM 

GAM2 

RHOMUR*PHIR+RHFMUF*PHIF 

SUMM 

-GAM2 

GAMl 

-RHFMUF 

-RHOMUR 

XMS 

-GAM3 

XIX+XIXP 

-XIXZ-XIXZP 

RHFMUF* ZFDl 


MTXS05  00 
MTXS05  10 
,MTXS05  20 
MTXS0530 
MTXS0&40 
MTXS05  3.C 
MTXS0f)60 
PMTXS0570 
MTXS0580 
MTXSO590 
MTXS06  00 
MTXS06  10 
MTXS06  20 
MTXS06  30 
tMTXSObA^O 
2MTXS06  50 
♦MTXS06  60 
MTXS06  70 
MTXS06&0 
MTXS06S0 
MTXS0700 
M1XS0710 
MTXS0720 
MTXS07  30 
MTXS0740 
MTXS0730 
MTXS0760 
MTXS07  70 
,MTXS0780 
MTXS07  90 
MTXS08  00 
MTXS08  10 
MTXS0820 
MTXS08  30 
MTXS0ti40 
MTXS08  50 
MTXS0&60 
MTXS08  70 
MTXSOBeO 
MTXS0890 
MTXS0900 
MT  XS  09  10 
MTXS09  20 
MTXS0930 
MTXS0940 
MTXS09  50 
MTXS09  60 
MTXS0970 
MTXS09  80 
MTXS0990 
MTXSIOOO 
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DATE       01/12/76 


TIME       1729 


UPDATE    RECORD 


DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
GCTSP 
GCTCP 
DMATX 


(4 
(5 
(5 
(5 
(6 
(6 
(6 
(6 
(6 
(6 
(6 
(7 
(7 
(7 
(7 
(7 
(8 
(8 
(8 
(8 
(8 
(8 
(8 
(9 
(9 
(9 
(9 
(9 


10)  = 
1)    = 

5)  = 

6)  = 

1)  = 

2)  = 

4)  = 

5)  = 

6)  = 
81  = 
10)  = 

3)  = 

4)  = 

5)  = 

7)  = 

8)  = 

2)  = 

3)  = 

4)  = 

5)  = 

6)  = 

7)  = 

8)  = 

3)  = 

4)  = 
b)    = 

9)  = 

10)  = 
(10,2) 
(10,3) 
(10,4) 

(  10,5) 
(10,6) 
(10,9) 
(10,10) 
=    G*AM 
=    G*AM 
(1,11) 


DMATX(2,I1) 


DMATX 
DMATX 


(3,11) 
(4,11) 


DMATX(5,11) 


RH0MUR*ZRD3 

GAM2 

XIY+XIYP 

-XIYZP 

RHFMUF*PHIF 

GAMl 

-XIXZ-XIXZP 

-XIYZP 

XlZ  +  XIZP-fXI 

-RHFMUF*A 

BROMUR 

XMUF 

-RHFMUF*PHI 

-AMUF 

XMUF 

-RHFMUF*PHI 

-RHFMUF 

-RHFMUF*PHI 

XIF+RHFMUF* 

AMUF*RFPF 

-RHFMUF*A 

-RHFMUF *PHI 

RF2MFI 

XMUR 

-RHOMUR+PHI 

BMUR 

XMUR 

-RHOMUR*PHI 
=    -RHOMUR 
=    -RHOMUR*PH 
=    XIR+RHOMUR 
=    -BMUR+RPR 
=    BROMUR 
=    -RHOMUR*PH 
=    RHMR2I 
TX(3,2) 
TX(3,3) 
=    SUMM*(VR-W 

*PQ+GAM1*(Q 

RPHFD)-^SFX 

=    SUMM*(WP-U 

-RHOMUR*PHI 

PHIFD2)*SF 

=    XMS*(UO-VP 

=    GAM3*(UR-W 

♦(XIY-XIZ+X 

PHIRD2*RHF 

=    GAM2*(VR-W 

-GAM7*Q-2.0 

♦RHOF*AMUF) 

-2.0*RHFMUF 


♦RHOMUR*PHIR 

-RHFMUF*A+RHOMUR*B 

R+XIF 


F 

ZFDIRF 


IR 

*ZRD3R 


IR 


0-GSTH) 

2*R2)-G 

U+SFXS 

R+GCTSP 

R*(P2+R 

YU+SFYS 

♦GCTCP) 

P-GCTSP 

IXP)*OR 

MUF*PHI 

Q-GSTH) 

*0*(RHO 

♦(Q2+R2 

♦ZFDIRF 


-GAM2*PR-»-(RH0MUR*PHIR+RHFMUF»PHIF) 
AM6*Q-2.0*( RHOMUR *RPHRD ♦RHFMUF* 

) ♦GAM6*P-GAM1*PQ-6AM2*QR 
2+PHIRD2)-RHFMUF*PHIF*( P2+R2+ 

-SFZl+SFZS 

)+(XIXZ+XIXZP)*PQ-<;AM7*P 

-GAM4* ( P2+R2 ) +RHOMUR*PH IR»ZRD3* 

F*ZFD1*PHIFD2*SNPS*SNPU 

+XIXZ*(R2-P2)+(XIZ-XIX-XIYP)*PR 

F*WFMF+RH0*TG61)+(XIXZP -BROMUR 

)-XIYZP*P0-2,O*RHOMUR*ZRD3R*RPHRD 

♦RPHFD+SNTU+SNTS 


MTXSIOIO 
MTXS1020 
MTXS10  30 
MTXS1040 
MTXS10  50 
MTXS1060 
MTXS1070 
MTXS10  80 
MTXS1090 
MTXSllOO 
MTXSlllO 
MTXS1120 
MTXS1130 
MTXSllAO 
MTXS1150 
MTXS1160 
MTXS1170 
MTXS1180 
MTXS1190 
MTXS12  00 
MTXS1210 
MTXS12  20 
MTXS1230 
MTXS12  40 
MTXS1250 
MTXS12  60 
MT  XS 12  70 
MTXS12  80 
MTXS12V0 
MTXS1300 
MTXS1310 
MTXS1320 
MTXS1330 
MTXS1340 
MTXS1350 
MTXS1360 
MTXS1370 
MTXS13  80 
MTXS1390 
MTXS1400 
MTXS1410 
MTXS1420 
MTXS14  30 
MTXS1440 
MTXS1450 
MTXS14  60 
MTXS1470 
MTXS1480 
MTXS1490 
MTXS1500 
MTXS1510 
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DMATX{6,11)  =    GAM1*(WP-UR+GC1^SPJ*(XIX-XIY-GAM5»*PQ  MTXS1520 

1  -(XlXZ+XIXZP-eROMUR+AMUF*RHOF)*0R-i-GAM8»Q-»-XIYZP*PR  MTXS1530 

2  ♦GAM9*P+XMUR*RPR*(VR-WQ-2.0*RH0*RPHRD-B*(Q2-P2  MTXS1540 

3  -PHIRD2)-GSTH)*XMUF*RFPF*(VR-WQ-2.0*RH0F*RPHFD  MTXS1550 

4  ♦A*(Q2-P2-PHIFD2)-6STH)+SNPSS+SNPSU  MTXS1560 
DMATXC7,11)  =    XMUF*(UQ-VP+RH0F*PHIFD2+2,0*P*RH0F*PHIFD-A*PR  MTXS1570 

1  ♦RFPF*0R+ZFD1RF*(P2+Q2)*GCTCP)  MTXS1580 

2  ♦FZU(1)+FZU(2)+SI< 1)+SI(2)  MTXS1590 
DMATX(8,11)  =    RHFMUF*(UR-WP-2.0*P*DEL1D+2.0*P*RFPF*PHIFD+A*PQ  MTXS1600 

1  +RFPF*(P2+R2}*ZFD1RF*QR-GCTH*SIN(PHIT*PHIF) )  KTXS16  10 

2  +RHFMUF*PHIF*(VP-UQ-2.0*P*RH0F*PHIFD*A*PR  MTXS1620 

3  -ZFDlRF*(P2+02))-XIF*PHlF*(R2-Q2)-XIF*QR+SNPF  MTXS1630 
DMATX(9,11)  =    XMUR*(U0-VP+RH0*PHIRD2+2.0*P*RH0*PHIRD+B*PR  MTXS1640 

1  ■fRPR*0R-»-ZRD3R*(P2+02)+GCTCP)  MTXS1650 

2  ♦FZU(3)+FZU('*)+SI(3)  +  SI(4)  MTXS1660 
DMATX( 10,11 )=    RH0MUR*(UR-WP-2.0*P*DEL3D+2.0*P*RPR*PHIRD-B*PQ  MTXS1670 

1  -»-RPR*(P2+R2»*ZRD3R*QR-GCTH*SIN(PHIT+PHIR)  )  MTXS16&0 

2  ♦RH0MUR*PHIR*(VP-UQ-2.0*P*RH0*PHIRD-B*PR  MTXS1690 

3  -ZRD3R*{P2+G2))-XIR*PHIR*(R2-Q2)-XIR*QR+SNPR  MTXS1700 
RETURN  MTXS1710 
END  MTXS1720 
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DATE       01/12/76 


TIME       1729 


UPDATE    RECORD 


EQUIVALENCE 


EQUIVALENCE 


EQUIVALENCE 


SUBROUTINE    NLDFL  NLDFOOIO 

C  HV0SM-RD2    VERSION  NLDF0020 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION  NLDF0030 

COMMON    /INTG/NE0,T,DT,VAR(50»,DER{50)  NLDF0040 

EQUIVALENCE  (U t VAR( 1 ) ) t ( V.VAR (2 ) ) , ( W, VAR( 3 ) ) , (P, VAR (4)  ),(Q,VAR(5) )NLDF00  50 
(R»VAR(6}) v(DELltVAR(7))»(DELIDtVAR(8) ) t ( DEL2r VAR (9) ) ,NLDF0060 

(DEL2D,VAR(10)),(DEL3,VAR(11»),(DEL3D,VAR( 12)>,  NLDF007Q 

(PHIR,VAR(13) ),CPHIRD,VAR(14) ) , ( THETTP , VAR ( 15) ) t  NLDF0080 

(PHITP,VAR(16)),(PSITP,VAR(17) ),(XCP»VAR(18)),  NLDF0090 

(YCP,VAR(19) ),<ZCPtVAR(20>),(PSIFI,VAR(21) ),  NLDFOIOO 

tPSIFID,VAR(22))  NLOFOllO 

(DUrDERd)  ),  IDV,DER(2)  )  ,  (  DW,DER  (  3  )  )  ,  (DP,DER(4)  )  ,  NLDF0120 
(DO,DER<  5) ),  (DR,DER(6) ) , (DDEL 1 ,DER( 7) » , (DDELID ,DER( 8 ) JNLDF0I30 

(DDEL2,DER(9) ) » (DDEL2D t DER ( 10) ) , ( DDEL3 ,DER ( 1 1) ),  NLDF0140 

(0DEL3DtDER< 12)), (DPHIR,DER( 13 ) ) , ( DPHIRD.DER ( 14) ) ,  NLDF0150 

<DTHTTP, OER( 15) ) , (DPHITP.DER ( 16) ) , ( DPSITP, DER( 17) ) ,  NLDF0160 

{DXCP,DER(18  )),(DYCP»DER(19)),(DZCP.DER(20)),  NLDF0170 

(DPSIFI,DER(21)),(DDPSFI,DER(22) )  NLDF0180 

(VAR(9),PHIF),(VAR(10),PHIFD),(DER(9),DPHIF),  NLDF0190 

(DER(IO) ,DPHIFD)  NLDF0200 

(VAR (13) ,DEL4),(VAR(14),DEL4D),(D£R( 13) ,DDEL4) ,  NLDF0210 

1  (DER(14) ,DDEL4D)  NLDF0220 

COMMON    /INPT2/    YBPO, ZbT  ^,ZBBP,XVF, XVR ,YV, ZVT , ZVB ,AKV,S IGR( 1 1) ,  NLDF0230 

1  SET, CONS, AMUB,EPSV,EPSB,XM,EPST,DDD,INDB,DELYBP,  NLDF0240 

2  DELTb,XlNPT(100)  NLDF0250 
COMMON/BAR  I ER/FN,IBHIT,JBHIT,XCPNP( 3) , YCPNP(3 ) , ZCPNP( 3 ) , XCPN( 3) ,  NLDF0260 

1  YCPN(3),ZCPN(3),AAI(17),BB1(17),CC1( 17),RR1(17),  NLDF0270 

2  AA2(17),BB2(17),CC2(17) ,RR2(17),CAB,CBB,CGB,CABT,  NLDF0280 

3  CBBT,CGBT,RB,XBT,YBT,ZBT,XBB,YBB,ZBB,RR2P(17),  NLDF0290 

4  YBPT,XNNC17J,YNN(17) ,ZNN(17),XMTX(3,4),IDPT(17),IPT  NLDF0300 

5  ,ININD,UNP(17),VNP(17),WNP(17),VMAX(4),I1,I2,I3,I4,  NLDF0310 

6  XCPTP,YCPTP,ZCPTP,XCPBP,YCPBP,ZCPBP,YCPMP,AINTI,  NLDF0320 

7  AINTP,SXR,SYR,SZR,SDEN,XRI,YRI,ZRI,FRICT,DELBB,VTAN,NLDF0330 
B  FNP,FB,URP,VRP,WRP,EPSL,XLDP,DELX,VL,NCYC,EEE,ENR&Y,NLDF0340 
9  NSEG,YBPTP ,PCAB,PCBB,PCGB,PPRB,CAB1,CBB1,CGB1,  NLDF0350 
A  RB1,NUNLD,NLDCTR,VDEF,PVDEF,PSZR,XF,DELBBP,  NLDF0360 
B                                     SW0RK,SPBIGY,DISS,IPLN,1L0AD  NLDF0370 

DIMENSION    INDXPT(4)  NLDF0380 

EQUIVALENCE     ( INDXPT( 1) ,1 1 )  NLDF0390 

REAL*8    ALIM1/»UPPER»/,ALIM2/»L0W£R»/,XLIM  NLDF0400 

1    XLP    =    VMAXll  NLDF0410 

VSIGN    =    0.0  NLDF0420 

VMAXll    =    (YBPT-YBPTP)/DT  NLDF0430 

VMAX(1>    =   VMAXll  NL0F0440 

IF(VMAX(1))200,201,202  NLDF0450 

200  VSIGN    ~    -1.0  NLDF0460 
GO    TO    203  NLDF0470 

201  VSIGN    =    0.0  NLDF0480 
00    TO    300  NLDF0490 


202 
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202 

VSIGN    =    1.0 

203 

XL    =    DELBB 

EPSP    '    EPSL 

XVLP    =    VL 

2 

VL    =    XL-EPSL 

IF(VL.GT.O.O)    GO   TO    3 

FB    =    0.0 

GO    TO    13 

3 

IF(VMAXll.LT.O.O)    GO    TO    9 

IF(IL0AD.EQ.1.AND.VSIGN.E0.1.0)G0   TO    6 

IF(IL0AD.EQ.1.AND.VSIGN.NE.1.0)G0    TO    10 

FB    =    SIGR(l) 

XX    =    VL 

YY    =    VMAX(l) 

4 

DO    5       1=2,6 

J   =    1*5 

212 


90 


FB    =    FB  +  SIGR(I  l*XX+SIGR( J)*YY 

XX    =    XX*VL 

YY    =    YY*VMAX(1) 

CONTINUE 

ILOAD    =    0 

GO    TO    13 

IF(XF.GT.O,0)GO    TO    7 

EPSL    =    SET*DELX+EPSL 

DELX    =    0.0 

GO    TO    8 

XX    =    VL 

YY    =    (SET*DELX+VL)/2.0 

CALL    P0LY(SIGR(l),SIGR(2)fXX,YY,FB) 

EPSL    =    YY+EPSL 

ILOAD    =    0 

NCYC    =    NCYC+1 

GO    TO    2 

1F(IL0AD.EQ.0)G0    TO    212 

IF<  VSIGNjgE.1.0)G0   TO    10 

DELX    =    VL 

FUM    =    FB 

Gil    =    SET-1.0 

GI3    =    &I1**3*0ELX 

FDL    =    FUM*DELX 

EEE    =    EEE   -    EN6Y 

XVLP    =    VL 

CDO    =    SET*{FDL*(SET**2*SET-2.0)+6.0*EEE)/GI3 

CDl    =    -2.0*(FDL*{2.0*SET+1.0)*GI1*3.0*EEE*(SET*1.0) )/( DELX*GI3> 

CD2    =    3.0*(FDL*GI1+2.0*EEE)/(DELX**2*GI3) 

ILOAD    =    1 

TMP    =    Fb*0ELX*{1.0-SeT) 

IF(TMP.LE.3.0*EEE)    GO    TO    91 

RTMP    =    1.005*C0NS*TMP/(3.0*EEE) 

ETMP    =    1.005*TMP/3.0 

XLIM    =    ALIM2 


NLDF0500 
NLDF0510 
NLDF05  20 
NLDF05  30 
NLDF05  40 
NLDF0550 
NLDF05  60 
NLDF05  70 
NLDF05  80 
NLDF05  90 
NLDF06  00 
NLDF0610 
NLDF0620 
NLDF06  30 
NLDF06  40 
NLDF06  50 
NLDF06  60 
NLDF06  70 
NLDF06  80 
NLDF06  90 
NLDF07  00 
NLDF0710 
NLDF0720 
NLDF0730 
NL0F0740 
NLDF0750 
NLOF0760 
NL DP  07  70 
NLDF07bO 
NLDF0790 
NLDF08  00 
NLDF0810 
NLDF0a20 
NLDF08  30 
NLDF08  40 
NLDF0850 
NLDF08  60 
NLDF08  70 
NLDF08  80 
NLDF0890 
NLDF09  00 
NLDF0910 
NLDF09  20 
NLDF0930 
NLDF0940 
NLDF09  50 
NLDF0960 
NLDF09  70 
NLDF09  80 
NLDF09  90 
NLDFIOOO 
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GO    TO    9L 

91  IF(TMP.GE.2,0*EEE)    GO    TO     10 
RTMP    =    .995*C0NS*TMP/(2.0*EE£) 
ETMP    =     •995+TMP/2.0 

XLIM    =    ALIMI 

92  IF(NCYC.GT.O)    GO    TO    93 
TMPR    =    CONS 

CONS    =    RTMP 

EEE    =    ETMP 

WRIT£( 6,1000)     TMPR,CDNSfT 

1000  FORMAT (  19H0CCNS    CHANGED    FROM    ,E12,5,4H    TO    ,E12.5,8H    AT    T    =     ,F9,6) 
GO    TO    90 

93  EEE    =    ETMP 
WRITE(6,1001 )    XLIM,T 

1001  F0RMAT(27H0C0NSERVED    ENERGY    RESET    TO    iA6,14H    LIMIT    AT    T    =    tF9.6) 
GO    TO    90 

10  IF{VL-SfcT*DELX.GT.O.O)    GO    TO    12 

11  FB    =    0.0 

DELBB    =    EPSL+SET*DELX 
GO    TO    13 

12  FB    =    CD0+CD1*VL  +  CIJ2*VL*«2 
FB    =    AM/X1(FB,0.0) 

13  LNGY    =     (XF*FB)*(Vl ♦EPSL-EPSP-XVLP)/2.0 
fcNRGY     -    ENRGY+tNGY 
IF(VMAXll.LT.O.O)    GO    TO    14 

EPL    =     ENGY 
EMI     =    0.0 


GO    TO    13 

14 

EMI    =    ENGY 

fcPL    =    0.0 

15 

EEE    =    EEE+C0NS*EPL+£M1 

300 

XF    =    FB 

RETURN 

ENTRY    NLDFRC 

16 

WL    =    DELBR-EPSL 

IF(ILUAD.NE.O)GO    TO    19 

XX    =    WL 

YY    =    VMAX(l) 

FB    =    SIGRd) 

17 

DO    18    1=2,6 

J    =    l*b 

FB    =    FB*SIGR(I)*XX+SIGR( J)*YY 

XX    =    XX*WL 

YY    =    YY*VMAX(1) 

18 

CONTINUE 

GO    TO    20 

19 

IF(WL-SET*DELX.GT.O.O)GO    TO    100 

FB    =    0.0 

RETURN 

100 

Fb    =    CD0+CD1«WL+CD2*WL**2 

20 

FB    =    AMAX1(FB,0.0) 

NL  DF  10  10 

NLDF1020 
NLDF10  30 
NLDF1040 
NLDF1050 
NLDF10  60 
NLDF1070 
NLDF1080 
NL  DF  10  90 
NLDFllOO 
NLDFlllO 
NL0F1120 
NLDF1130 
NLDF1140 
NLDF1150 
NLDF1160 
NLDF1170 
NLDF1180 
NLDF1190 
NLDF1200 
NLDF12  10 
NLDF1220 
NLDF1230 
NL  DF  12  40 
NLDF12  50 
NLDF12  60 
NLDF12  70 
NLDF12  80 
NLDF1290 
NLDF1300 
NLDF1310 
NLDF1320 
NLDF1330 
NLDF1340 
NLDF1350 
NLDF1360 
NLDF13  70 
NLDF1380 
NLDF13P0 
NLDF1400 
NLDF1410 
NLDF1420 
NLDF1430 
NLDF1440 
NLDF1450 
NLDF1460 
NLDF1470 
NLDF1480 
NLDF1490 
NLDF1500 
NL0F1510 
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NLDF15  20 
NLDF15  30 
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TIME       1729 


UPDATE    RECUHD 


SUBROUTINE  OUTPUT (IN 
HV0SM-RD2  VE 
REVISED  CCTO 
KV0SH~RD2  V£ 
REVISED    OCTO 

COMMON/HEAD/  VHE0(20 
1  NPAGE(2 

COMMON/1 NPT/ PHI 0, THE 

1  A, B, DELI 

2  PHIROCT 
i  XMS,XMUF 
^  RF,CR»AK 
.b  TltDTCMP 
6  HfcD(36), 
/  uELEtLDE 
a  NZTAb.NZ 
9                                   NB  Y  (  5  )  *  N 

CO "^  MON  /  ]  l-i?  T / XB  {  ^  5  ,  X  t 

i  XX?.GP^(2i) 

COMMON    /INTG/NEQ»T,D 

EQUIVALENCE     (UtVARd 

1  »(R,VAR{6 

2  (DEL2D,V 

3  (PH1R,VA 
H  (PH1TP»V 

5  (YCPvVAR 

6  (PSIFID, 
EQUIVALENCE  (DU,DER( 

1  (DQ,DER( 

2  ,(DDEL2,D 

3  (DDEL3Dt 

4  (DTHTTP, 

5  (OXCP.DE 

6  (DPSIFI, 
EQUIVALENCE     (VAR(9), 

1  (DER(IO) 

EQUIVALENCE    (VAR(13) 

1  (DER(l^) 

COMMON    /UIMV/X1P»X2P 

1  PHI2,PH 

2  CGYW(4) 

3  STG(4), 

4  XLM1(4) 

5  YGPP(4) 

6  CGR(4)t 

7  CTXG(4) 

8  SPYG(4) 

9  FCXU(4) 
COMMON    /DIMV/AS(4) ,B 


D) 

RSION 

hBk    1975 

RSION 

BER    1975       CALS 

),CHED(20),GHE 

0) 

TAOtPSIO,PO,QO 

0,DEL20tDEL30, 

F,TR,ZFtZRtRHO 

,XlX,XlY,XIZfX 

R.XLAMR.OMEGRt 

1,DTPRNT,M0DF» 

DADE(3) ,XIR,X1 

L,ND£L,PSIF(50 

3, XB DRY (4, 5) ,P 

TEL1,NTBL2,NTB 

(5  ),XINCR(5J  ,N 

tYYZGP5(21),AM 

T,VAR(50) ,OER( 

n  ,(  V,VAR(2)  ), 

)),(DEL1,VAR(7 

AR(10)),(DEL3, 

R{  13) ),(PHIRD, 

AR(16)),CPSITP 

(  19)  )  ,(ZCPtVAR 

VAR( 22) ) 

1) )« (DVfDER<2) 

5)  )t (DRtDER(6) 

ER(9)), (DDEL2D 

DER( 12))t(DPHI 

DER( lb))t (DPHI 

R(18)), (DYCPfD 

UERI211),(DDPS 

PH1F),(VAR<10) 

,DPHIFD) 

,DEL4),(VAR(14 

,DDEL4D) 

,X3P,X4P,Y1P,Y 

I3,PHl4,PSIlfP 

tZPGI(4),THGI( 

CAGZ(4)«CBGZ(4 

,XLM2K),XLM3( 

tZGPP<4),DMATX 

FR(4),HI(4) ,FC 

fUG(4),STXG(A) 

,VG<  A),PSIIP{4 

,FCYU(4)tFCZU( 

S(4) ,CS(4),CAS 


CALSPAN    CORPORATION 


PAN    CORPORATION 

0(20) t SHED (20) ,THED(20), 


,RO,XCO 

PHIRO,D 

,AKRSf X 

iXZtCFt 

CRP,EPS 

EBARtEM 

fYl,Zl, 

),TQF(5 

SBDRY(4 

L3,Z&P( 

X(5),YB 

U&(5)»P 

50) 

(W,VAR( 

)  )f (DEL 

VAR(ll) 

VAR(14) 

,VAR(17 

(20)), ( 


P,YCOP,ZC 

ELlODtDEL 

MUR, 

AKF,XLAMF 

R,RR,TS,T 

♦AAA,HMAX 

X2,Y2,Z2, 

0),TCR(50 

t5) jYBDRY 

21,21,5) 

(5),Yt(5) 

SBDR0{A,5 


OP,UO,VO,WO, 

20D,DEL30D, 

,OME&F,CFP,EPSF 

HMAX,DTC0MP5T0, 

,HMIN,BET,G, 

PHIC(50),DELB, 

),Tfa,TE,TINCR, 

(2,5 ),NBX{5), 

,YINCR(5) ,NY(5) 
)  ,UVWMIN,PQRMIN 


3)),(P,VAR(4) ),(Q,VAR(5) 
1D,VAR(8) ) ,(DEL2,VAR(9) ) 
) ,(DEL3D,VAR(12)), 
),(THETTP,VAR(15) ), 
) ),(XCP,VAR(1&)), 
PSIFI,VAR(21) ), 


),(DW,0ER(3)),(DP,DER(4) ), 
),(DDEL1,DER(7)) , (DDEL1D,DER (8 ) 
,DER(10) ),(DDEL3tDER(ll) ), 
R,DER( 13)),(DPHIRD,DER(14)), 
TP,DER(16)),(DPSITP,DER(17)), 
ER(19)),(DZCP,DER(20)), 
FI,DER(22) ) 
,PHIFD) ,(DER(9),DPHIF), 

),DEL4D)  ,(DER(13),0DEL4), 


2P,Y3P, 
SI2,PSI 
4),PHGI 
)»CGGZ( 
4),AMTX 
(10,11) 
(4),TI( 
, AY  ( 4  )  , 
),PHICI 
4),FS(4 
(4), CBS 


Y4P,Z1P,Z2P,Z 
3,PS14,CAYW(4 
(4),CPG(4),SP 
4),D1(4),D2(4 
(3,3),CMTX(3, 
,DELTA(4) ,CAR 
4),AX(4),BX(4 
BY(4),CY(4),C 
(4),CAC(4),CB 
),CAXW(4) ,CBX 
(4),C&S(4),BE 


3P,Z4P,PHI1 

),CBYW(4), 

G(4) ,CTG(4) 

),D3(4) , 

4),XGPP(4), 

(4),CBR(4), 

),CX(4), 

PYG(4), 

C(4I,CGC(4) 

W(4)  ,CGXW(4 

TP(4), 


OUTPOOIO 
OUTP0020 
0UTP00  30 
0UTP0040 
0UTP00  50 
0UTP00  60 
OUTP00  70 
0UTP00  60 
GUTP00  90 
OUTPOIOO 

,0UTP01  10 
0UTP0120 
0UTP0130 
CU IP 01 40 
0UTP0150 
0UTP0160 
DUTPOiTO 

,DUTH{J1H0 
CUTPOiVO 
0UTP02  00 

)0UTP021C 

,0UTP0220 
0UTP02  30 
OUTP02  40 
0UTP02  50 
GUTP02  60 
DUTP02  70 
0UTP02  80 

)CUTP02  90 
OUTP0300 
0UTP0310 
0UTP0320 
0UTP03  30 
OUTP0340 
0UTP0350 
0UTP03  60 
0UTP03  70 
CUTP0380 

,0UTP03  9O 
0UTP0400 

,0UTP0410 
0UTP0420 
0UTP0430 
0UTP044O 
0UTP0450 
OUTP0460 

,0UTP04  70 

)OUTP0480 
0UTP04  90 
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DIMENS 
EQUIVA 

COMMON 


1 
2 
3 
4 
5 
6 
7 
6 
9 
( 
1 
2 
3 

5 


COMMON 


DIMENS 
EQUIVA 
COMMON 


LOGICA 
COMMON 


DIMENS 
EQUIVA 
DIMENS 
EQUIVA 
COMMON 


1 
2 

3 
4 
5 
6 
7 
8 
9 
A 
B 


DIMENS 
EQUIVA 
COMMON 


BETBR(4),FSXU(4) ,FSYU(4) tFSZU(4) , FRXU (4) , FRYU (4) ,     0UTP0500 

FRZU(4)  ,FXU(4),FYU(4) , FZU(4) , SI ( 4 > , FIFI (2  ) , FIRI ( 2 ) ,   OUTP0510 

F2FI(2) ,F2RI(2),CAH(4),CBH(4),CGH(4)  0UTP05  20 

ION   XP(4),YP(4),ZP(4),PHII(4),PSII(4)  OUTP0530 

LENCE    (XP(1),XIP), (YP(1),YIP),(ZP(1),Z1PI,(PHII( l),PHIl),  0UTP0540 

(PSII(l) ,PSI1)  0UTP0550 

/COMP/SUMMtTHETN,PHINtPSIN,PIfRA0,GAMl,GAM2,GAM3,GAM4,GAM5,0UTP05  60 

GAM6,GAM7,GAM8,GAM9,THETT,PHIT,PSIT,ZR0,TR02,  0UTP05  70 

TF02,TIZfRH02fRH0MURtAMUF,BMUR»ZPR»TM4,RHMR2f A02APBt    0UTP05  80 

B02APB,RFTF ,TS02 ,RRTS ,BR0MUR,XMUF02f AXMF02* XMTF04,  0UTP0590 

XIZR,RTR,RHMR2I,XIXP»XIZP,XlXZPtXIYZP,DlPD2,DlMD2,  0UTP0600 

ZRD3f ZRD3Rt  ZFD3R t ZFD12 tTI Z2» TG61 , DD1P2,DD1M2,RPR,PHRP0UTP06 10 

,TANTP,SPHTP,CPHTP»SECTP,SFXS,SFYS,SFZS,SNPS,SNlSf  0UTP06  20 

SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYU,SFXU,SFYUFt  0U7P06  30 

SFYURfSFZUtCOSTH,SINTH,COSPS,SINPS,COSPH,SINPH,ANGl ,    0UTP0640 

ANG2tCPHI,SPHl,CPSItSPSI,PltP7,P3,P4,P5tP6,TX,TY,TZ       0UTP06  50 

/C0MP/rRHfDISTX,DISTY,DISTD,DISTS,D21,ZETA4,ZETA4D,ZETA3,       0UTP0660 

ZETA3D,SFZ1 ,SNPU,SNTU,HCGH1,HCGH2,HCGH3,HCGH4,TERM1,    0UTP06  70 

TERM2»SNPSUtSNPR,HCBHl,HCBH2»HCBH3,HCBH4,HCAHl,HCAH2f0UTP06  80 

HCAH3,HCAH4,UQtWP,URtQR»VP,PR,P2,Q2,R2,VR,WQ,PQ,PHIR20UTP06  90 

,PHIRD2tRPHRD,GCTH,GSTH,GCTSP,GCTCP,XXX,YYY,lX,IY,XXl,0UTP0700 

XX2,YYl,YY2,THGltTHG2»PHGltPHG2,ZZliZZ2tLLL  0UTPO710 

ION    HCAH(^),HCBH(4),HCGH(4)  UUTP0720 

LtNCE     JHCAH(l) ,HCAH1), (HCBH(l)tHCBHl),(HCGH(l),HCGHl )  0UTP0730 

/CUMPN/    FRSP(4),FRCP(4),ICBH1T,JCBHIT,  0UTP0740 

DPSINT,TANPCl,TANPC2,PHIClRtPHlC2RtAMUCMP,PHllDf  0UTP0750 

PHI2D,LCBl(4l,LCB2(4J,IHITtAJMTX(3,3),BMTX(3t3),  0UTP07  60 

SFRX(4),SFRY(4),SFRZ{4),TlPSItT2PSI,XMUGl(4)  0UTP0770 

L    LCB1,LCB2  0UTP0780 

/AOTNL/    Ul,U2tU3,U4,VltV2,V3,V4,Wl,W2fW3,W4,  0UTP0790 

XIYP,SPHIC  fCPHICf APTCHl,APTCH2f APTCH3,APTCH4,  0UTP0800 

SL0PE1,SL0PE2,XTRA(300)  0UTP06  10 

ION    UI(4»,VI {4),WI (4)  0UTP0820 

LENCE     (UKl)  tUl)  t(VI(l),Vl),  (WI(1),W1)  0UTP0830 

ION    APITCHCA)  DUTP0840 

LENCE     (APITCHC 1) ,APTCH1)  0UTP0850 

/BARIER/FNfIBHITtJBHITtXCPNP(3)fYCPNP(3),ZCPNP{3),XCPN(3),       0UTP086O 

YCPN(3),ZCPN{3),AA1(I7),BB1(17),CC1(17),RR1(17),  OUTPObTO 

AA2(17),BB2{17),CC2(17),RR2(17»,CAB,CBB,CGB,CABT,         OUTPOBSO 

CBBTtCGBT,RB,XBT,YBT,ZbT,XBBfYBBfZBB,RR2P< 17),  0UTP08  90 

YBPT,XNN(17),YNN(17) ,ZNN(17) ,XMTX (3,4) ,1  DPT ( 17 ) , IPT    DUTP09  00 

,ININD,UNP(I7),VNP(17),WNP(17) , VMAX< 4) ,1 1 , 12 , 13 ,14,    0UTP0910 

XCPTP,YCPTP,ZCPTP,XCPBP,YCPBP,ZCPBP,YCPMP,AINTI,  0UTP09  20 

AINTP,SXR,SYR,SZR,SDEN,XRI,YRI,ZRI,FRICT,DELBB,VTAN,0UTP09  30 

FNP,FB,URP,VRP,WRP,EPSL,XLDP,DELX,VL,NCYC,EEE,ENRGY,0UTP09  40 

NSEG,YBPTP ,PCAB,PCBB,PCGB,PPRB,CAB1,CBB1,CGB1 ,  0UTP0950 

RB1,NUNLD,NLDCTR,VDEF,PVDEF,PSZR,XF,DELBBP,  0UTP09  60 

SWORK,SPENGY,DISS,IPLN,ILOAD  0UTP09  70 

ION    INDXPT{4)  OUTPOVdO 

LtNCE     (INDXPT(1),I1  )  OUTP0990 

/INSUS/    XIF,RH0F,TSF,PHIF0,PHIF0D,DEL40,DEL40D,ISUS,  QUTPIOOO 
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1  AKDStAKDS 

2  NCAMF,NCA 
COMMON    /SUSCMP/    XMUR02tB 

1  RHF2MF,R 

2  DD3M4,ZF 

3  PHIFD2,R 

4  PHI3DtPH 

5  DTDD2tOT 


COMMON/BARSTR/XSTIOC  3)  ,Y 

1  ZSTI(3),YS 

2  FNSTI(3>,A 
DIMENSION  ASTR(4),SLPANG 
DIMENSION   HDEF(3) 

DATA    STAR,BLNK/1H*,1H    / 
DATA    LPP/50/ 
DATA    TTTTTT/-9999.0/ 
IF(IND.NE.O)    GO    TO    400 
LINES    =    0 
RETURN 
400    LINES    =    LINES+1 

IF(MOD(LINES»LPP).NE.l ) 

XPAGE  =  0,01*{LINES+LPP- 

NT  =  10 

ISl  =  ISUS+1 

DO  410  J=l,19 

1F(NPA&E(J).EQ,0)  GO  TO 

NT  =  NT+1 

PAGE  =  NT+XPAGE 

WRITE(NT,1000)     (HED(I)fl 

1  (VHED(I),I=lf 10),(T 

2  (GHED(I),I=1,10),( 
1000    F0RMAT(1H1,19X,18A4,20X, 

1  22X.4HPAGE,1X,F8. 

GO    TOdll, 112, 113,114,11 
♦  125,126,127,128,12 

C      POSSIBLE    ERROR    MESSAGE 
GO    TO    410 

111  WRITE(NT,1100) 

1100    FORMAT (1H0,48X,23HS    P 
A62H       TIME  | 

Bto2HFT/SEC) 
C    6H  I         / 

D62H  SEC 

E62HTERAL       I 
F    6HLT.        I 
GO    TO    410 

112  IF(ISUS.EQ.l)    GO   TO    1121 
WRITE(NT,1200) 

1200    FORMAT ( 

A62H0  I 

B62H 


IfAKDSZ, 

MR,NDTHF 

XMR02,XM 

F2MF1,RT 

D1RF,ZRD 

PHFD,ZFD 

I40,DTHF 

DD3,DTDD 

STI0(3), 

TIP0(3), 

KST(3) 

(4) 


AKDS3,PHIRC(50),DTHF(50),0THR( 
♦NDTHR 


50) 


4,FJF{4),SNPF 

ZSTI0(3),XSTI(3),YSTI(3», 

XSTIP(3),YSTIP(3),ZSTIP<3), 


GO   TO    500 
1)/LPP 


410 


=1,18),DADE(1),DADE(2), 

HED(I),I=1,10),(CHED(I},I=1,10), 

SHED(I),I=1,10),PAGE 

2A4    /    5X,3(10A4)    /    5X,2(10A4), 

2      /       ) 

5,116,117,118,119,120,121,122,123,124, 

9), J 


I  XC» 

VERTICAL 
/} 


R 

PO 

I 


t 


UNG  MASS         / 

SITION    (FEET) 

ACCELERATION 


I  VELOCITY    ( 

(G-UNITS) 


YC« 

LONG. 


I 


ZC« 
LAT. 


FORWARD 
VERT. 


LA 

RESU 


I       SIDESLIP    I 


SPRUNG         MASS 
COURSE    IFRONT   STEER  I    REAR 


,0UTP1010 
0UTP1020 
0UTP1030 
0UTP1040 
0UTP10  50 
OUTP10  60 
0UTP1070 

ouTPioeo 

0UTP10  90 
OUTPllOO 
OUTPlllO 
0UTP1120 
0UTP1130 
0UTP1140 
0UTP1150 
0UTP1160 
0UTP1170 
0UTP1180 
0UTP1190 
0UTP12  00 
0UTP1210 
OUTP12  20 
0UTP12  30 
0UTP12  40 
0UTP12  50 
0UTP1260 
0UTP1270 
0UTP1280 
0UTP1290 
0UTP13  00 
0UTP1310 
OUTP13  20 
0UTP13  30 
OUTP13  40 
0UTP1350 
0UTP1360 
0UTP13  70 
0UTP13  80 
0UTP1390 
UUTP1400 
OUTP1410 
0UTP1420 
0UTP1430 
0UTP1440 
0UTP14  50 
0UTP14  60 
OUTP  1470 
0UTP14  80 
OUTP  14  90 
OUTP  15  00 
OUTP  15  10 
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DATE   01/12/76 


TIME   1729 


UPDATE  RECORD 


C  6HSTEERI   / 
D62H   TIME    I 
E62HN  (DEGREES) 
F  6HGLE   I   / 
G62H    SEC    I 
H62HITCH    I 
I  6HEG    I   /) 
GO  TO  410 

1121  WRITE(NT,1201) 

1201  FORMAT ( 

A62H0  I 

B62H 

C  9HLR  STEERI 
D62H   TIKE    I 
E62HN  (DEGREES) 
F  9H   ANGLE  I 
G62H    SEC    t 
H62HITCH    I 
I  9H    DEG   I 
GO  TO  410 

113  WRITE(NT,I300) 
1300  FORMAT ( 

A62H0  TIME    | 
BA4H      WHEEL 
C62H    SEC    I 
D44H   RF    I 
GO  TO  410 

114  GO    TO (1140, 114 

1140  WRITE(NT,1400) 

1400  FORMAT (55H0 
A62HRIDE    ACCEL 
B15HNGULAR 
C62H       TIME  I 
D62H                I    DEFL 
E    9HCCEL          I 
F62H          SEC  I 
G62H    LF        I    INCH 
H    8H/SEC**2| 

GO    TO    410 

1141  WRITE(NT,140l) 

1401  FORMATdHO, 
A62H  I 
B14HL 

C62H  TIME  I 

D15H 

E62H  SEC  I 

F15H       RR    I 
GO    TO    410 

1142  WRITE(NT,1402) 

1402  FORMAT ( 
A62H0  I 


ANGULAR   VELOCITIES     (DEG/SEC) 
I  ANGLE       I  ANGLE 


ORIENTATIO 
ANGLE        I  AN 


P 
YAW 


Q 
DEG 


R 
DEG 


ROLL 
DEG 


I       SIDESLIP    I 


SPRUNG         MASS 
COURSE     IFR.STEERIRR    STEERI 


/ 


ANGULAR  VELOCITIES  (DEG/SEC)      |       ORIENTATIO 
I     ANGLE   I     ANGLE   I   ANGLE  |   ANGLE  I 
/ 

P 
YAW 
/    ) 


I 


Q 
DEG 


I 


R 
DEG 


I     ROLL    I    P 
DEG   I    DEG   i 


WHEEL  RIDE  DISPLACEMENTS  (INCHES) 


RIDE  VELOCITIES  (IN/SEC) 
RF    I      LF     r 
LF    I       RR    I 

1,1142),IS1 


RR 


LR 


LR 


/) 


I  WHEEL 

REAR    AXLE    A 


I  SPRUNG    MASS 

I  REAR    ROLL    CENTER    RIDE  I 

I       / 
ANGULAR    ACCELERATIONS    ( DEG/S£C**2) I  (IN/§EC**2) 

I    VtLXITY     lACCELERATION  I       DEFL       I    VELOCITY    |       A 
/ 

DP/DT     I  DO/DT    I  DR/DT     I  RF       | 

ES    I  IN/SEC     I     IN/SEC**2       I  DEG       |       DEG/SEC     |DEG 

/) 


SPRUNG  MASS 


I  / 


I 


ANGULAR  ACCEL.  (DEG/SEC**2)  I 
I  / 

DP/DT  I    DQ/DT  |    DR/DT  I 
LR  I  /  ) 


SPRUNG    MASS 


WHEEL    RIDE    ACCE 
{IN/SEC**2) 
RF    I  LF    I 

FRONT    ROLL    CENTER 


0UTP15  20 
0UTP15  30 
OUTP1540 
0UTP16  50 
0UTP15  60 
0UTP1570 
0UTP15  80 
0UTP1590 
0UTP16O0 
0UTP16  10 
0UTP1620 
tJUTP1630 
0UTP1640 
OUTP16&0 
0UTP16  60 
0UTP1670 
0UTP16eG 
0UTP16  90 
0UTP1700 
0UTP1710 
0UTP1720 
0UTP17  30 
0UTP1740 
0UTP1750 
0UTP1760 
OUTP1770 
0UTP1760 
0UTP17  90 
0UTP1800 
0UTP18  10 
aUTP1620 
0UTP18  30 
0UTP18  40 
0UTP18  50 
0UTP18  60 
0UTP18  70 

ouTPieeo 

0UTP18  90 
(JUTP1900 
0UTP1910 
0UTP19  20 
0UTP19  30 
0UTP1940 
0UTP1950 
0UTP1960 
0UTP1970 
0UTP19  80 
0UTP1990 
OUTP20  00 
0UTP2010 
0UTP20  20 
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DATE   01/12/76 


TIME   1729 


UPDATE  RECORD 


DP/DT  I 
I  IN/SEC 
) 


662H       t 
C  7HNGULARI 
D62H    TIME 
E62HCCEL  I 
F  7HACCEL  \ 
G62H     SEC 
H62H/SEC2  1  INCHES 
I  7HG/SEC2I    / 
GO  TO  410 

115  WRITE(NT,1500) 
1500    F0RMAT<1H0,8X,48H 

A    IHl        / 

B59H       TIME  I  TORQUE       | 

C59H  SEC  I  LB-IN       I 

GO    TO    410 

116  GO    T0(1160, 1161, 1162), ISl 
1160    WRITE(NT,1600) 

1600    FORMATi 

A62H0    TIMt  I 

B62HAMBER   ANGLE 


REAR    ROLL    CENTER  I    FR,    AXLE  ANGULARIREAR    AXLE    A 

/ 

I     ANGULAR    ACCEL.    (DEG/SEC**2J     |  DEFL 

DEFL       IVELOCITYI       ACCEL     fVELOCITYl  ACCI 


I  VELOCITY  I       A 
EL    IVELOCITYI 


DQ/DT    I 
IN/SEC2I 


DR/DT    I     INCHE 
DEG/SECIDEG/S 


S    I     IN/SEC    I    IN 
EC2I    DEG/SECIDE 


STEER    FRICI    STEER    STOPl 


STEER       I 


STEER 


TORQUE 
LB-IN 


VEL  I 

DEG/SEC    I 


ACCEL       I       / 
DEG/SEC**2|       /) 


STEER    ANGLE    IN    GROUND    PLANE 
RELATIVE    TO    GROUND    PLANE    (DEG) 


LF 


RR 


(DEG) 
I   C 

I 


RR 


LR 


STEER  ANGLE  IN  GROUND  PLANE  (DEG) 
RELATIVE  TO  GROUND  PLANE  (DEG)  j 
/ 

RF    I        LF    I        RR     I 

LF    I       RR    I        LR    I 
/   ) 


C  6H&)     I    / 
D62H    SEC    I       RF 
E62H   RF    I        LF 
F  6HLF    I    /) 
GO  TO  410 

1161  WRITE(NT,1601) 

1601  FORMAT  ( 
A62H0  TIME    | 
B62HAMBER  ANGLE 
C  9HDEG)     t 
D62M    SEC    I 
E62H   RF    I 
F  9HR  I   LR  I 

GO  TO  410 

1162  WRITE(NT,1602) 

1602  FORMAT ( 
A62H0  TIME    j 
B62HAMBER  ANGLE 
C  6HDEG)  I    / 
D62H    SEC    I       RF 
E62H   RF    I       LF 
F  6HPHIR  I    /  ) 

GO  TO  410 
117  WRITE(NT,1700) 
1700  FORMAT  ( 

A62H0  I      LONGITUDINAL  WHEEL  CENTER  VELOCITY 

B44H     LATERAL  CONTACT  POINT  VELOCITY  I     / 

C62H   TIME    I       PARALLEL  TO  GROUND  PLANE  (FT/SEC) 
D44H    PARALLEL  TO  GROUND  PLANE  (FT/SEC)         I     / 
E62H    SEC    I       RF    I       LF    |        RR    I 
F44H   RF    I       LF    I       RR    t       LR    I     /) 


AMBER  ANGLE  (DE 

LR    I 
RF    I 


I  C 

CAMBER  ANGLE  ( 

LR    I 

RF  I    LF  I  R 


STEER  ANGLE  IN  GROUND  PLANE 
RELATIVE  TO  GROUND  PLANE  (DEG) 


(DEG)  I    C 

I  AXLE  ROLL  ANGLE  ( 


LF 


RR 


RR  I  LR  I 

LR  I    FRONT-PHIFI    REAR- 


LR 


0UTP2030 
0UTP2040 
0UTP20  50 
OUTP2060 
0UTP20  70 
0UTP2080 
0UTP2090 
0UTP2100 
0UTP2110 
0UTP2120 
0UTP2130 
0UTP2140 
0UTP2150 
0UTP216O 
0UTP2170 
0UTP2160 
0UTP2190 
OUTP 22 00 
0UTP2210 
0UTP2220 
OUTP  22  30 
OUTP 2240 
OUTP  22  50 
OUTP  22 60 
OUTP  22  70 
OUTP  22  80 
OUTP 22 90 
OUTP  23  00 
OUTP  23  10 
OUTP 23 20 
OUTP  23  30 
0UTP2340 
0UTP2350 
OUTP 23 60 
OUTP  23  70 
OUTP  23  80 
OUTP 23 90 
OUTP  2400 
OUTP  24  10 
0UTP2420 
OUTP 2430 
OUTP  2440 
OUTP 2450 
OUTP 24 60 
OUTP  24  70 
0UTP2480 
OUTP 2490 
OUTP  25  00 
OUTP  25  10 
0UTP2520 
OUTP  25  30 
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DATE   01/12/76 


TIME   1729 


UPDATE  RECORD 


GO  TO  410 

118  WRITE(NT, 18001 
1800  FORMAT ( 

A58H0  TIME    I 
B58H    SEC    I 
GO  70  410 

119  WRITE(NT,1900) 
1900  FORMAT ( 

A62H0  TIME    | 
B44H      SUSPENSION 
C62H    SEC    I 
D44H   RF    I        LF 
GO  TO  410 

120  WRITE(NT,2000) 
2000  FORMAT  ( 

A62H0  TIME    I 


TIRE  CONTACT  POINT  ELEVATION  (INCHES) 

RF    I       LF    I        RR    I       LR 


TOTAL    SUSPENSION    FORCE     (LBS) 
ANTI-PITCH    FORCE    (LBS)  I  / 

RF  I  LF  I  RR  I 

I  RR  I  LR         I  /) 


LR 


I 


RF 


LF 


RA 
RADIUS 
RF 
LF  I 


TI 

(LBS 


B44H 

C62H    SEC 
D44H   RF 
GO  TO  410 

121  WRITE(NT,2100) 
2100  FORMAT ( 

A62H0  TIME    | 
B44H        ROLLING 
C62H    SEC    I 
D44H   RF 
GO  TO  410 

122  WRITE(NT,2200) 
2200  FORMAT ( 

A62H0  TIME    I 
B62H  TlRt  SIDE  FORCE 
C  6H       I     / 
D62H   SEC     I       RF 
E62H   I        LF   I 
F  6H  LR   I     /) 
GO  TO  410 

123  WRITE(NT,2300) 

2300    F0RMAT(lH0,56Xt25HlFR0NT 
A62H       TIME  I  TI 

B20HURQUE       I  TORQUE       | 

C62H         SEC         I  RF 

D20Hb-FT  I  LB-FT  I 

GO    TO    410 

124  WRITE(NT,2400) 
2400    FORMAT ( 

A62H0    TIME  |  Z»-VERTI 

B62HNTAL    TIRE    FORCE    (LBS) 
C    6H  I  / 

D62H         SEC  I  RF  | 

E62H       LF  I  RR  I 

F    6HLR  I  /) 


SUSPENSION    DAMPING    FORCE     (LBS) 
SUSPENSION    SPRING    FORCE    (LBS)  | 

I  LF  I  RR  I 

RR  I  LR  I  /) 


LR 


DIAL  TIRE  FORCES  (LBS) 

(INCHES)  I 

I       LF    I        RR 

RR    I        LR    I 


/ 
/) 


LR 


/ 
/) 


RE  NORMAL  FORCE  (LBS)  | 

)               I  SLIP  ANGLE  (DEGJ 

LF   I  RR   I  LR   I       RF 

R       \                 LR   I  RF   I  LF   I    RR   I 


WHEELI  REAR  WHEELI   / 
RE  TRACTIVE  FORCE  (LBS) 

/ 
I  LF         r  RR  I 

/) 


LR 


I         T 
I         L 


CAL    TIRE    FORCE    (LBS)  I  X«-HORIZO 

I         Y»-HORIZONTAL    TIRE    FORCE    (LBS) 


LF 


I 


RR 


LR 


RF 


LR 
LF  I 


RF  I 

RR  i 


0UTP2540 
0UTP25  50 
0UTP2560 
0UTP25  70 
0UTP25  80 
0UTP2590 
0UTP2600 
0UTP2610 
0UTP2620 
0UTP2630 
0UTP264O 
0UTP26  50 
0UTP2660 
0UTP26  70 
0UTP26  80 
0UTP26  90 
0UTP2700 
0UTP2710 
0UTP2720 
0UTP2730 
OU  TP  27  40 
0UTP27b0 
OUTP27  60 
0UTP2770 
OUTP2780 
0UTP27  9C 
OUTP28  00 
0UTP2810 
0UTP2820 
0UTP28  30 
0UTP28  40 
0UTP28  50 
0UTP2860 
0UTP28  70 
0UTP26  80 
QUTP2890 
0UTP2900 
0UTP2910 
0UTP29  20 
0UTP29  30 
DUTP29  40 
0UTP29  5O 
0UTP2960 
0UTP29  70 
0UTP^9  80 
OUTP2990 
0UTP30  00 
0UTP30  10 
OUTP30  20 
0UTP30  30 
OUTP30  40 
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DATE   01/12/76 


TIME   1729 


UPDATE  RECORD 


GO  TO  410 

125  WRITE(NT,2500) 

2500  FORMAT ( 

A62H0  TIME    I        TERR 
B62HL0PE-CAMBER  (PHIG)  (D 
C  6HEG)    I     / 
D62H    SEC    I     RF    I 
E62H   LF    I     RR    I 
F  6HLR    I     /) 
GO  TO  410 

126  WRIT£(NT,2600) 
2600  FORMAT ( 

A62H0  TIME    I  SPRUNG  MAS 
b44HUNG  MASS  ACCELERATION 
C62H    SEC    I    LONG. 
D44H0NG,    I     LAT,    | 
GO  TO  410 

127  WR1TE(NT, 27001 
2700  FORMAT ( 

A62H0  I  INTERFACE 

B44HRRIER   I      POSITION 
C62H   TIME     i    AREA 
D44HECTICN  (        XR     | 
E62H    SEC    I    IN**2 
F44HNCHES   I    INCHES   I 
GO  TO  410 

128  WRITE(NT,2800) 

2800    FORMAT (1H0,8X,13H|VEL0CI 


AIN    ELEVATION    < IN  ) 

EG)  I         TERRAIN    SLOPE-PI 


(  TERRAIN   S 

TCH     (THETAG)     (D 


LF 


I 


LR 


RR  I 

RF         I 


LR 


I 


LF 


RF 
RR         I 


S    ACCELERATION    LOCATION    1( 

LOCATION    2    (G-UNITS)     I 
I  LAT.  I  VERT.  I 

VERT.  I  RESULT.     I 


I  VEHICLE     I  NORMAL  I 

OF    APPLIED    LCAL  I  / 

IDEFORMATIONI  FORCE  f 

YR  I  ZR  I  / 

I  INCHES       I  LBS  I 

INCHES       I  INCHES 


G-UNITS) 
/ 
RESULT. 
/) 


SPR 

L 


I       BARRIER 
ENERGY  I 

I    DEFLECTION 
DISSIPATEDI 
I  IN/SEC 

FT-LB       I 


A62H 

B44H  BARRIER 
C62H   TIME 
D44H SERVED  I 
E62H    SEC    I 
F44HFT-LB   I 
GO  TO  410 
129  WRITE(NT,2900) 
2900  FORMAT < 

A62H0  TIME 
B20HF0RCE  -  LBS 
C62H    SEC    I 
D20HN0.  2   I 
410  CONTINUE 
500  NT  =  10 

DO  600  J=l,19 
IF(NPA&E(J).EO.O)  GO  TO 
GO  TOdl, 12, 13f  14,15,16, 
11  NT  =  NT+1 

ACLON  =  (DU-VR+WQ)/G 
ACLAT  =  (DV+UR-WP)/G 
ACVER  =  (DW*VP-UQ)/G 
ULON  =  U/12. 


i     ) 


TY   0F|,59X,13H|SPRUNG    MASS 
I  VELOCITY    OF    CONTACT 

DISSIPATEDI    FRICTION        |    / 
J  UR»  r  VR»  ( 

ENERGY       I  WORK  |    / 

I  IN/SEC    I  IN/SEC     I 

FT-LB       1  FT-LB       I     ) 


I       HARD    POINT    DEFLECTION   -    INCHES 
/ 
I  NO.    2       t  NO.    3 

) 


NO. 
NO.    3 


FRICTION  !       BA 

FORCE  IDEFL 

LBS  I  I 

I       / 

POINT  I 

WR»  I    CON 

IN/SEC  I 

HARD    POINT 

NO.    1  i 


600 

17, 18, 19, 20, 2 1,22, 23, 24, 25, 26, 27, 28, 29), J 


0UTP3050 
0UTP3060 
OUTP30  70 
0UTP30  60 
0UTP30  90 
0UTP3100 
0UTP3110 
0UTP3120 
0UTP3130 
0UTP3140 
0UTP3150 
0UTP3160 
0UTP3170 
0UTP3180 
0UTP3190 
0UTP3200 
OUTP3210 
0UTP3220 
OUTP3230 
0UTP3240 
0UTP32  50 
0UTP32  60 
0UTP32  70 
0UTP32&0 
0UTP3290 
0UTP3300 
UUTP3310 
0UTP33  20 
0UTP33  30 
0UTP33  40 
0UTP33  50 
0UTP3360 
0UTP3370 
0UTP3380 
0UTP3390 
0UTP3400 
0UTP3410 
0UTP3420 
0UTP3430 
0UTP34^ 
0UTP3450 
0UTP34  60 
0UTP3470 
0UTP3480 
0UTP34  90 
0UTP3500 
0UTP3510 
0UTP3520 
0UTP3530 
0UTP3540 
0UTP3550 


212 


DATE   01/12/76 


TIME   1729 


UPDATE  RECORD 


VLAT    =    V/12.  0UTP3560 

WVER    =    W/12.  0UTP3570 

ACRES    =    SQRT(ACL0N**2+ACLAT**2+ACVER**2)  0UTP3!>80 

OXCP    =    XCP/12.  0UTP3390 

OYCP    =    YCP/12.  0UTP3600 

OZCP    =    ZCP/12.  OUTP36  10 
WRITE (NT  ,5000)     T, OXCP,0YCPt OZCP, ULON, VLAT ♦ WVER, ACLON, ACL AT ,ACVER,    0UTP36  20 

♦  ACRES  0UTP3630 
5000    FORMAT(«    • ,F7,4, 10 (2X, F10,2 ) )  0UTP36^0 

GO    TO    600  0UTP36f)0 

12  NT  =  NT  +  1  0UTP3660 
ONU  =  0.0  0UTP3670 
IF(DYCP.EQ,O.O.AND,DXCP.E0,O.O)  GO  TO  212  0UTP36fa0 
ONU    =    ATAN2(DYCP,DXCP)/RAD  0UTP3690 

212  ROLL  =  P/RAD  0UTP3700 
PITCH  =  Q/RAD  OUTP3710 
YAW  =  R/RAD  CUTP37  20 
PHIO  =  PHIT/RAD  0UTP3730 
THTAO  =  THETT/RAD  0UTP3740 
PSIO  =  PSIT/RAD  0UTP3750 
OBETA  =  DNU-PSIO  0UTP3760 
PSIFO  =  PSIl/RAD  GUTP3770 
IFClSUS.EQ.l )  GO  TO  213  0UTP3780 
OPSIR  =  PSI3/RAD  0UTP3790 
WRITE (NT, 5000)     T, ROLL, PITCH, YAW , PHIO, THTAO , PS IC, OB  ETA, ONU, PSIFO,       0UTP38  00 

»                                          OPSIR  0UTP36  10 

GO    TO    600  0UTP38  2C 

213  0PSI3  =  PSI3/RAD  0U7P3830 
0PSI4  =  PSI^/RAD  0UTP3840 
WRITE (NT, 5004)     T, ROLL, PI TCH, YAW , PHIO, THTAO, PSIO , OB  ETA, ONU, PSIFO,       0UTP3a50 

*  DPSI3,0PSI4  0UTP3860 
GO    TO    600  OUTP38  70 

13  NT  =  NT+1  0UTP3880 
60    T0( 131,132,133) ,IS1  0UTP3890 

131  0ETA3  =  DEL3+TR02*PH1R  0UTP3900 
0ETA4  =  DEL3-TP02*PHIR  0UTP39  10 
0ETA3D  =  DEL3D+TR02*PHIRD  OUTP3920 
0ETA4D  =  DEL3D-TR02*PHIRD  0UTP3930 
WRITE (NT, 5000)  T,DEL1 , DEL2,OETA3 ,0£TA4,DEL1D ,DEL2D ,OET A3D,0ETA40  0UTP39  40 
GO    TO    600  CUTP3950 

132  WRITE(NT,5000)  T, DELI , DEL2, DEL3 , DEL4, DELID ,DEL2D,DEL3D ,DEL4D  0UTP3960 
GO    TO    600  CUTP3970 

5004    FORMATdH    ,  F7.4,8  ( 2X  ,F  10 .2)  ,3  (2X,F7.2 )     )  .                CUTP3980 

133  OETAl  =  DEL1+TF02*PHIF  '  0UTP3990 
0ETA2  =  DEL1-TF02*PHIF  0UTP4000 
0ETA3  =  DEL3+TR02*PHIR  0UTP4O10 
0ETA4  =  DEL3-TR02*PHIR  0UTP4020 
OETAID  =  DEL1D+TF02*PHIFD  0UTP4030 
0ETA2D  =  DEL1D-TF02*PHIFD  0UTP4O40 
0ETA3D  =  DEL3D+TR02*PHIRD  0UTP4050 
0ETA4D    =   DEL3D-TR02*PHIRD  OUTP4060 
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DATE       01/12/76 


TIME       1729 


UPDATE    RECORD 


WRITE(NT,5000)    T,UETA1 ,0ETA2 tOET A3 ,GETA4,0ETA1D,0ETA2D t 0ETA3D, 

*  OETA^D 
GO    TO    600 

lA    NT    =    NT+1 

OOP    =    DP/RAO 
ODQ    =    DQ/RAD 
ODR    =    DR/RAD 
IF(ISUS.EO.l)    GO    TO    141 
DPHOTO    =    PHIRD/RAD 
OPHDD    =    DPHIRD/RAD 
IF( ISUS.EQ.2)    GO    TO    142 
PHIRO    =    PHIR/RAD 
WRITE(NT,5001)    T.ODP.ODQ 

♦  PHIROfDPHI 


141 
5005 

142 


15 


16 


5001    FORMAT(»    • , F7.4, 3( 2X tFlO 

*  F9,l,2XtF7.2,2X»F 
GO    TO    600 

WRITE(NT,5005)     T,ODP,ODa 
FORMATdH    ,F7,3,3(2X,F8. 
GO    TO    600 
DPFDTO    =    PHIFD/RAD 
OPFDD    =    DPHIFD/RAD 
WRITE(N1 ,5005)     T, OOP, ODQ 

*  DPFDTO, OP 
GO    TO    600 
NT    =    NT+1 

ODPSFI    =    DPSIFI/RAD 
ODDPSF    =   DDPSF I/RAD 
WRITE(NT,5000)    T.TIPSI.T 
GO    TO    600 
NT    =    NT+1 

PHICI(1)/RAD 

PHICI(2)/RAD 

PHICI{3)/RAD 

PHIC1(4)/RAD 

PSIIP(1>/RAD 

PSIIP{2)/RAD 

PSI1P(3)/RAD 

PSIIP(4)/RAD 

IF( ISUS.E0.2)    GO    TO 

PHI  10    =    PHIl/RAD 

PHI20    =    PHI2/RAD 

IF( ISUS.EQ.l)    GO    TO 

WRITE<NT,5000)    T,PSRF,PS 

♦  PHI20 
GO    TO    600 
PHI30    =    PHI3/RAD 
PHI40    =    PHI4/RAU 
WR1TE(NT,5006)    T,PSRF,PS 

♦  PHI20,PHI 
GO    TO    600 


,0DR,DDEL1D,DDEL2D,DEL3,DEL3D,DDEL3D, 
DTO, OPHDD 
.2),2(2X,F9.1),2X,F7.2,2X,F9.1,2X, 
9.1,2X,F9,1    ) 


,0DR,DDEL1D,DDEL2D,DDEL3D,DDEL4D 
2),10(2X,F7.1)     ) 


,0DR,DtLl,DELlL>,DDeLlD,0EL3,DEL3D,DDEL3D, 
FDD.DPHDTOtOPHDD 


2PSI, ODPSFI, ODDPSF 


PHRF 
PHLF 
PHRR 
PHLR 
PSRF 
PSLF 
PSRR 
PSLR 


162 


161 


161 


LF, PSRR, PSLR, PHRF, PHLF, PHRR, PHLR, PHI 10, 


LF, PSRR, PSLR, PHRF, PHLF, PHRR, PHLR, PHI 10, 
30,PHI40 


0UTP4O70 
0UTP40  80 
0UTP40  90 
0UTP4100 
0UTP4110 
0UTP4120 
0UTP4130 
0UTP4140 
0UTP4150 
0UTP4160 
0UTP4170 
0UTP4180 
0UTP4190 
0UTP42  00 
0UTP42  10 
0UTP4220 
0UTP42  30 
0UTP4240 
OUTP4250 
0UTP4260 
0UTP4270 
0UTP42e0 
0UTP42  90 
0UTP43  00 
0UTP4310 
0UTP4320 
0UTP4330 
0UTP4340 
0UTP43  50 
0UTP4360 
0UTP43  70 
DUTP43  80 
GUTP4390 
OU  IP  44  00 
0UTP4410 
0UTP4420 
0UTP44  30 
0UTP4440 
OUTP44bO 
0UTP4460 
0UTP44  70 
0UTP4480 
0UTP4490 
0UTP4500 
0UTP45  10 
0UTP45  20 
OUTP4530 
0UTP4b40 
0UTP45  50 
0UTP4560 
0UTP4570 
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DATE       01/12/76 


TIME       1729 


UPDATE    RECORD 


162 

PHIFO    =    PHIF/RAD 

0UTP45  80 

PHIRO    =    PHIR/RAD 

0UTP45  90 

WRITE(NT»5000I     7 .PSRF, PS LFf PSRR t PSLRt PHRF ,PHLF ,PHRR,PHLRf PHIFO, 

0UTP4600 

*                                          PHIRO 

0UTP4610 

5006 

FORMATdH    ,F7,4,8(2X,F10.2I,4(1X,F6.2)     ) 

0UTP46  20 

GO    TO    600 

0UTP46  30 

17 

NT    =    NT-H 

0UTP46  40 

VLNRF    =    UGtl)/12, 

0UTP46  5)0 

VLNLF    =    UG(2)/12. 

0UTP46  60 

VLNRR    =    UG<3)/12, 

0UTP46  70 

VLNLR    =    UG(4)/12. 

0UTP46  80 

VLTRF    =    VG(1)/12. 

0UTP46  90 

VLTLF    -    VG(2)/12. 

0UTP47  00 

VLTRR    =    VG(3)/12. 

0UTP47I0 

VLTLR    =    VG(4)/12, 

0UTP4720 

WRITE (NT, 5000)    T, VLNRF , VLNLF, VLNRR, VLNLR, VLTRF, VLTLF, VLTRR , VLTLR 

0UTP47  30 

GO    TO    600 

0UTP4740 

18 

NT    =    NT+1 

0UTP4750 

WRITE(NT,5000)    T, ( ZGPP (I ) ,1=1 ,4) 

0UTP4760 

GO    TO    600 

0UTP4770 

19 

NT    =    NT+I 

0UTP47  60 

WRITE (NT, 5000)    T  ,  ( SI  (I  ), 1=1,4 ) , ( APITCH( I ) , 1  =  1 ,4) 

0UTP4790 

GO    TO    600 

0UTP48  00 

20 

NT    =    NT+1 

CUTP4&10 

IF(ISUS,EQ.2)    GO   TO    201 

0UTP48  20 

oDi  =  h:f*delid 

0UTP48  30 

0D2    =    -CF*DEL2D 

0UTP48  40 

GO    TO    202 

0UTP48  50 

201 

001    =    -CF*(DEL1D*TSF02*PHIFD) 

0UTP4860 

0D2    =    -CF*(DEL1D-TSF02*PHIFD) 

0UTP48  70 

202 

IF(ISUS.EQ.l)    GO    TO    203 

0UTP48&0 

0D3    =    -CR*(DEL3D*TS02*PHIRD) 

0UTP48  90 

0D4    =    -CR*(DEL3D-TS0  2*PHIRD) 

0UTP49  00 

GO    TO    204 

0UTP49  10 

203 

0D3    =    -CR*DEL3D 

0UTP4920 

0D4    =    -CR*DEL40 

0UTP49  30 

204 

CONTINUE 

0UTP4940 

OSPl    =    -F2FI(1) 

0UTP49  50 

0SP2    =    -F2FI(2» 

0UTP49  60 

0SP3    =    -F2RI(1) 

0U7P49  70 

0SP4    =    -F2RI(2) 

0UTP4960 

WRITE (NT, 5000)    T,0D1 ,002, 003,004, OSPl ,0SP2 ,0SP3 , OS P4 

0UTP49  90 

GO    TO    600 

0UTP5000 

21 

NT    =    NT*1 

0UTP5010 

WRITE (NT  ,5000)    T, ( FR ( I) , 1=1,4 ) , ( HI ( I) , 1=1 ,4) 

OUTP50  20 

GO    TO    600 

OUTP50  30 

22 

NT    =    NT+1 

0UTP5040 

DO    220    1=1,4 

0UTP5050 

ASTR(I)    =   BLNK 

0UTP50  60 

IF(ABS(bETBR(I )).GT,3.0)    ASTR(I)=STAR 

0UTP5070 

PSITEM    =   PSIIP(I)*SIGN(1.0,UG(I)) 

OUTP5O80 
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DATF       01/12/76 


TIME       1729 


UPDATE    RECORD 


TERM    =    0.0 

IF(UG(  D.NE.O.O.OR.VGd) 
SLPANG(I)    =    (TERM-PSITEM 
UO    CONTINUE 

WRITE(NT,5003)     T,(FRCP«I 

*  (SLPANGd 
5003  FORMATdH  »  F7.4,  IX  ,4  ( IX, 

GO  TO  600 

23  NT  =  NT+1 

TQFO  =  TI(1)*HI(1)/12. 
TQRO  =  TI(3)*HI(3)/1^. 
WRITE(NT,5000J  T,(FC(I), 
GO  TO  600 

24  NT  =  NT+1 

FRIO  =  AMTX(3,1)*FXU(1)+ 
FR20  =  AMTX(3,1)*FXU(2)+ 
FR30  =  AMTX(3,1)*FXU{3)+ 
FR40  =  AMTX(3,1  )*FXU(4)-»- 
FXPUl  =  AMTX(1,1)*FXU( 1) 
FXPU2  =  AMTX(1,I)*FXU(2) 
FXPU3  =  AMTX(1,1)*FXU(3) 
FXPU4  =  AMTX(1,I)*FXU(4) 
FYPUl  =  AMTX(2t 1)*FXU(1) 
FYPU2  =  AMTX(2,1)*FXU{ 2) 
FYPU3  =  AMTX(2,1)*FXU(3) 
FYPU4  =  AMTX(2,1)*FXU(4) 
WRITE(NT,5002)  T,FR10,FR 

*  FYPUl, FYP 
5002    FORMAT(»    » , F 7,4, 12 (2X» F8 

GO    TO    600 

25  NT    =    NT+1 

PHGIO  =  PHGKl  )/RAD 
PHG20  =  PHGI(2)/RAD 
PHG30  =  PHGI(3)/RAD 
PHG40  =  PHGI(4)/RAD 
THGIO  =  THGI(1)/RAD 
THG20  =  THGI (2)/RAD 
THG30  =  THGI t3)/RAD 
THG40  =  THGI(4)/RAD 
WRITE(NT,5002)    T,(ZPGI(I 

*  THG20,THG 
GO    TO    600 

26  NT    =    NT+1 

AXl  =  (DU-VR+WQ-X1*(Q2+R 
AX2  =  (DU-VR+W0-X2*(Q2+R 
AYl  =  (DV+UR-WP+X1*( PO+D 
AY2  =  (DV+UR-WP+X2*(PQ+0 
AZl  =  (DW+VP-UQ+X1*(PR-D 
AZ2  *  (DW+VP-U0+X2*(PR-D 
AIR  =  S&RT(AX1**2+AY1**2 
A2R    =    SQRT(AX2**2+AY2**2 


•  NE.0.0)    TERM    =    ATAN2 ( VG( I  )  ,ABS(U& ( I ) ) ) 
)/RAD 

),I  =  1,4)  ,(FS( I),ASTR(I),I=1,4)  , 

),I=1,4) 

F10.2),4(1X,F9.2,A1),4(1X,F7.2» 


1=1, 4), TQFO, TQRO 


AMTX(3,2 
AMTX(3,2 
AMTX(3,2 
AMTX{ 3,2 
+AMTX(1, 
+AMTX(1, 
+AMTX(1, 
+AMTX(1, 
+AMTX(2, 
♦AMTX(2, 
♦AMTX(2, 
+AMTX(2, 
2C,FR30, 
U2,FYPU3 
•  1)     ) 


)*FYU(1)+ 
)*FYU(2)+ 
)*FYU(3)+ 
)*FYU(4)+ 
2)*FYU(1) 
2)»FYU(2) 
2)»FYU(3) 
2)*FYU{4) 
2)«FYU{1) 
2)*FYU(2) 
2)*FYU(3) 
2)*FYU(4) 
FR40,FXPU 
,FYPU4 


AMTX(3,3) 
AMTX(3,3) 
AMTX(3,3) 
AMTX(3,3) 
+AMTX(1,3 
+AMTX(1,3 
+AMTX(1,3 
+AMTX(1,3 
+AMTX(2,3 
+AMTX(2,3 
+AMTX(2,3 
+AMTX(2,3 
1,FXPU2,F 


*FZU(1) 

*FZU{2) 

♦FZU(3) 

♦FZU(4) 

)*FZU(1) 

)*FZU(2) 

)*FZU(3) 

)*FZU(4) 

)*FZU(1) 

)»FZU(2) 

»*FZU(3) 

)*FZUC4) 

XPU3,FXPU4, 


)  ,1  =  1,4) , PHGIO, PHG20,PHG 30, PHG 40, THGIO, 
30,THG40 


2)+Yl*(PQ-DR)+Zl*(PR+D0))/G 

2)+Y2*(PQ-DR)+Z2*(PR+DC))/G 

R)-Y1*(P2+R2)+Z1*(QR-DP) )/G 

R>-Y2*(P2+R2l+Z2*(0R-DP)l/6 

Q)+Y1*(QR+DP)-Z1*(P2+Q2))/G 

QJ+Y2*(QR+DP)-Z2*(P2+Q2) )/G 

♦AZ1«*2) 

+AZ2**2) 


0UTP5090 
0UTP5100 
0UTP5110 
0UTP5120 
0UTP513O 
OUTP5140 
0UTP5150 
0UTP5160 
0UTP5170 
0UTP5180 
0UTP5190 
0UTP5200 
0UTP5210 
0UTP52  20 
0UTP5230 
0UTP5240 
0UTP52  50 
0UTP5260 
0UTP52  70 
0UTP52  80 
0UTP52  90 
0UTP5300 
0UTP5310 
0UTP53  20 
0UTP5330 
OUTP53  40 
0UTP53  50 
0UTP53  60 
CUTP5370 
0UTP53  80 
0UTP5390 
0UTP5400 
0UTP5410 
0UTP54  20 
0UTP54  30 
0UTP5440 
OUTP54  50 
0UTP5460 
0UTP5470 
0UTP5480 
0UTP54  90 
0UTP55  00 
OUTP5510 
0UTP55  20 
0UTP55  30 
0UTP5540 
OU  IP  55  50 
QUIP  55  60 
0UTP55  70 
OUTP55  80 
0UTP5590 
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DATE       01/12/76 


TIME       1729 


UPDATE    RECORD 


WRITE(NT,5000)     T.AXl , A Yl , AZl, AIR ,AX2, AY2 , AZ2 , A2R  OUTP5600 

GO    T0600  0UTP56  10 

27  NT  =  NT+1  0UTP5620 
WRITE(NT,5000)  Tf AINTI fVDEFtFNt FRI CT, DELBB , SXR ,SYR ,SZR  0UTP5630 
GO    TO    600  CUTP56  40 

28  NT  =  NT+1  0UTP5650 
SWORKO  =  SWORK/12.  OUTPS)660 
EEEO  =  EEE/12.  0UTP5670 
DISSO  =  DISS/12.  0UTP5660 
SPENGO  =  SPENGY/12.  0UTP5690 
WRITE(Mf5000)  T»VMAX(  1>  ,URPtVRP  ,WRP,  EEEO  tDI  SS0,SPtNG0  , SWORKO  0UTP57  00 
GO    TO    600  0UTP5710 

29  NT  =  NT+1  GUTP5720 
DO  291  1=1,3  0UTP5730 
HDEFd  )  =  0,0  0UTP5740 
IF(FNSTI(I  ).NE.0.0)     HDEFd)    =    YSTIPO(  I  >-YBP  0UTP5750 

291    CONTINUE  0UTP5760 

WRITE(NT.5000)     T  ,  (HDEF (I  )  ,1=1 ,3 ) , ( FNSTI { I ) , 1  =  1,3)  0UTP&770 

600    CONTINUE  0UTP57b0 

RETURN  OUTPb790 

ENTRY    THPLOT(IPLT)  0UTP5600 

GO    T0(901,902,903) ,1PLT  0UTP5810 

901  WRITE{3)  (HED(I},I=1,18) ,DADE(1I,DADE(2),(VHED(I),I=1,10),  OUTP5620 
A  (THEDtl ),I=1» I0),(CHED(I),I=1,10),1GHED( I),I=1,10),  OUTP5830 
B                  {SHED(  I)  ,I  =  1»10)  (JUTP5840 

RETURN  0UTP58  50 

902  WRITE(3)  T ,ULON ,VL AT ,ACLON,ACLAT ,ACVER , ACRES, ROLL, PITCH,  0UTP5860 
1                    YAW,PHI0,THTA0,PSI0,AX1,AY1,AZ1,A1R,AX2,AY2,AZ2,A2R  0UTP5870 

RETURN  OUTP5680 

903  WRITE(3)  ( TTTTTT,I  =  1  ,2  1)  0UTP5890 
RETURN  0UTP5900 
END  0UTP5910 
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SUBROUTINE  P INTl ( IN ,MODt ,N , /X/ ,/HH/, YY, YYP , A )  00039570 

C*  *00039590 

C*  SUBROUTINE  PINTI  *00039600 

C*  *00039610 

C*  PURPUSf:  *00039620 

C*  TO  SOLVF  A  SYSTEM  UF  N  RLAL  ORDINARY  DIFFERENTIAL  EQUATIONS  OF  *00039630 

C*  THE  FIRST  ORDER  *000396A0 

C*  *00039650 

C*  USAGE  ♦00039660 

C*  CALL  PINTI ( IN,MnDE,NTX»HH,YY»YYP,A)  *00039670 

C*  ♦00039680 

C*  DESCRIPTION  OF  PARAMETEkS  ^00039690 

C*  N      NUMBER  OF  tOUATlONS  *C0039700 

C*  IN     INDICATOR  FOR  INITIALIZATION  OF  INTEGRATION  STEP  ,  IF  ♦00039710' 

C*  IN  =  1  THF  ROUTINE  INITIALIZES  ♦00039720 

C^  IN  =  2    THE  ROUTINE  IMTI- GRATES  ONE  STEP  ♦00039730 

C*  MODE   THE  OPTION  W0KU(=o,lt3R  2)  FOR  USING  ONE  OF  THE  THREE  V.0D^00039740 

C*  tS  OF  INTEGRATION.    IF  MODE  EQUALS  ♦00039750 

C*  0  -  THE  ADAMb-MGULTuN  VARIABLE  STEP-SIZE  IS  USED,  ♦0003«'760 

C*  1  -  THE  RUNGt-KUTTA  FIXED  STEP-SIZE  IS  USED,  ^00039770 

C^  2  -  THE  ADAMS  FIXED  STEP-SIZE  IS  USED  ♦000397H0 

C*  A      IS  AN  ARRAY  OF  DIMENSION  SIX  CONTAINING  THE  PARAMETERS  +00039790 

C+  FOR  The  VARlAbLL  MODE  ♦00039800 

€♦  X      THE  SOURCE  VARIABLE  ♦00039810 

C*  Hh     THE  INCREMENT  IN  SOURCE  VARIABLE  OR  THE  STEP  SIZF  ♦00039820 

C^  YY     THE  TARGET  VARIABLES  UPDATED  BY  TMIS  ROUTINE  ♦00039830 

C+  YYP    THE  ARRAY  OF  FIRST  DERIVATIVES  OF  THF  TARGET  VARIABLES  ♦000398A0 

C+  COMPUTED   IN   THE  SUBROUTINE  DAUX  ♦00039850 

IGGG  CONTINUE  00039860 

C^    METHOD  ♦00039870 

C*  THE  ROUTINE  USES  THE  t. K.BLUM  MODIFICATION  OF  THE  RUNGE-KUITA  ♦000398P0 

C*  FOURTH-ORDER  METHOD, THF  FOURTH  ORDER  (  FIXED  AND  VARIABLE  )  +00039890 

C*  ADAMS-MLULTON  PREDICTOR  -CORRECTOR  METHOD.  +00039900 

C+  +00039910 

C+  REMARKS  +00039920 

C*  BEFORE  EXECUTING  THE  FIRST  PINTI  CALL,  THE  USER  MUST  INITIALIZE  +00039930 

C+  X,HH,  AND  EACH  OF  THE  TARGET  VARIABLE.  +00039940 

C+  +00039950 

C*  THF  SECOND  ENTRY  POINT  {  IN=2  )  MAY  BE  USED  ANY  NUMBER  OF  TIMES+00039960 

C*  AFTER  THE  FIRST  PINTI  CALL  (IN=1)  TO  INTEGRATE  ONE  STEP-SIZE.  +00039970 

C+  +00039980 

C+  SUBROUTINES  REQUIRED  +00039990 

C+  (  ERRMSG  )  NOT  USED,  SEE  CARD  SERIAL  NUMBER05302840  +00040000 

C+  THE  USER  MUST  PROVIDE  A  SUBROUTINE  NAMED  'DAUX*  WHICH  EVALUATES+00040010 

C*  THE  N  DERIVATIVES  OF  THF  SYSTEM  OF  N  FIRST   ORDER  OIFFERENIAL  +00040020 

C*  EQUATION  +00040030 

C*  +00040040 

C*  AUTHOR  +00040050 

C+  SQUARE  PARTEE  +00040060 

C+  AUGUST  1966  +00040070 

C*  CORNELL  AERONAUTICAL  LAB.  +00040080 
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DIMENSION  YY(1  )»YYP(1),A(1) 

DIMENSIPN  Y( 30) ,YNn ( 30 ) , YNl ( 30 ) , YN2 ( 30) ,YN3 ( 

*  YPN(30),YPN1(30),YPN2(30),YPN3(30) 
DOUBLE  PRECISION  H ,DY, Y, YNO, YN , YNl , YN2 t YN3, Y 

♦  YPN3»DABS,P,U 
EQUIVALENCE  ( YPNO ( 1 )  ,P ( I )  ) 
EQUIVALENCE  (YNO(l),t){l)) 


MnDE=0      VARIABLE  ADAMS  MOULTON  METHOD 

Ml)DE=  1      FIXED  RUNGt-KUTTA 

MaDE=  2      FIXED  ADAMS  MOULTON  METHOD 

1  INN  =  IN 

GO  TO  (2,50) ,INN 

2  NMODE  =  MODE  ♦  1 
NDO  =  1 

NGO  =  1 
NSS  =  1 

3  GO  TU  (8»50,5) ,NMODE 
5  NGO  =  2 

GO  TO  50 

SET  UP  VARIABLE  MODE  PARAMETERS 

8  NGO  =  3 

EMAX  =  AbS(A(l)) 

IF  ( EMAX.EO.C.O)  EMAX  =  .lfc-03 

EMIN  =  EMAX  *  ,01 

IF  ( A(2).NE.0.0)  EMIN  =  EM AX/ABS( A ( 2 ) ) 

AA  =  AB$(A(3)) 

IF  (AA.EQ.0.0)  AA  =  l.C 

HMAX  =  ABS(A(4)) 

IFCHMAX.EQ.O.O)  HMAX  =  lO.F+03 

HMIN  =  ABS(A(5) ) 

IF  (HMIN. EQ. 0.0)   HMIN  =  .lE-06 

BETA  =  A0S(A(6)) 

IF  (BETA. GE. 1.0  .OR.  BETA. LE. 0.0)  BETA  =  .5 

NMSG  =  0 


50  GO   TO  (  100,  111,  200,  300 

FIXED  RUNGt  -  KUTTA 
100  DO  102   I=1,N 
U(I)  =  0.0 
Yd)  =  YY(I) 

102  CONTINUE 
NSTEP  =  0 

103  CALL   DAUX 
106  XOO  =  X 

H  =  HH 

IF  (NGO.EQ.l)  GO  TO  110 


)  ,  NDO 
INITIALIZATION 


♦00040090 
♦♦********************00040 100 

OOOAOUO 
30),YPNO{30) ,YN(30),  00040120 
, POO), 0(30)  00040130 

PN0,YPN,YPN1,YPN2,     00040140 

00040150 
00040160 
00040170 
00040180 
00040190 
00040200 
00040210 
00040220 
00040230 
00040240 
00040250 
0004CP60 
00040270 
00040280 
0004CP90 
00040300 
00040310 
00040320 
00040330 
00040  340 
00040350 
00040360 
00040370 
00040380 
00040390 
00040400 
00040410 
00040420 
00040430 
00040440 
00040450 
00040460 
00040470 
00040480 
00040490 
00040500 
00040510 
00040520 
00040530 
00040540 
00040550 
00040560 
00040570 
00040580 
00040590 
00040600 
00040610 
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c 
c 
c 


108 


1C9 
110 


111 


112 


113 


115. 
lib 
117 


120 


121 


125 


XN3  =  X 
DO  109   1=1, N 
YPN3(I)  =  YYPd  ) 
YN3( T)  =  YY( I) 

CONTINUE 

NDO  =  2 

IF  (    NSS  .£0. 


1  ) 


RETURN 


ONE   POINT   iNTt&RATE 

XOO  =  X 

H  =  HH 

DO  112   1=1, N 

DY  =  YYP( I) 

P (I )  =  H*CY 

Yd)  =  Y(  I)  +  .500*P(I) 

C(I  )  =  P(I) 

YY(I  )   =  Yd  ) 
CONTINUE 

X  =  XUn  +   .3  *  HH 
CALL   DAUX 
DO  115   1=1, N 
DY  =  YYP( I) 
Pd)  =  H*DY 

Yd)  =  Y(  I  )  +  .5D0*P(  I)-.5D0*0(I) 
Q(I)  =  Od)/6.DO 

YYd)   =  Yd  ) 
CONTINUE 
CALL   DAUX 
DO  120   1=1, N 
DY  =  YYP( I) 
P(I)  =  H*DY-.5D0*P(I  ) 
Yd)  =  Y(  I)+P(  I) 
Oil)     =  Od)-P(  I) 

YYd)   =  Yd) 
CONTINUE 
X  =  XOO   +   HH 
CALL   DAUX 
DO  125   1=1, N 
OY  =  YYPd) 
Pd)  =  H*DY  +  2.0*P(I) 
Yd)  =  Yd)  +  Qd)+Pd)/6.0D0 

YYd)   =  Yd) 
CONTINUE 
CALL   DAUX 

END  OF  FIXED  STEP  RUNGE  -  KUTTA 


130 
135 


IF   (  N&D    .EG.  1 
NSTEP  =  NSTEP  +  1 
GO  TO  (136,140,145), 


RETURN 


NSTEP 


00040620 
00040630 
00040640 
00040650 
00040660 
00040670 
00040680 
00040690 
00040700 
00040710 
00040720 
00040730 
00040740 
00040750 
00040760 
00040770 
00040780 
00040790 
00040800 
00040810 
00040820 
00040830 
00040840 
00040850 
00040860 
00040870 
00040880 
00040890 
00040900 
00040910 
00040920 
00040930 
00040940 
00040950 
00040960 
00040970 
00040980 
00040990 
00041000 
00041010 
00041020 
00041030 
00041040 
00041050 
00041060 
00041070 
00041080 
00041090 
00041100 
00041110 
00041120 
00041130 
00041140 
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c 

00041150 

c 

SET  UP  THRfct  POINTS  FOR  ADAMS.MOULTON •$ 

00041160 

c 

/ 

00041170 

136 

XN2  =  X                                                  / 

00041160 

DO  13b   1=1, N                                           / 

00041190 

YPN2(I)   =   YYPd) 

00041200 

13B 

YN2(  I)  =  Yd) 

00041210 

RETURN 

00041220 

140 

XNl  =  X 

00041230 

DO  142   1=1, N 

00041240 

YPNl(I)   =   YYPd)                                                  / 

00041250 

YNK  1)  =  Yd) 

00041260 

142 

CONTINUF 

00041270 

RETURN 

00041280 

143 

XN  =  X 

00041290 

DO  146   I=1,N 

00041300 

YNd  )  =  Yd) 

00041310 

YPN  (I)   =   YYPd) 

00041320 

146 

CONTINUE 

00041330 

NSTEP  =  0 

00041340 

NFIRST  =  1 

00041350 

NCRt  =  0                ^ 

00041360 

NDO  =  NGO  +  1 

00041370 

RETURN 

00041380 

c 

00041390 

c 

00041400 

c 

FIXED  ADAMS  MOULTON  PREDICTOR  METHOD 

00041410 

c 

00041420 

200 

XOO  =  X 

00041430 

H  =  HH 

00041440 

X  =  XOO   +   HH 

00041450 

DO  220   1=1, N 

00041460 

Yd)  =  YNd)+H*(55.D0*YPN(I)-59.D0*YPNld)+37.D0*YPN2d)-9.0D0* 

00041470 

4    YPN3d)  )  /  24. DO 

00041480 

YYd)   =  Yd) 

00041490 

220 

CONTINUE 

00041500 

CALL   DAUX 

00041510 

DO  225   1=1, N 

00041520 

DY  =  YYPd) 

00041530 

Yd)  =  YNd)+H*(9.D0*DY    +19.  DO*YPN<  I ) -5  .DO*YPNl  d  )  ♦YPN2  (I  ) ) 

00041540 

1 

5     /  24. DO 

00041550 

YYd)   =  Yd) 

00041560 

225 

CONTINUE 

00041570 

CALL   DAUX 

00041580 

DO  250   1=1, N 

00041590 

c 

SAVE  VALUES 

00041600 

YPN3<I)  =  YPN2(I) 

00041610 

YPN2d)  =  YPNld) 

00041620 

YPNld)  =  YPN(I) 

00041630 

YPNd)    =    YYPd) 

00041640 

YN3d)  =  YN2d) 

00041650 

YN2(  I)  =  YNKI) 

00041660 

YNK  I)  =  YNd) 

00041670 

221 


YN(I)  =  Yd) 

25)0 

CONTINUE 

251 

XN3  =  XN2 

XN2  =  XNl 

XNl  =  XN 

XN  =  X 

RETURN 

C 

C 

VARIABLE  ADAMS  MGULTON  METHOD 

C 

C 

300    XOO    =    X 
H    =    HH 

X    =    XOO       +       HH 
00    364       1=1, N 
Y(I)=    YN(I)+H*(55.D0*YPN(I)-59.D0*YPNl(I)+37.D0*YPN2(I>-9.DO* 

6  YPN3( I) )     /    24. DO 
YY(I)       =    Yd  ) 

Pd)     =    Y(  I) 
364    CONTINUE 

CALL       DAUX 

DO    365       l=ltN 

DY    =    YYPd) 

Yd)    =    YNd)+H*(9.D0*DY  +19.  DO*YPN  (  I  ) -5.D0*YPN1  (I  )  ♦YPN2  (I  )  ) 

7  /    24. DO 
YYd  )       =    Yd) 

36£>    CONTINUE 

CALL       DAUX 


END    VARIABLE    ADAM    MOULTON 

ERROR    =    0.0 
DO    370       I=ltN 
PKFD    =    S\'GL(Pd)) 

SAVE    VALUES 
YPNOd  )    =    YPN3d) 


366 


YPN3(I ) 
YPN2d) 
YPNld) 
YPN( I) 
YNOd) 
YN3(I) 
YN2(I) 
YNK  I) 
YNd  ) 


YPN2(I ) 
YPNld) 
YPN( I) 
=    YYPd) 
=    YN3d) 
=    YN2(I) 
=    YNld) 
=    YN( I) 
=    Yd) 


370 

37b 


DD  =  AMAX1(ABS(SNGL( Y( I)  )),AA) 

DERR  =  ABS(PRED-SNGL(Yd)))/d4.0*DD) 

ERROR  =  AMAXKERRORtDERR) 

CONTINUE 

XNO  =  XN3 

XN3  =  XN2 

XN2  =  XNl 


00041680 
00041690 
00041700 
00041710 
00041720 
00041730 
00041740 
00041750 
00041760 
00041770 
00041780 
00041790 
00041600 
00041810 
00041 B20 
00041830 
00041840 
00041850 
00041860 
00041670 
00041880 
00041890 
00041900 
00041910 
00041920 
00041930 
00041940 
00041950 
00041960 
00041970 
00041980 
00041990 
00042000 
00042010 
00042020 
00042030 
00042040 
00042050 
00042060 
00042070 
00042080 
00042090 
00042100 
00042110 
00042120 
00042130 
00042140 
00042150 
00042160 
00042170 
00042180. 
00042190 
00042200 


222 


XNl  =  XN 

XN  =  X 

c 

ERROR  TESTS 

c 

301 


306 


315 
316 


ADAMS  MDULTON 


IF  (ERROR. GT.EMAX)  GO  TO  315 

NFIRST  =  2 

IF  (ERROR. LT.EMIN)  GO  lU  330 

NFIRST  =  2 

NCRE  =  0 

RETURN 

REDUCE  STEP  SIZE 


NSS  =  2 

NCRL  -  0 

HH  =  HH*BETA 

IF(  ABS(HH)  .GT.   HMIN   ) 

HH  =  SIGN(  HMIN,  HH   ) 

IF  (NMSG.NE.O)  GO  TO  306 


GO   TO   319 


317 


CALL  ERRMSGdO   »39H   MINIMUM  STEP  SIZE   IN   PINTl 

WRITE( 6,317) 

FORMAT(28H0  MINIMUM  STEP  SIZE  IN  PINTl) 


NMSG  =  1 

c 

A(l)  =-A(l) 

319 

GO  TO  (     320,32b),  NFIRST 

c 

ERROR  FIRST  VARIABLE  POINT 

320 

X  =  XNO 

DO  321   1=1, N 

YY(I)  =  YNO(I) 

321 

CONTINUE 
GO  TO    100 

c 

ERROR  DURING  VARIABLE  MODE 

325 

X  =  XNl 

DO  327   1=1, N 

YY(I  )  =  YNKI) 

327 

CONTINUE 
GO  TO    100 

INCREASE  STEP  SIZE  HERE 

330  NSS  =  1 

NCRE  =  NCRE  +  1 

IF  (NCRE.LE.2)  RETURN 

NOW  INCREASE 
335  NCRE  =  0 

HH  =  SIGN(AMINl(AbS(HH/BETA) ,HMAX),HH) 

GO  TO  106 

END 


00042210 
00042220 
00042230 
00042240 
00042250 
00042260 
00042270 
00042280 
00042290 
00042300 
00042310 
00042220 
00042330 
00042  340 
00042350 
00042360 
00042370 
000423P0 
000'!.2390 
00042400 
00042410 
00042420 
00042430 
00042440 
00042450 
00042460 
00042470 
00042480 
00042490 
00042500 
00042510 
00042520 
000^2530 
00042540 
00042550 
00042560 
00042  570 
00042580 
00042590 
00042600 
00042610 
00042620 
00042630 
00042640 
00042650 
00042660 
00042670 
00042680 
00042690 
00042700 
00042710 
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DATE       01/19/76  TIME       0947  UPDATE    RECORD 


SUBROUTINE    PLOTTP(IPLT)  PLOTOOIO 

COMMON/INPT/PHIO,THETAOtPSIO,PO,00,RO,XCOP,YCOP,ZCOP,UO,VO,WO,  PLOT 00 20 

1  A,B,DEL10,DEL20,DEL30,PHIRO,DEL10D,DEL20D,DEL30D,  PL0T0030 

2  PHlROD,TF,TR,ZF»ZRtRHO,AKRStXMUR,  PL0T0040 

3  XMS,XMUF,XIXtXlYtXIZ,XlXZ,CF,AKF,XLAMF,0ME&F,CFP,EPSF,PL0TG050 

4  RF,CRtAKRtXLAMR,OMEGRtCRP,tPSR,RRfTS,THMAX,DTCOMP,TO,    PLOT 00 60 

5  Tl,DTCMPl,DTPRNT,MOOEtEeAR,EM,AAA,HMAX,HMIN,BET,Gi  PL0T0070 

6  HED(36),DADE ( 3) ,XIR t XI , Yl , Zl ,X2f Y2, Z2, PHIC (50) ,DELB,       PLOT  00 80 

7  DELE,DDEL,NDEL,PSIF(50) ,TQF { 50) ,TOR ( 50 ) ,TB tTEt TINCR,       PLOT 0090 

8  NZTAb,NZ5,XBDRY(4,5) ,PSBDRY(4.5) ,YBDRY(2t5),NBX(5)t  PLOTOIOO 

9  NBY(5),NTBLl,NTbL2,NTBL3,ZGP{21,21,5)  PLOTOllO 
COMMON/INPT/XB(5),XE(5),XINCR(5) ,NX (5 ) t YB ( 5 ) t YE( 5 > , YINCR (5 ) tNY(5 ) t PL0T0120 

1  XXZGP5(21),YYZGP5(21) t AMUG( 5 ) tPSBDR0(4,5 ) ,UVWMIN ,PORMIN    PL0T0130 

COMMON    /INTG/NEQtT,DT,VAR(50) ,DER(50)  PL0T0140 

EQUIVALENCE     (U,VAR(1)) ,(V,VAR(2) )* (W,VAR(3)) , (P,VAR(4) ), (Q,VAR(5) )PLOT0150 

1  ,  (R,VAR(6)) ,(DhLltVAR(7)), ( DEL  ID, VAR ( 8 ) ) ,( DEL2, VAR (9) ) ,PL0T0160 

2  (0EL2D,VAR(10)),(DEL3,VAR(11) ),(DEL3D,VAR( 12)) ,  PL0T0170 

3  (PHIR,VAR( 13) ),(PHIRD,VAR(14) ),(THETTP,VAR(15) ),  PL0T0180 

4  (PHITP,VAR(16)),(PSITP»VAR(17) ),(XCP,VAR(18) ),  PL0T0190 

5  (YCP,VAR(19) )  ,(ZCP,VAR(20)),(PSIFI,VAR(21) ),  PL0T0200 

6  (PSIFID,VAR( 22))  PL0T0210 
EQUIVALENCE     (UU,DER( 1)  ), (UV,DER(2)  ) ♦ ( DW,DER( 3 ) ) , ( DP ,DER ( 4) ) ,  PLOT0220 

1  (DQ,DER(5)  ), (DR,DER(6) ) , (ODELl ,DER(7) ) , (DDELID ,DER ( 8 ) )PLOT0230 

2  , (DDEL2,DER(9)),(DDEL2D,DER(10)),{DDEL3,DER(11) ),  PL0T0240 

3  (DDEL3DtDER( 12)),(DPHIR,DER( 13)) , (0PHIRD,DER(14)),  PLGT0250 

4  (DTHTTP,DER(15)), (DPHITP,DER(16) ) ,(DPSITP,DER(17) )t  PLOT0260 

5  (DXCP,DER(18)),«DYCP,DtR(19) ),(0ZCP,DER(20)),  PL0T0270 

6  (DPSIFI,DER{ 21)), (DDPSFI,DER(22) )  PL0T0280 
EQUIVALENCE     (VAR(9),PHIF  ),(VAR(10) ,PHIFD) , (DER( 9 ), DPHI F ) ,                          PL0T0290 

1  (DER(IO) ,DPHIFD)  PL0T0300 

EQUIVALENCE     (VAR( 13) ,DEL4) , ( VAR ( 14 ) ,DEL4D ) , ( DER( 13 ) ,DDEL4) ,  PLOT  03 10 

1  (DER( 14) ,DDEL4D)  PL0T0320 

COMMON    /DIM V/X 1 P, X2P, X3  P,  X4P, Yl P, Y2P,Y3P,Y4P,Z IP, Z2P,Z3P,Z4P, PHI 1, PLOT  0330 

1  PHI2,PHI3,PHI4,PSI1,PSI2,PSI3,PS14,CAYW(4),CBYW(4),       PL0T0340 

2  CGYW(4) ,ZPG1(4) ,THGI( 4) , PHGI ( t) ,CPG(4 ) ,SPG(4) ,CTG(4 ) ,PL0T0350 

3  STG(4),CAGZ(4),CBGZ(4),CGGZ(4),D1(4),D2(4),D3(4) ,  PL0T036O 

4  XLM1(4) ,XLM2(4),XLM3(^),AMTX(3,3),CMTX(3,4),XGPP(4),    PL0T0370 

5  YGPP(4) ,ZGPP(4),DMATX(10,ll)tDELTA(4),CAR(4),CBR(4),     PL0T0380 

6  CGR(4),FR(4),HI{4),FC(4),TI(4»,AX(4),BX(4),CX(4),  PL0T0390 

7  CTXG(4) ,UG(4),STXG(4) ,AY(4),BY{4),CY(4),CPYG(4),  PL0T0400 

8  SPYG(4)  ,VG(4),PSIIP(4),PHICH4)  ,CAC(4)  ,CBC(4)  ,CGC  (4)  ,PL0T04l0 

9  FCXU(4) ,FCYU(4),FCZU(4),FS(4),CAXW(4) ,CBXW(4) ,CGXW(4) PL0T0420 
COMMON    /DIMV/AS(4),BS(4) ,CS (4) ,CAS ( 4) ,CBS (4) ,CGS (4) ,BETP (4 ) ,  PL0T0430 

1  BETBR(4),FSXU(4),FSYU(4),FSZU(4),FRXU(^),FRYU(4),  PL0T0440 

2  FRZU(4),FXU(4),FYU(4)  ,FZU(4),SU4),F1FI(2),F1RI(2»,       PL0T0450 

3  F2FI(2)  ,F2RI(2),CAH(4),CBH{4),CGH(4)  PL0T0460 
DIMENSION  XP(4) ,YP(4),ZP(4),PHII(4),PSII(4)  PL0T0470 
EQUIVALENCE    (XP( 1 ) ,X IP ), ( YP( 1 ) , YIP ) ,( ZP( 1 ) ,Z1P) , (PHII ( 1 ) ,PHI1 ) ,  PLOT 0480 

1  (PSII(1),PSI1)  PLOT0490 
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COMMON    /COMP/SUMMtTHbTN,PHIN,PSINf PIfRADfGAMl,GAM2 ,GAM3»GAM4,GAM5 , PL0T0500 

1  GAM6,GAM7,GAM6f&JVM9,THETT,PHIT,PSlT,ZR0,TR02,  PL0T0510 

2  TF02,TIZ,RH02,RH0MURtAMUF,BMURtZPRtTM4,RHMR2, A02APB»  PL0T0520 

3  B02APB,RFTF  ,TS02,RRTSf BR0MUR,XMUF02,AXMF02tXMTF04,  PL0T0330 

4  XIZRtRTR,RHMR2ItXIXPtXlZP,XIXZPf XIYZPtDlPU2»DlMD2,  PL0T0340 

5  ZRD3f ZR03Rf  ZFD3R,ZFD12,TIZ2 , TG6I ,DD1P2 tDDIM2, RPR ,PHRPPLGT05  50 

6  ,TANTP,SPHTP,CPHTP,SECTP,SFXS,SFYS,SFZS,SNPSfSNTS,  PL0T0560 

7  SNPSS,TPR,CAY,CBY,C&Y,CAX,CBX,CGX,SFYU,SFXUtSFYUF,  PLOTG570 

8  SFYURtSFZUf COSTH,SINTH,COSPStSlNPSfCOSPH,SINPH,ANGl ,  PL0T0580 

9  ANG2,CPHI,SPHl,CPSI,SPSI,Pl,P7,P3,P4,P5tP6,TX,TY,TZ  PL0TG590 
COMMON    /C0MP/TRH,DISTX,DISTY»DISTD,DISTSfD21,ZETA4,ZETA4D,ZETA3,  PLOT 06  00 

1  ZETA3D,SFZ1 ,SNPU,SNTUtHCGHl,HCGH2,HCGH3fHCGH't,TERMl ,  PL0T06  10 

2  TERM2»SNPSU,SNPRfHCBHl,HCBH2tHCBH3tHCBHA,HCAHltHCAH2tPL0T06  20 

3  HCAH3tHCAH4,UQ»WP,UR,QR,VP,PR»P2 t&2,R2,VR,W0»Ptj,PHIR2PL0T06  30 

4  ,PHIRD2,RPhRD,GCTH,GSTHtGCTSP,GCTCP,XXXtYYY,lXrIY,XXl,PL0T06  40 

5  XX2,YY1,YY2,1H&1,THG2,PHG1,PHG2,ZZ1,ZZ2,LLL  PL0T0650 
DIMENSION  HCAH(41,HCBH(4),HCGH(A)  PL0T0660 
EQUIVALENCE  (HCAH ( 1 ) ,HCAH1) . ( HCBH( 1 ) ♦ HCBHl ) , ( HCGH ( l),HCGhl )  PLOT 06 70 
COMMON  /COMPN/  FRSP ( 4) ,F RCP ( 4 ) , I CBHIT , JC6H1T ,  PL0T0680 

1  DP$INT,TANPC1,TANPC2,PH1C1R,PHIC2R,AMUCMP,PHI1D,  PL0T0690 

2  PHI2D,LCB1(4) ,LCB2(4),IHIT,AJMTX(3,3),BMTX(3,3),  PL0T0700 

3  SFRX(4)  ,SFRY(4),SFRZ(4) ,T1PSI,T2PSI fXMUGI(4)  PL010710 
LOGICAL  LCB1,LCB2  PL0T0720 
COMMON    /TIRIN/    AKT (4 ) , SI GT (4 ) ,XLAMT (4 ) , AO ( 4 ) , Al (4) ♦ A2( 4 ) » A3 (4 ) ,  PL0T0730 

1  A4(^) ,QMEGT(4) ,AMU(4),RW(4) ,FJP(35,4» ,A234«4),  PL0T0740 

2  A12(4),0MT2A2(4),0MT2M1(4)  ,A23{A^),ITIR(4)  PL0TO75O 
DIMENSION  IC0NTW(4)  PL0T0760 
DATA    TTTTTT/-9999.0/  PL0T0770 

1  GO    TO     (2,3,4),IPLT  PL0TC780 

2  WRITEd  )HED,DADE,A»B,TS»ZRtRHC,ZF,RW(l),TF,TR  PL0T0790 
RETURN  PL0T0800 

3  00  6  J=l,4  PLGTOeiO 
IF(FRCP(  J)  .GT.O.OI)  GO  TO  5  PLOTObi^O 
ICONTW(J)  =  0  PLCT0830 
GU  TO  6  PL0TCb4G 
ICONTW(J)  =  1  PLQTOe^O 
IF(ABS(BETBR(J) ),GT.3.0)  1C0NTW(J)=-1  PLDTOfetG 
CONTINUE  PL0T0870 
WRITE (  1)    T,XCP,YCP,ZCPfPHlT,THETT,PSIT,DELl,DEL2,DEL3,PHlR,PSIl,  PLOT  06 80 

1    PHIl,PHI2t (XGPP(J)»YGPP(J),ZGPP(J),J=1,4),IC0NTW  PLOT0e90 

RETURN  PLOT0900 

4  WRITEd)  (TTTTTT,I  =  1,30)  PL0T0910 
RETURN  PL0T0920 
END  PL0T0930 
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DATE   01/12/76 


TIME   1729 


UPDATE  RECORD 


SUBROUTINE    POLY (CO,C tX ,Y ,C1 )  POLYOOIO 

C  HV0SM-RD2   VERSION  P0LY0020 

C  REVISED   OCTOBER    1<»75         CALSPAN    CORPORATION  P0LY0030 

C  SINGLE    VEHICLE    ACCIDENT    SIMULATION   -    SUBROUTINE    POLY  P0LY0040 

C  SUBROUTINE    TO    FIND    ROOT    OF   FIFTH    DEGREE    POLYNOMIAL    USING    NEWTON-       POLY0050 

C  RAPHSON    METHOD  POLY0060 

DIMENSION   C(5)  P0LY0070 

1  C2  =  CO-Cl  POLYOOBO 
Z  -  X~Y  POLY 00 90 
KK    =    0  POLYOIOO 

2  KK  =  KK+1  POLYOllO 
IF(KK.GT,100)G0  TC  8  P0LY0120 
P  =  C2  P0LYO130 
PP  =  0,0  POLYOIAO 
XX  =  1.0  POLYOl&O 
YY    =    Z  P0LY0160 

3  DO  5  1=1 t5  P0LY0170 
P  =  P+C(I)*YY  P0LY0160 
PP  =  PP+C(I)*XX*I  P0LY0190 
XX  =  YY  POLY  02  00 
YY    =    YY*Z  P0LY0210 

5    CONTINUE  P0LY0220 

7  HI  =  P/PP  P0LYO2  30 
Z  =  Z-Hl  P0LY0240 
IF(ABS(H1/Z).GT.1.0£-6)G0   TO    2  P0LY0250 

8  Y  =  X-Z  P0LY0260 
RETURN  POLY  02  70 
END  PCLY02  80 
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SUBROUTINE    RESFRC  RESFGOIO 

C  HV0SM-RD2    VERSION  RESF0020 

C  REVISED    CCTObER     1975         CALSPAN    CGRPORATICN  RESF0030 

COMMON    /INTG/NtQtT,DT, VAR(50) tDER(50)  RESF0040 

EQUIVALENCE     (U.VARd )) ,< V,VAR(2) )t(W.VAR(3)) , (P,VAR{4)  ), (Q,VAR(5)  )RESFOObO 

1  , (R,VAR(6)) ,<D£LlfVAR(7) ),(DEL1D,VAR(8)) , (DELZ, VAR (9) ) ,RESF0060 

2  (DEL2DtVAR(10)),(DEL3,VAR(U)  )  ,(DEL3D,VAR(  12))  t  RESF007G 

3  (PHIR,VAR( 13) ),(PHIRD,VAR(14) ),(THETTP,VAR(15) ).  RESFOOPO 

4  (PHITP,VAR(16)) ,(PSITP,VAR(17)  ),(XCP,VAR(18)),  PESF0090 

5  (YCP,VAR(19) ) ,(ZCP,VAR(20)),(PSIFI,VAR(21) ),  RtSFOlOO 

6  (PS1FID,VAR( 22) )  RESFOllO 
EQUIVALENCE     (DU, DER( 1 )  ) , ( DV,DER ( 2 )  ) , ( DW, DER ( 3  )  )  ,  (DP ,DER (4)  )  ,                  RESF0120 

1  (DQ,DER(:>)  ),  (DR,DER(6)  )  ,  (  DDEL  1  ,DER  (7  )  )  ,  (DDELID  ,DER  (&  )  )  RE  SFOi  30 

2  , (DDEL2,DER(9) ),(DDEL2D,DER(10) )♦ (DDEL3,DER(11) ),  RESFOllO 

3  (D0EL3DtDER(  12))  t(DPHIR,DER(  13)),  (DPHIRD,DER{14)  ),  RESFOli-0 

4  (DTHTTP,DER(  lf>)),  (DPHITP,DER(  16)  )  ,(DPSITP,DEK(17)  )  ,  RESF0160 

5  (DXCP,DER( 18  )  ).(DYCP,UER(19) )  ,(DZCP,DER(20))  ♦  RESFC170 

6  (DPSIFI,DER( 21) ), (DDPSFI,DER(22) )  RESFOlbO 
EQUIVALENCE     ( VAR ( 9 ) , PHIF ) , ( VAR ( 10)  .PHIF D) ,  ( DER ( 9  )  , DPHI F ) ,  RE SFOI 90 

1  (DER(IO)  ,DPHIFD)  RESF020Q 

EQUIVALENCE     (VARC 13)  ,DEL4),(VAR( 14),DEL4D) , { DER ( 13  )  ,00 EL4 ) ,  RtSF0210 

1  {DER(14) tUDELAD)  RFSF0220 

COMMON    /DIMV/XlP,X2P,X3<>fX4P,YlP,Y2P,Y3P»Y4P,ZlP,Z2P,Z3PtZ4P,PHIl,RESFG2  30 

1  PHI2,PHI3,PHI4,PSI1 tPSI2tPSI3f PS14,CAYW(4),CbYW(4),       RESF02A0 

2  CGYW(4)  ,ZPGI(4),THGI(4),PHGI(4) ,CPG(4) ,SPG(A)  ,CTG(4) ,RESF02  50 

3  STG(4),CAGZ(4),CBGZ(4),C&GZ(4),01(4)tD2(4)tD3(4) ,  RESF0260 

4  XLM1(4) ,XLM2(4),XLM3(4),AMTX(3,3),CMTX(3,4),XGPP(4),    RESF0270 

5  YGPP(4)  ,ZGPP(4),DMATX(10»I1)  tDELTACA)  ,CAR  (  4  )  ,  CBR  (  4)  ,    RE  S*^  02  60 

6  CGR(4),FR(4),HI(4) ,FC(4) ,TI(4),AX(4),BX(4)tCX(4),  RESF0290 

7  CTXG(4) ,UG(4),STX&(4),AY(4),BY(4),CY(4),CPYG(4),  RESF0300 
b  SPYG(4) ,V&( 4),PSIIP<4) ,PHICI(4) ,CAC(4) ,CBC(4) ,CGC(4) ,RtSF03  10 
P                                      FCXU(4) ,FCYU(4)tFCZU(4),FS(4) ,CAXW(4)  tCBXW(4)  ,CGXW( 4 )RE SF0320 

COMMON    /DIMV/AS(4) ,bS ( 4) ,CS (4 ) , C AS (4) ,CBS ( 4 ) ,CGS (4 ) ,BE TP (4 ) ,  RE SF 03 30 

1  BETBR(4),FSXU(4),FSYU(4),FSZU(4) ♦FRXU(4),FRYU«4),  RESF0340 

2  FRZU(4)  ,FXU(4),FYU(4) ,FZU(4),SI(4),F1FI(2),F1RI(2),       RESF0350 

3  F2FI(2) fF2RI(2),CAH(4)»CBH(4) ,CGH(4)  RESFOScO 
DIMENSION  XP(4)»YP{4),ZP(4),PHII(4),PSII(4)  RESF0370 
EQUIVALENCE     (XP(1),X1P), ( YP( 1 ) , YIP  I , ( ZP( 1 ) ,Z1 P) , (PHII ( 1) ,PHI1),          RESF0380 

1  (PSII(1),PSI1)  RESF0390 

COMMON    /C0MP/SUMM,THETN,PHlNfPSINtPItRAD,6AMl,GAM2,GAM3,&AM4,GAM5,RESF0400 

1  GAM6,GAM7,GAM8,GAM9,THETT,PHIT,PSIT,ZR0,TR02,  RESF04I0 

2  TF02tTI Z,RH02,RH0MURtAMUF,BMUR,ZPRtTM4,RHMR2tA02APBf    RESF042G 

3  B02APB,RFTF fTS02tRRTS,BROMURfXMUFO2,AXMFC2tXMTFC4,  RESF043G 

4  XIZR,RTR,RHMR2ItXIXP,XIZP,XIX2P,XIYZP,DlPD2,DlMD2,  RESFG440 

5  ZRD3,ZRD3R,  ZFD3R t ZFD12tTIZ2t TG61 ,DD1P2 tDDlM2, RPR ,PHR PRESF04bO 

6  ,TANTP,SPHTPfCPHTPtSECTP.SFXS,SFYS,SFZS,SNPStSNTSt  RESF0460 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYU,SFXU,SFYUF,  RESF0470 

8  SFYURtSHZUf CCSTH,SINTH,COSPS»SINPStCOSPH»SINPH,ANGlf    RESF0480 

9  ANG2,CPHl,SPHltCPSI,SPSIfPlrP7»P3,P4,P5,P6,TX,TY,TZ       RESF0490 
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COMMON    /C0MP/TRH»DISTX,DlSTY,DISTD,DISTS,D21fZETA4,ZETA4D,ZETA3t  RE SF 05 00 

1  ZETA3D,SFZl,SNPU,SNTUfHCGHl,HCGH2,HCGH3,HCGHH,TERMl,  RESF0510 

2  TERM2,SNPSU,SNPRtHCBHl,HCbH2,HCBH3,HCBH4,HCAHl,HCAH2tRESF05  20 

3  HCAH3,HCAHA-fUQ,WP,UR»QRtVP,PR,P2,Q2tR2»VRtWQ,PQ,PHlR2RESF0S»30 

4  ,PHIRD2»RPHRD,GCTH,GSTH,GCTSP,GCTCP»XXX,YYY,IX,IY,XX1,RESF0540 

5  XX2,YYi,YY2,THGltTHG2,PH6l,PH&2f ZZl.ZZ2tLLL  RESF0550 
DIMENSION  HCAH(4),HCBH(4),HCGH(4)  RESF0560 
EQUIVALENCE  (HCAH(l) ,HCAH1) , (HCBH( 1 ),HCBHI) , ( HC&H( 1 ) ,HCGH1 )  RE SF 03 70 
COMMON    /INPT2/    YBPO,  ZB  Tk^,  ZBBP  ,XVF,  XVR,YV  ,ZVT  t  ZVB  ,AKV,  S  IGR(  11 )  ,  RESF0580 

1  SETtCONS,AMUB,EPSVf EPSB,XM,£PST,DDDtINDBf DELYBP,  RESF0590 

2  DELTB.XLNPTdOO)  RESF0600 
COMMON/BAR lER/FN, I BHIT,JBHIT,XCPNP( 3) ♦YCPNP(3),ZCPNP (3 ),XCPN(3),  RESF0610 

1  YCPN(3),ZCPN(3),AA1(17),BB1(17),CC1( 17),RR1(17),  RESF0620 

2  AA2( 17),B62(17),CC2(17) ,RR2( 17),CAB,CBB,CGB,CABTf  RESF0630 

3  CbBT,CGBT»RB,XBT,YbT,ZbT,XBB,YBB,ZBb,RR2P{17),  RESF0640 

4  YBPT,XNN(17),YNN( 17) ,ZNN(17l,XMTX(3,A),IDPT(17) tIPT  RESF0650 

5  ,IN1ND»UNP(17),VNP(17),WNP(17),VMAX(4)»I1,I2,I3,I4,  RESF0660 

6  XCPTP,YCPTP,ZCPTP,XCPBP,YCPBP,ZCPBP,YCPMP,AINTI,  RESF0670 

7  AINTP.SXR, SYR,SZR,SDEN,XRI,YRI,ZRI,FRICT,DbLBB,VTAN,RESF06B0 

8  FNP,FB,URP,VRPfWRP,EPSL,XLDP,DELXfVL,NCYC,EEE,ENRGY,RESF0690 

9  NSEG,YbPTP»PCAB,PCBB,PCGB,PPRB,CABl,CPBl,CGBl,  RESFG700 
A  RblfNUNLD,NLDCTR,VDEF,PVDEF,PSZR,XF,DLLBBP,  RESF0710 
B                                       SW0RK»SPEN&Y,DISS,IPLN,1L0AD  RESF0720 

DIMENSION    INDXPT(4)  RESF0730 

EQUIVALENCE     ( INDXPT( 1 ) ,1 1 )  RESF0740 

COMMON/BARSTK/    XSTIO (3  ), YSTI0(3 ) ,ZSTIO ( 3 ) t XSTI ( 3 ) , YSTI (3 ) ,  RESF0750 

1  ZSTI(3) ,YSTIP0(31 fXSTIP(3) ,YSTl"??),ZSTIP(3)t  RESF0760 

2  FNSTI (3)tAKST(3)  RESF0770 
COMMON  /HARDPT/  FRICF( 4) ,UPT(4) , VPT (4) , WPT (4)  RESF0780 
DIMENSION  X(4) tY(4),Z(4) ,F(4)  RESF0790 
SFXS  =  0.0  RbSFOBOO 
SFYS  =  0.0  RESF08  10 
SFZS  =  0,0  RESF0820 
SNPS  =  0.0  RE  SF  08  30 
SNTS  =  0.0  RESF0840 
SNPSS=  0.0  RESF0850 
X(l)  =  SXR/SDEN  RtSFOBbO 
Yd)  =  SYR/SDEN  RESF0b70 
Z(l)  =  SZR/SDEN  RESFObbO 
SXR  =  XU)  RESF0890 
SYR  =  Yd)  RESF0900 
SZR  =  Zd)  RESF09  10 
Fd)  =  FN  RESF0920 
DO  4  J=l»3  RESF0930 
K  =  J+1  RESF0940 
X(K)  =  XSTI(J)  RESF0V50 
Y(K)  =  YSTKJ)  RESF0960 
Z(K)    =    ZSTKJ)  RESF0970 

■*    F(K)    =    FNSTI(J)  RESF0980 

DO    S»    J=lt4  RESF09  90 

FRICF(J)    =    0.0  RESFIOOO 
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TEMPI    =    U-R*Y(  J»+0*Z(J)  RESFIOIO 

TEMP2    =    V+R*X( J)-P*Z(J)  ReSFi020 

TEMP3    =    W+P*Y( J}-0*X(J)  .  RESF1030 

UPT(J)    =   AMTX(1,1)*TEMP1+AMTX< 1,2)*TEMP2+AMTX( l,3)*TEMPi  RfcSFlO^O 

VPT(J)    =    AMTX(2f l)*TEMPl*AMTX(2f2)*TEMP2+AMTX(2,3)*TEMP3  RESF1050 

WPT(J)    =    AMTX(3f l)*TEMPl+AMTX(3t2)*TEMP2*AMTX(3f3)*TEMP3  RESF1060 

TMPV    =    SORT(UPT( J)**2+WPT(J)**2)  RESF1070 

IF(J,EU.l)    VTAN    =    TMPV  RESFlOfaO 

TEMPI     =    0.0  RLSF  1090 

TEMP2    =    0,0  RESFllOO 

IF(TMPV.LT.EPSV)    GO    TO    6  RfcSFlllO 

AA    -    AMUB*F(J)  kESF1120 

FRICF(J)    =    AA  KESF11:>G 

AA    =    AA/TMPV  RESF1140 

TEMPI    -    -AA*UPT(J)  RESFlli.0 

TEMP2    =    -AA*WPT(J)  RESFllfcO 

CONTINUE  RESF1I7G 

FX    =    AMTX(l,l)*TEMPl-AMTX(2tl)*F(J)+AMTX(3,l)*TEMP2  RESFlltO 

FY    =    AMTX(1»2)*TEMP1-AMTX(2,2)*F(J)+AMTX(3,2)*TEMP2  RESFllSO 

FZ    =    AMTX{1,3)*TEMP1-AMTX{2,3)*F( J)+AMTX(3,3)*TEMP2  RESFlzOO 

TEMPI    =    0,  RESF1210 

TEMP2    =    0,  RESF1<:20 

SFXS    =    SFXS+FX  RESF123C 

SFYS    =    SFYS  +  FY  RE  SF  12  40 

SFZS    =    SFZS  +  FZ  RESF12;jO 

SNPS    =    bNPS*FZ*Y(J)-FY*Z (J)  RESF12tO 

SNTS    =    SNTS+FX*Z(J)-FZ*Xt J)  RESF1270 

SNPSS=    SNPSS+FY*X(J)-FX«Y(J)  RESF1260 

FRICT     ^    FRICP( 1)  RESF12S0 

URP    =    UPT(l)  RESF1300 

VRP    =    VPT(l)  RESF131G 

WRP    =    WPT( 1)  RESF1320 

RETURN  RESF1330 

END  PfcSF1340 
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SUBROUTINE    RUFFRC ( I , ZGM)  RU 

C  HV0SM-RD2    VERSION  RU 

C  HV0SM-VD2    VERSION  RU 

C  REVISED    OCTOBER    1975      CALSPAN    CORPORATION  RU 

C0MM0N/INPTl/YClPtYC2P,ZC2P,DELTCf PHIClfPHIC2tAMUC,XIPSt  RU 

1  CPSPtOMGPS, AKPS,EPSPStXPSTRWHJB,RWHJEtORWHJ,INDCRB,       RU 

2  PSIFIO,PSIFDO  RU 
DIMENSION  YCIP(2)  RU 
EQUIVALENCE  (YC  IP( 1 )  »YC1 P )  RU 
COMMON    /DIMV/X1P,X2P,X3P,X4P,Y1P,Y2P,Y3P,YAP,Z1P,Z2P,Z3P,Z4P,PHI1,RU 

1  PHI2,PHI3,PHr4,PSIl,PSI2,PSI3,PSI4,CAYW(4»,C6YW(4),        RU 

2  CGYW(4)  ,ZPGH't)tTH&l(4),PHGI(4)  ,CPG  (4  )  ,SPG(4)  ,CT&(A)  ,RU 

3  ST&(4),CAGZ(4),CBGZ(4),CGGZ(4),D1(4),D2(4),D3(4),  RU 

4  XLM1(4)  ,X,LM2(4),XLM3(^),AMTX(3,3),CMTX(3f4),XGPP(4),     RU 

5  YGPP(4) ,ZGPP(4) ,DMATX(10,11) »DELTA(4),CAR(4),CBR(4),    RU 

6  CGR(4),FR(4),Hi(4) ♦FC(4),TI(4),AX(4),BX(4),CX{4) ,  RU 

7  CTXG(4) ,UG(4)tSTXG(4) ,AY(4),bY<4),CY(4),CPYG(4),  RU 

8  SPYG(4)  ,VG(4},PSIlP(4),PHICI(4),CAC(<t)  ,CBC(  ^)  ,CGC  (4  )  ,  RU 

9  FCXU(4) ,FCYU(^),FCZU(t),FS(4) tCAXW{4) ,CBXW(4) ,CGXW(4)RU 
COMMON    /DIMV/AS(^) fBS(4) ,CS14),CAS{4),CBS(4) ,CGS<4) ,BETP(4),  RU 

1  6ETbR(4),FSXU(^) ,FSYU(4) tFSZU(*f) ,FRXU(^),FRYU(4) ,  RU 

2  FRZU(4) ,FXUt4) ,FYU(4) ,FZU{4) ,SI (4),FH^I(2),FlRI{2)t       KU 

3  F2FI(2) ,F2R1(2),CAH(h),CBH(4),CGH14)  RU 
DIMENSION  XP(4)tYP(^),ZP(4),PHlI(4) tPSII(4)  RU 
EQUIVALENCE     (XP( 1 ) ,X IP ), ( YP ( 1 ) , YiP ) , ( ZP ( 1 ) ,Z1P ) , (PHII ( 1 ) ,PHI1 ) ,  RU 

1  {PS1I(1),PSI1  )  RU 

COMMON    /C0MP/SUMM,THETN,PhIN,PSIN,PI,RAD,GAMl,&AM2,GAM3,GAM4,GAM5,RU 

1  GAM6,GAM7,GAM8»GAM9,THETT,PHIT,PSIT,ZR0,TR02t  RU 

2  TF02,TIZ,RH02,RH0MUR, AMUF,BMURtZPR»TM4,RHMR2tA02APB,    RU 

3  B02APB,RFTF,TS02,RRTS,BR0MURfXMUF02,AXMF02,XMTF04,  RU 

4  XIZR,RTR,RHMR2ItXIXP,XIZP,XIXZP,XIYZP,DlPD2,DlMD2,  RU 

5  ZRD3tZRD3R, ZF03R ,ZFD12 ,T IZ2 t T&61 ,DD1P2 , DD1M2, RPR,PHRPRU 

6  ,TANTP,SPHTP,CPHTP,SECTP,SFXS,SFYStSFZStSNPStSNTS,  RU 

7  SNPSStTPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYUfSFXUfSFYUFf         RU 

8  SFYUR,SFZUtCOSTH,SINTH,COSPSfSINPSfCGSPHtSINPH,ANGl,    RU 

9  ANG2,CPHI »SPhI,CPSI,SPSIfPlf P7,P3.P4,P5,P6,TX,TY,TZ  RU 
COMMON    /C0MP/TRH,DISTX,DISTY»DISTD,DiSTS,D21,ZETA^,ZETA4D,ZtTA3,       RU 

1  ZElA3D,SFZl,SNPU,SNTUtHCGHl,HCGH2,HCGH3,HCGH4,TERMl,    RU 

2  TERM2,SNPSU,SNPR,HCBHl,HCBH2,HCBH3tHCBH4fHCAHl,HCAH2fRU 

3  HCAH3tHCAH4tUQ,WP,UKtQR»VP,PR,P2fQ2,R2fVR,WQ,PQ,PHIR2RU 

4  ,PHIRD2»RPHRD»GCTH,GSTH,GCTSP,GCTCP,XXX,YYY,IX,IY,XX1,RU 

5  XX2fYYl»YY2,THGl.THG2,PHGl,PHG2,ZZlfZZ2,LLL  RU 
DIMENSION  HCAH(4),HCBH(4),HCGH(4)  RU 
EQUIVALENCE  (HCAH( 1 ) ,HCAH1) , (HCBH{ 1 ) ,HC6H1 ) , ( HCGH{ 1 ) ,HCGH1 )  RU 
COMMON    /COMPN/    FRSP( 4) ,FRCP(4) , ICBHIT» JCBHIT,                                                          RU 

1  DPSINT,TANPC1,TANPC2,PHIC1R,PHIC2R»AMUCMP,PHI1D,  RU 

2  PHI2D,LCB1(4) ,LCb2(4),lHlTtAJMTX(3,3)tBMTX(3,3),  RU 

3  SFRX(4) ,SFRY(4),SFRZ(4),T1PSI,T2PSI tXMUGI(4)  RU 
LOGICAL    LCB1,LCB2  RU 
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COMMON  /TIRIN/  AKT (^ ) , SI GT(4) ,XLAMT (4 ) , AO (4) , Al ( A) » A2( 4) , A3 ( A ) ,    RUFFG50G 

1  A4(4) ,UMEGT(4) ,AMU(4),RW(^) tFJP(35,4) ,A234(4),  RUFF03iO 

2  A12(4),0MT2A2(4),0MT2M1(4) ,A23(A),ITIR(4)  RUFF0L20 
COMMON  /KUFNES/  DELG .DGM AX,NEND t IRUF  RUFF0530 
DIMENSION  Z&M(22G5)  RUFFObAC 
DIMENSION  FJPP(35)  RUFFO^bO 
DO    20    N=l,35  RUFFObtO 

20    FJPP(N)    =    FJP(N,I)  RUFF0370 

SNPSI    =    SINCPSIKD)  RUFFOljfaO 

CSPSI    =    C0S(PSII(1))  RUFF0i3VG 

SNPHI     =     SIM(PHII(I))  RUFFG6G0 

CSPHI     =    COS{PHTI(I))  KUFFG610 

SFRX( I  )    =   0.0  RUFF0620 

SFRY( I  )    =    0.0  RUFFOftiG 

SFRZ(  I  )     =    0.0  RUFFOb^O 

TTAJ21     =   CSPH1*SNPS1  RUFFOb^G 

TTAJ31    =    SNPHI*SNPSI  RuFFG660 

AJMTX(1,2)     =    -SNPSI  RUFF06  70 

AJMTX(2.Z)    =    CSPHI*CSPSI  RUFFG680 

AJMTX{3,2)     =    SNPHI*CSPSI  RUFFOfeVO 

INDF     ~    0  RUFFG7G0 

IN3L    =    0  RUFFC7  1G 

MF    =    IF1X( (XP( I)-RW( I) )/DELG)  RuFFO/20 

ML    =    Ml-  +  IFIX(2.0*RW(  D/DELG)  R0FFG730 

IF(MF.Gfc.l)     GO    TO    10  RUFF07  40 

MF    =    1  RUFF07^0 

INDF    =     1  RUFFG760 

10  IF(ML.Lt.N£ND)  GO  TO  11  RUFFG770 
ML  =  NEND  RUFFG7bG 
INDL    =     1  RUFF0790 

11  DO  100  J=l»21  RUFF08G0 
THTJ  =  (-44.0+4.0*J)*KAD  RUFFOeiG 
STJ  =  SlNiTHTJ)  RUFF0820 
CTJ  =  CUS(THTJ)  KUFF0o30 
AJMTXdtl)  =  CTJ*CSPSI  KUFFG&40 
AJMTX(2fl)  =  TTAJ21*CTJ+SNPHI*STJ  RUFFGb5.G 
AJMTX(3,1)  =  TTAJ31*CTJ-<.SPHI*STJ  RUFF0e60 
AJMTX(1»3)  =  CSPHI*STJ  RUFF0670 
AJMTX(2f3)  =  TTAJ21*STJ-SNPH1*CTJ  RUFF08b0 
AJMTX(3,3)  =  TTAJ31*STJ+CSPHI*CTJ  RUFF0B9G 
DO  8  K=l,3  RUFFG9GG 
DO  7  L=lt3  RUFF0910 
BMTX(K,L)  =  0.0  RUFFG920 
DO    6    M=l,3  RUFF0930 

6  BMTX(K,L)    =    BMTX(K,L  )  +  AMTX<K,M)»AJMTX(M,L)  RUFF094C 

7  CONTINUE  RUFF0950 

8  CONTINUE  RUFF09CG 
IF(BMTX(3t3).EQ.0.0)  GO  TO  100  RUFF0970 
DO  50  M=MF,ML  RUFF096G 
ZMl  =  0.0  RUFF0990 
IF(M.LT.NEND)    ZMl    =    ZGM(M+1)  RUFFICGO 
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XM  =  DELG*(M-1) 
XMl  =  XM+DELG 

IMP  =  (EMTX( 1,3)*(ZM1-Z&M{M))/(BMTX(3,3)*DELG)) 
IF(TMPeEQ,l)  GO  TO  50 
XD  =  XM-XP(I ) 
XDl  =  XMl-XP(I) 

IF(ABS(XD).LT.O. 001. OR.AbS(XDl).LT. 0,001)    GO    TO    49 
SM    =     (ZGM(M)-ZP(I) )/XD 
SMI    =     (ZM1-ZP(I))/XD1 
SGM    =    SI&N( l.OfSM) 
SGMl    -    SIGN{  I.OtSMI) 

IF(SGM,1,T,G,0,AND.SGM1.LT,0,0)    GO   TO    50 
IF(SGM.EU.SGMl.AND.SMl.GT.SM)    GO    TO    50 
49    TMPl    =    1,0/(1.0-TMP) 

XJP    =    TMP1*(XP{I  )*BMTXa,3)*(ZGM(M)-2P(Il-XM* 
1  (ZM1-ZGM(M))/DELG)/BMTX(3,3)» 

IF(XJP.Gt,XM)    GO    TO    60 
IF(XJP.Gfc.O.O)    GO    TO    100 
GO    TO    69 

1F(XJP.LE»XM1)     GO    TO    70 
CONTINUE 
GO    TO    69 

IF(ABS(BMTX(1, 3) l.LT. 0.0001)    GO    TO    71 
HJ    =    (XJP-XPd  ))/bMTX(l,3) 
ZJP    =    ZP(I)+bMTXI3,3)*HJ 
GO    TO    72 

ZJP    =    Z&M(M)-KXJP-XM)*(ZM1-ZGM<M))/DELG 
HJ    =    UJP-ZP(I  ))/BMTX(3,3) 
XJP    =    XPd) 
GO    TO    72 
ZJP    =    0.0 

XJP    =    XP(I)-BMTX(1,3)*ZP(I)/BMTX(3,3) 
HJ    =    -ZP<I )/BMTX(3,3) 
YJP    =    YP(I)*BMTX{2t3)*HJ 
IF(HJ.LT.0.0.OR.HJ.GT.RW(I) )    GO    TO    100 
CAJ    =    (XP(I)-XJP)/HJ 
CBJ    =    (YP(I )-YJP)/HJ 
CGJ    =    (ZP(I)-ZJP)/HJ 

CALL    INTRPL(FJPP,RWHJBtRWHJE,DRWHJ,RW(I)-HJ,FJ) 
SFRX(I)    =    SFRX(I)+FJ*CAJ 
SFRY(I)     =   SFRY(I)+FJ*CBJ 
SFRZ(I)    =   SFRZ(I»+FJ*CGJ 
100    CONTINUE 

FR(I)    =    SQRT(SFRX(I)**2*SFRY(I)**2+SFRZ(I)**2) 

IF(FR{I).NE.O.O)    GO    TO    110 

CARU)    =   0.0 

C6R(I)    =    0.0 

CGR(I)    =    1.0 

HI (I)    =    RW<I) 

PHGKI)    =   0.0 

THGI(I)    =   0.0 


60 

50 

70 


71 


69 


72 


RUFF  1010 
RUFF1020 
RUFF  1030 
RUFFIOAO 
RUFF  10  50 
RUFF  10 fO 
RUFF  10  70 
RUFF  1080 
RUFF  1090 
RUFF  11 00 
RUFF  11 10 
RUFFlliO 
RUFF1130 
RUFF  11 40 
RUFF1150 
RUFF  1160 
RUFF  11 70 
RUFF1180 
RUFF  11  90 
RUFF  12  00 
RUFF  12  10 
RUFF  12  20 
RUFF  12  30 
RUFF  1240 
RUFF  12 50 
RUFF  1260 
RUFF  12  70 
RUFF  1280 
RU  FF 12  90 
RUFF  1300 
RUFF1310 
RUFF  13  20 
RUFF  1330 
RUFF  13  40 
RUFF1350 
RUFF  13  60 
RUFF  13  70 
RUFF  13  60 
RUFF  13  90 
RUFF  1400 
RUFF  14 10 
RUFF  1420 
RUFF  1430 
RUFF  1440 
RUFF  14  50 
RUFF  14  60 
RUFF  14  70 
1480 
1490 
1500 
1510 
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SPG(  I)    =    0,0  li>20 

TXGP    =    XP(I)  1530 

GO    TO    112  15^0 

110  CAR(I)  =  -SFRXII)/FR(I  )  RUFFl^bO 
CBR(I)  =  -SFRY(I)/FR(I)  RUFF1560 
CGR(I)  =  -SFRZ{I)/FR(I  )  RUFF1570 
Hid)  =  RW(1)-FR(I)/AKT(  IJ  RUFF15a0 
IF(HII I  ).GT.RW( I)-SIGT(I ))  GO  TO  111  RUFF  1390 
Hid)    =    RWd)-(FRd)/AKTd)*SIGT(I)*(XLAMT(I)-l,0)  )/XLAMT(l)  RUFF1600 

111  TXGP  =  XP(I)-»-Hld)*CAR(I)  RUFFI610 
ME  =  TXGP/DELG*!  RUFF  1620 
TPHGI  =  0.0  RUFF  16  30 
TTHGI  =  ATAN2( {ZGM(ME)-ZGM(ME*l) )f DELG)  RUFF1640 
TAI  =  CbRd)*CGYW(I)-CGR(I)*CbYW(I  )  RUFF1630 
TBI  =  CGRd)*CAYWd)-CARd)*CGYW(I  )  RUFFI06O 
TCI  -  CARd)*CBYWd)-CBRd)*CAYW<I)  RUFF1670 
STI  =  SIN{TTHG1)  RUFF16bO 
CTI  =  COS( TTHGI)  RUFF  1690 
DNl  =  (TCI*TCI*TBI*TBI)*STI-TAI*TCI*CTI  RUFF  1700 
DN2  =  -TbI'«'(TAl*STI  +  TCl*CTI)  RUFF1710 
DN3  =  {TAI*TAI+TBI*TbI)»CTI-TAI»TCI*STI  RUFF  1720 
TERMS  =  SQRT(DN1«DN1+DN2*DN2+DN3»DN3)  RUFF1730 
SPGd)  =  -DN2/TERM5  RUFF17A0 
PHGKI)  =  ARSIN(SPGd)  )  RUFF1750 
THGId)    =    ATAN(DN1/DN3)  RUFF1760 

112  CPGd)  =  COS(PHGld))  1770 
CTGd)  =COS(TH&Id))  RUFF1780 
STGd)  =SIN(THGId))  RUFF1790 
XGPPd)  =  TXGP  RUFF18C0 
YGPP(I)  =  YP(I)+HId  )*CBR(I)  RUFF1810 
ZGPPd)  =  ZP(I)+HId)*CGR(I)  RUFF1820 
RETURN  RUFF  18 30 
END  RUFF  16  40 
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SUBROUTINE    RUFRED( NEND tDELGtOGMAX, ZRT Ab )  RUFROOIO 

C                                     HV0SM-VD2    VERSION  RUFR0020 

C                                     REVISED    OCTOBER    1975         CALSPAN    CORPORATION  RUFR0030 

C                                     HV0SM-RD2    VERSION  RUFR0040 

C                            HV0SM-VD2    VERSION  RUFK0050 

C                                   REVISED    OCTOBER    1975      CALSPAN    CORPORATION  RUFR0060 

DIMENSION    ZRTAB(2205)  RUFR0070 

IF(NEND,GT,2200)    GO    TO    900  RUFR0060 

READ(4,tND=901 )     { ZRT AB (I ) ,1 =1 ,NEND )  RUFR0090 

GO    TO    ll  RUFROIOO 

901    WRITE( 6t9001)  RUFROllO 

9001    FORMAT(«               END    OF    FILE    ENCOUNTERED    IN    READ    OF    ROUGHNESS     •/  RUFR0120 

1          •       DATA    BEFORE    NEND    POINTS    WERE    READ,*        )  RUFR0130 

NEND    =     I  RUFROi^O 

12    DGMAX    =    (NEND-1)*DELG  RUFR0150 

RETURN  RUFR0160 

900    WRITE(6,9000)  RUFR0170 

9000    FORMAT (•  NUMBER    OF    LAST    ROUGHNESS    DATA    POINT    IS    GREATER     •/  RUFR0180 

1          •    THAN    THE    ALLOWED    2200.       PROGRAM    TERMINATED, •       )  RUFR0190 

STOP  RUFR0200 

END  RUFR0210 
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SUBROUTINE    SFORCE  SFOROOIO 

HV0SM-RD2    VERSION  SF(^0020 

REVISED    OCTOBER    1975         CALSPAN    CORPORATION  SF0R0O30 

COMMON    /INTG/NE0,T,DTtVAR(50) ,DER(50>  SFOR0040 

EQUIVALENCE     (U,VAR(1  ))  ,(  V,VAR(2)  )f  (W,VAR{3))  t  (P,VAR{4)  ),(Q,VAR(5)  )SFOR005.0 

1  , (R,VAR(6)) ,(DELlfVAR(7) I, (DELID, VAR( 8) ) , ( DEL2» VAR (9 ) ),SFGR0060 

2  (DEL2DfVAR(10)),(DEL3tVAR(ll) ) ,(DEL3DtVAR( 12) ),  SFOR0070 

3  (PHIR,VAR(13) )t(PHlRD,VAR(l4) ) ,(THETTP,VAR(15) ),  SF0KCX)60 

4  (PHITP,VAR(16)),(PS1TP,VAR(17) ), (XCP,VAR(18) ),  SF0R0090 

5  (YCP,VAR(19)  ),(ZCPtVAR(20}),(PSIFl,VAR(21)  ),  SFCROIOO 

6  (PSIFIDtVAR{ 22) 1  SFQKOIIO 
EC JI VALENCE     (DU.DER ( 1)  ) , ( DV, DER ( 2 ) ),<DW,DER(3  )  ) , (DP,DER (4 ) ) ,  SF OR  01 20 

1  (DQ,DER(5) )t (DRtDER(6) ) , ( DDEL 1 ,DER 1 7) ) , ( DDELID , DER (8 ) )SFGR0130 

2  , (DDbL2tDfcR(9) ),<DDEL2D,DERI10)), (DDEL3,DER(11) ) ,  SFCR0140 

3  (DDEL3D,DER( 12)) t (DPHIR,DER( 13)) ,(DPHlRD,DtR(l^) ),  SFCROiSO 
A                                  (DTHTTP,DER(  15)  )f  (DPHITP,DER(  16)  )  ,(DPSnPtDER(17)  ),          SFCKG160 

5  (DXCPfDERC 18)),iDYCPtDER(19) ) ,(DZCPfDER(20)),  SFDR0170 

6  (DPSIFI,DER(21)) ,(DDPSFI,DER(22) )  SFDROIfcO 
EQUIVALENCE     (VAR (9 ) , PH  IF ) » ( VAR( 10) ,PHIFD)  , (DER ( 9  ), DPHI F ) ,  SFOR0190 

1  (DER( 10) tDPHIFD)  SF0R0200 

EQUIVALENCE     (VAR (13) ,D£L4) , ( VAR ( 14 ) tDEL4D ) t ( DER( 13),DDEL4),  SF OR  02 10 

1  (DER(14) tODELADl  SFGR0220 

COMMON    /DIMV/XlP,X2P,X3P,XAP,YlP,Y2P,Y3P,Y4P,ZlP,Z2PfZ3P,Z4P,PHIl,SF0R0^30 

1  PHI2tPHl3,PHI4,PSIl,PSI2fPSI3tPSI4tCAYW(4),CBYW(4),        SF0f<02*t0 

2  CGYW(4) ,ZPGI(4),THGI(4),PHGI(A),CPG(4),SP6(4) tCTG(A) ,SFDR02  50 

3  STG(4),CA&Z(4),CBGZ(4),CGGZ(4),DlC4)tD2(4),D3(4),  SFDR0260 

4  XLM1(4) ,XLM2(4)fXLM3(4)tAMTX(3f3),CMTX(3f 4),XGPP(4)»     SFGR0270 

5  YGPP(4)  ,ZGPP(4),DMATX(10,11),DELTA{4) ,CAR(4),CBR(A),    SF0R02&0 

6  CGR(4)  ,FR(4)  ,HI(4)  ,FC  (4)fTI(4),AX(4),BX(4),CX(4),  SF(jR0Z9O 

7  CTXG(4) ,UG(a),STXG(4) ,AY(4»,bY(4),CY(4),CPY6(4),  SF0R0300 

8  SPYG(4)  ,V6(4),PSIIP{4),PHICI(4),CAC(4)  ,CBC(4  )  ,CGC  (4  )  ,SFClR0310 

9  FCXU(4) ,FCYU(4),FCZU(4),FSC4) ,CAXW(4) ,CBXW(4) ,C&XW( 4 ) SF0R03  20 
COMMON    /DIMV/AS(4),BS(4) ,CS(4 ) ,CAS ( h) ,CBS(4) ,CGS (4 ) ,BETP( 4 ) ,  SFGR0330 

1  BETBR(4),FSXU(4),FSYU(4),FSZU(4) ,FRXU(A),FRYU(4),  SF0R0340 

2  FRZU(4)  ,FXU(4),FYU(4)  ,FZU(4)  ,Sn«t)  ,F1F1(2),F1RI(2),       SF0R0350 

3  F2FI(2) fF2Ri{2),CAH(4),CBH(4),CGH(4)  SF0R0360 
DIMENSION  XP(4),YP(A),ZP(4),PHII(4),PSII(4)  SFGR0370 
EQUIVALENCE     (XP(1),X1P),  (YP(1),Y1P) ,( ZP( 1 ) ,Z1P) t (PHII (  1) ,PHI 1  )  ,          SF OR  03 80 

1  (PSII(1},PSI1)  SFCR0390 

COMMON    /CQMP/SUMM,THETN, PHIN, PSIN, PI,RADf GAMl ,GAM2 ,GAM3,GAM4,GAM5 ,SFCR0400 

1  GAM6,GAM7,&AM8,GAM9fTHETT,PHlT,PSIT,ZR0tTRG2.  SF0R0410 

2  TF02,TIZtRH02tRH0MURf AMUF,BMURtZPRfTM4»RHMR2t A02APBt     SFGR0420 

3  B02APB,RFTF,TS02fRRTSfBR0MURtXMUF02,AXMF02,XMTF04,  SF0R0430 

4  XIZR,RTR»RHMR2I,XIXP,XIZP»XIXZPtXIYZPtDlPD2,DlMD2f  SFOR0440 

5  ZRD3tZRD3R,ZFD3R»ZFD12,TIZ2tTG61,DDlP2tDDlM2,RPR.PHRPSF0R04  50 

6  »TANTP,SPHTPfCPHTP,SECTPtSFXS,SFYS»SFZStSNPSfSNTSt  SFOR0460 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYUtSFXUtSFYUF,  SF0R0470 

8  SFYURfSFZU.COSTH,SlNTH,COSPS»SINPStCOSPH,SINPHtANGl,    SFOR0480 

9  ANG2,CPHl,SPHl,CPSItSPSIfPlf P7,P3,P4,P5tP6,TX,TY,TZ       SF0R0490 
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COMMON  /COMP/TRH»DISTX,D 

1  ZETA3D,SFZ1 

2  TERM2»SNPSU 

3  HCAH3,HCAH4 

4  ,PHIRD2tRPHR 

5  XX2,YY1,YY2 


DIMENSION  HCAH(^),HCBH(4 
EQUIVALENCE  (HCAHII),HCA 
COMMON  /COMPN/  FRSP(4),F 

1  DPSINT,TA 

2  PHI2DtLCB 

3  SFRX(^),S 
LOGICAL    LCbl,LCB2 
COMMON    /INPT2/    YBPO,ZbTP 

1  SET,CONSf 

^  DELTB,XIN 

COMMON/BARIER/FNtlBHITtJ 

1  YCPN(3),ZC 

2  AA2(17),BB 

3  CBBTtCGBT, 
A  YBPT,XNN(1 

5  ,ININD,UNP 

6  XCPTPtYCPT 

7  AINTP,SXR, 

8  FNP,FB,URP 

9  NSECYBPTP 
A  RBltNUNLD, 
B  SWORKtSPEN 

DIMENSION    INDXPT(4) 
EQUIVALENCE     (INDXPT(1),I 
COMMON/EARSTR/    XSTI0(3), 

1  ZSTI(3),Y 

2  FNSTI(3), 
COMMON  /HARDPT/  FRICF(4) 

I  SFXS  =  0.0 
YBP  =  0.0 
SFYS  =  0.0 
SFZS  =  0.0 
SNPS  =  0.0 
SNTS  =  0.0 
SNPSS  =  0.0 
FN  =  0.0 
IBHIT  -  0 
IPLN  =  C 
NAXIS  =  0 
FRICT  =  0.0 
VTAN  =  0.0 
VMAXd  )  =  0.0 
NSLCE  =  0 
NUNLD  =  0 
NUNLD2  =  0 


1STY,DISTD,DISTS, 

,SNPU,SNTI»,HCGH1, 

,SNPRfHCBHl,HC6H2 

fUQ,WP,URtQR»VP,P 

D,GCTHfGSTH,GCTSP 

,THGliTH&2,PHGl,P 

),HCGH(4) 

Hl)t(HCbH(l),HCBH 

RCP(4),ICBHIT,JCB 

NPClfTANPC2,PHICl 

1(4) ,LCb2(4),IHIT 

FRY(4),SFRZ(4),T1 


D21 , ZETA4, ZETA4D, ZETA3t 

HCGH2,HCGH3,HCGH4,TERM1, 

,HCBH3,HCBH4,HCAHl,HCAH2t 

R,P2,02,R2,VR,WQ,P0,PHIR2 

,GCTCPfXXX,YYY,IX,IY,XXl, 

HG2,ZZ1,ZZ2,LLL 

l)t(HCGH(l)tHCGHl 

HIT, 

R,PHIC2R,AMUCMP,P 

,AJMTX{3,3),BMTX( 

PSI,T2PSI,XMUGI(4 


ZVBtAKV,SIGR( 
T,DDD,INDB,DE 


,ZBBP,XVF,XVR,YV,ZVT, 

AMUfa,EPSV,EPSB,XM,fcPS 

PT(IOO) 

BHIT,XCPNP(3),YCPNP(3 

PN(3),AAl(17),Bbl(17) 

2(17),CC2(17),RR2(17) 

RB,XbT,YBTtZBT,XEB,Yb 

7),YNN{ 17) ,ZNN(17) ,XM 

(17),VNP(17),WNP(17) , 

P,ZCPTP,XCPBP,YCPBP,Z 

SYR,SZR,SDEN,XRI,YRIt 

,VRP,WRP,EPSL,XLDP,DE 

,PCAB,PCBB,PCGB,PPRB, 

NLDCTR,VDEF,PVDEF,PSZ 

GY, DISS, IPLN, ILOAD 

1) 

YSTI0(3),ZSTI0(3),XSTI(3),YSTI(3), 

STIP0(3),XSTIP(3),YSTIP(3) ,ZSTIPC3) 

AKST(3) 

,UPT(4) ,VPT(4),WPT(4) 


),ZCP 
tCCK 
,CAB, 
B,ZBB 
TX(3, 
VMAX( 
CPBP, 
ZRI,F 
LX,VL 
CABl, 
R»XF, 


NP(3),XC 
17),RR1( 
CBB,C&B, 
,RR2P(17 
4),IDPT( 
4), II, 12 
YCPMP,AI 
RICT  ,DbL 
,NCYC,EE 
CbBl.CGB 
DLLBBP, 


) 

HIID, 
3,3), 
) 

11). 

LYBP, 

PN(3), 
17), 

CABT, 

)t 

17),IPT 

♦13,14, 

NTI, 

Bb,VTAN, 

E,ENRGY, 

1. 


SFOROi»00 
SF  OR  05  10 
SF  OR  05  20 
SF OR 05 30 
SF  OR  05  40 
SF  OR  05  50 
SFGR05  60 
SF  OR  05  70 
SF OR 05 80 
SF0R0590 
SFCR0600 
SF0R0610 
SF  OR  06  20 
SF  OR  06  30 
SF  OR 06  40 
SF0R06  50 
SF0R0660 
SF  OR  06  70 
SF OR 06 80 
SF OR 06 90 
SFOR0700 
SF0R0710 
SFOR0720 
SF OR  0730 
S  FOR  07  40 
SF  OR  07  50 
SF0k0760 
SF  OR 07  70 
SF0R07&0 
SF  OR  07  90 
SF0RO8  0O 
SF  OR  08  10 
SF0R0820 
SF0R0o30 
SF0R084O 
SF  OR 0850 
SF  OR  08  60 
SF  Ok  06  70 
SF0R0880 
SF0R0ct90 
SF  OR  09  00 
SF0R0910 
SF  OR  09  20 
SF0R0930 
SF  OR 09  40 
SF0R0950 
SF0R0960 
SF  OR  09  70 
SF  OR 09  80 
SF0R0990 
SF  OR  1000 
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YBIVF    =0.0  SF  OR  1010 

IF(INDB.EO.O)    RETURN  SF0R10i:0 

IB    =    (INDB+D/Z  SF0RI030 

:    DO    3       I  =  lf3  SF0R104O 

XCPNP(I)    =    XCP+AMTX( 1,1)*XCPN(I)*AMTX(1,2)*YCPN(1)+AMTX(1,3)*  SFOklObO 

1                               ZCPN(I)  SFOR1060 

YCPNP(I)    =    YCP+AMTX( 2,lJ*XCPN(I)*AMTX(2,2)*YCPN(I)+AMTX(2f 3)*  SFOR1070 

1                               ZCPN(I)  SF  OR  10  80 

ZCPNPJI)    =    ZCP+AMTX(3,l)*XCPN(I)+AMTX(3f2)*YCPN(I)+AMTX(3,3)*  SF0R1090 

1                               ZCPN(I)  SFORllOO 

YSTIPQ(I)    =    YCP  +  AMTX(2,1  l*XSTIO( I)+AMTX(2f2)*YSTI0(I)  SFORlllO 

1                               ♦AMTX(2,3)*ZST10(I)  SFOR1120 

.    CONTINUE  SFCR1130 

YPMAX    =    -1,0E30  SF0P1140 

■    DO    5       I  =  lt3  SF0R1130 

IF(YCPNPiI),LT,YPMAX)    GO    TO    5  SFUK1160 

YPMAX    =    YCPNP(I)  SF0R1170 

NDX    =    I  SF  OR  1160 

.  CONTINUE  SF0K1190 
XCPTP  =  XCP+AMTX(1,1)*XCPN(NDX)+AMTX{ 1,2)*YCPN(NDX)+AMTX(1,3)*ZVT  SFCR1200 
YCPTP  =  YCP+AMTX(2,1)*XCPN(NDX)+AMTX<2,2)*YCPN(NDX)+AMTX(2,3)*ZVT  SFCR1210 
ZCPTP  =  ZCP+AMTX(3,1)*XCPN(NDXJ+AMTX(3,2)*YCPN(NDX)+AMTX{3,3)*ZVT  SFlR1^.:0 
XCPBP  ^  XCP+AMTX(1,1)*.XCPN(NDX)+AMTX(1,2)*YCPN(NDX)+AMTX(1,3)*ZVB  SFORl/30 
YCPBP  =  YCP+AMTX<2,1 )*XCPN(NDX)+AMTXt2,2)*YCPN(NDX)+AMTX(2t3)*ZVB  SFCR1240 
ZCPBP    =    ZCP+AMTX(3,1)*XCPN(NDX)+AMTX{3,2)*YCPN(NDX)+AMTX{3,3)*ZVB    SF0R1250 

YCPMP    =    AMAXl(YCPTPtYCPBP»  SF(JR1260 

IF(YBP0-YCPMP.LT.5.0)     IBHIT=1  SF0R1270 

VDEF    =    AMAXKYCPMP-YBPTPfO.O)  SFOR12fcO 

IF(VDEF.LT.2.0*0ELYBP)    GO    TO    41  SF0R1290 

IF(H0D(1NDB,2) .EQ.O)    GO    TO    8  SF0R1300 

'    CABT    =    AMTX(3,1)  SF0R1310 

CBBT    =    AMTX(3f2)  SFGR1320 

CGBT    =    AMTX(3,3)  SF0R1330 

TMP    =    ZBTP-ZCP  SF0Ri340 

XBT    =    ~AMTX( l,l)*XCP-AMTX(2,l)*YCP+AMTX(3tl)*TMP  SFCR1350 

YBT    =    -AMTX( 1,2)*XCP-AMTX(2,2)*YCP*AMTX(3,2)*TMP  SFCR1360 

ZBT    =    -AMTX(l,3)*XCP-AMTX(2f3)*YCP+AMTX(3,3J*TMP  SF0R1370 

RBT    =    Xb1*CABT*YBT*CBBT*ZBT*CGBT  SFDR156G 

TMP    =    ZBBP-ZCP  SFGR13  90 

XBB    =    -AMTX(l,l)*XCP-AMTX<2f l)*YCP+AMTX(3tl)*TMP  SFOR1400 

YBB    =    -AMTX(l,2)*XCP-AMTX(2f2)*YCP+AMTX(3,2)*TMP  SFCR1410 

ZBB    =    -AMTX(l,3»*XCP-AMTX(2t3>*YCP+AMTX(3,3)*TMP  SFDR1420 

RBB    =    XBB*CABT*YBB*CBBT-»-ZBB*CGBT  SF0Rl*f3G 

I    CAB    =    AMTX(2,1)  SF0R144G 

CBB    =    AMTX(2f2)  SFORI-^f.O 

CGB    =    AMTX(2t3)  SF0R1460 

TMP    =    YBPTP-YCP  SF  OR  1470 

IF{ININD.LT.2.0R.CAB*PCBB.EQ.CBB*PCAB)    GO    TO    80  SFOR1480 

XBPP    =    -AMTX(l,l)*XCP+AMTX(2f 1)*TMP-AMTX<3,1)*ZCP  SF0R1490 

YBPP    =    -AMTX(l,2)*XCP+AMTX(2f2)*TMP-AMTX(3,2)*ZCP  SFCR15G0 

ZBPP    =    -AMTX(1,3)»XCP+AMTX(2,3)*TMP-AMTX(3,3)*ZCP  SF0R1510 


237 


DATE       01/12/76  TIME       1729  UPDATE    RECORD 

RBPP    =    XBPP*CAB+YBPP*CBB+ZBPP*CGB  SF0R1520 

XMTX(1,1  )    =    CAB  SF0R1530 

XMTX<1,2)    =    CbB  SF0R1!>40 

XMTX(lt3)    =    CGb  SF0R15)&0 

XMTXdt^)    =    RBPP  SFGR1560 

XMTX(2,1)    =    PCAB  SFCR13  70 

XMTXI2f2)    =    PCBB  SFORlStO 

XMTX(2,3>    =    PCGB  SFOR1590 

XMTX(2»4)    =    PPRB  3F0R1600 

XMTXOfi)    =    0  SF  OR  16  10 

XMTX(3,2)    =    0  SF OR  16 20 

XMTX(3,3)    =    1  SF OR  1630 

XMTX(3,A^)    =    PSZR  SF0R1640 

CALL    SIMS0L(XMTX»3,3)  SF0R1650 

XBl     =    XMTXdt^)  SF0R1660 

YBl    =    XMTX(2f4)  SF  OR  16  70 

ZBl     =    XMTX(3,4)  SF0R1680 
IF     (XVR,LE.XBl.AND.Xbl.LE,XVF.AND.AbS(YBl).LT,YV.AND.ZVT.LE.Zbl          SF OR  16 90 

l.AND.ZBLLt.ZVB)    NAXIS    =    1  SF0R1700 

IFlNAXIS.EO.O.AND.VDtF.LT.PVDEF.AND.XBl.LT.XVR)    GO    TO    41  SF0kl710 

TMPA    =    CBb*PCGB-CGb*PCBt3  SF0R1720 

TMPb    =    CGB*PCAB-CAB*PCGB  SF0R1730 

TMPC    =    CAB*PCBB-CBB*PCAB  SF0R1740 

TMPAP    =    lMP6*CGb-TMPC*CBB  SFGR17f>0 

TMPbP    =-TMPC*CAb+TMPA*CGB  SF0R1760 

TMPCP    =-TMPA*CBB+TMPB*CAB  SF0R1770 

TMPD    =    SQRT(TMPAP**2+TMPBP**2+TMPCP**2)  SF0R1780 

CABl    =    TMPAP/TMPD  SF0R1790 

CBBl    =    TMPBP/TMPD  SF0R1800 

CGBl    =    TMPCP/TMPD  SF0R18  10 

RBI     =    XB1*CAB1+YB1«CBB1+ZP1*CGB1  SF0Rlb20 

YBIVF    =    1.0E6  SFDR1830 

IF(C&Bl.NE.O.)     YBlVF=(RBl-XVF*CAbl )/CBBl  SF0R1840 

78  DO  79  I=12fl7  SFORIBIJO 
AA2(I )  =  CABl  SF0R1860 
bB2( I)  =  CBBl  SF0Rlb70 
CC2{ I )  =  CGBl  SFORlbbO 
RR2(I)     =   RBI  SF0Rlb90 

79  CONTINUE  SF0R1900 
C       PRESENT    LOCATION    OF    HARDPOINTS    IN    SPACE    FIXED    COORDINATES  SF0R1910 

80  DO  81  1-1,3  SF0R1920 
XSTIP(  I)=XCP+AMTX(1,1)*XSTI{I  )4-AMTX  ( 1  ,2  )*YSTI  ( I  )  ♦AMTXi  1,3)*ZSTI(I  ISFOR19  30 
YSTIP(1)=YCP+AMTX(2,1)*XSTI{I)+AMTX(2,2)*YSTI(I)+AMTX(2,3)*ZSTI(I )SF0R19A0 
ZSTIP{I)=ZCP+AMTX(3,1)*XSTI(I)+AMTX(3,2)*YSTI(T)+AMTX(3,3)*ZSTI(I)SF0R19  50 

81  CONTINUE  SF0R1960 

SF0R1970 
SFGR1980 
SF0R1990 
SFGR2000 
SF  OR  20  10 
SF OR 20  20 


XRI  = 

0.0 

YRI  = 

0.0 

ZRI  = 

0.0 

AINTI 

=  0.0 

SXR  = 

0.0 

SYR  = 

0.0 
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SZR    =    0.0  SFGR203U 

SDEN    =    0,0  SF01<2040 

FNX    =    0.0  SFGR2GS0 

FNXl    =    0.0  SF0k2060 

F6    =    0.0  SF  OR  2070 

FBFN    =    0.0  SFOR20fcO 

SFNST    -    0.0  SFGR2090 

NSEG    =     (YCPMP-YBPTP)/DELYBP-H.0  3FCR2100 

IPLN    =    NSEG  SFDR2110 

YBP    =    YbPTP+IPLN*DELYBP  SFOR2120 

NSGlll    =   NSEG-t-l  SF0R2130 

nil    =    1  SFCR2140 

9    DO    38    I=I111»NSG111  SFOR2150 

IPLNP    =    IPLN  SFGR2160 

PYBP    =    YbP  SFGR217C 

PDELBB    =   DELBB  SFGk2180 

PPSXR    ~    SXR  SFCtf<2190 

PPSYR    =    SYR  SFGR2200 

PPSZR    =    SZR  SFOR22  10 

PSDEN    =    SDEN  SF0R2^20 

PFNX    =    FNX  SF0R2230 

PFNXl    =    FNXl  SF0R22A0 

PFB    =    FB  SF0R2250 

PFBFN    =    FBFN  SFGR2260 

PSFNST    =   SFNST  SFCR2270 

SFNST    =    0.  SFGR22&0 

IPLN    =    NSEG-I+l  SF0R229G 

YBP    =    YBPTP*IPLN*DELYBP  SF0R2300 

IF(YBP.LT.YBPO+EPSL+SET*DtLX)GO    10    ^  SF0R2310 

TMP    =    YBP-YCP  SFCR2320 

XBl    =    -AMTX( 1,1)*XCP+AMTX(2,1)*TMP-AMTX(3,1)*ZCP  SFCR2330 

YBI    =    -AMTX(1,2)*XCP+AMTX(2,2)*TMP-AMTX(3,2)*ZCP  SFGR2340 

ZBI    =    -AMTX(l,3)*XCP-»-AMTX(2,3)*TMP-AMTX(3t3)*ZCP  SF0R2350 

RBI     =    XBI*CAB-»-YBI*CBB*ZBI*CGB  SF0R2360 

IPT    =    0  SFOR23  70 

10  DO  1J>  J=l,17  SFCR2380 
IDPT(J)  =  0  SFGR2390 
IF(PSIT.LE.0.0.AND.J.LE.2)G0  TO  15  SFGR2400 
IF(ININD.LT.2.aND.J.GT.11)  go  to  15  SFGk24i0 
IF(CAB.EG.O..AND.( J.EO.A..OR.J.EQ.5.0R.J.EQ.10.0R.J.EQ,ll))GO  TO  15SFGR2^20 
IF(CBB.EU.0..AND.{ J.LE.2.0R.J.£Q.7.UR.J.EC.e) )  GO  TO  15  SFGR2430 
IF(CGB.EC.O..AND.( J.E0.3.0R.J.EQ.6.0R.J.E0.9) )  GO  TO  15  SF0R2440 
IF(CAB1»CBB.EQ.CBBI*CAB.AND.( J.EQ.12.0R.J.fcQ.13))  GOTO  15  SFLR2450 
IF(CBB1*CGB.EQ.CGB1*CBB.AND.(J.EC|.14.0R.J.EQ.15))  GO  TO  15  SF0R2Afc0 
IF(CGB1*CAB.EQ.CAB1*CGB.AND.J.GE.16)  go  to  15  SF0R2470 
IF(NAXIS.EQ.O.AND.J.GT.ll)    GO    TO    15  SF0R2480 

11  XMTX(1,1)    =    CAB  SF0R24S0 

SF  OR  23  00 
SF  OR  25  10 
SF0R2520 

12  XMTX(2,1)    =    AAIU)  SF0R2:>30 


XMTX(1,1) 

= 

CAB 

XMTX(1,2) 

= 

CBB       ■ 

XMTX(1,3) 

~ 

CGB 

XMTX(1,4) 

= 

RBI 

XMTX(2,1) 

= 

AA 1  U ) 
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TIME       1729 


UPDATE    RECORD 


13 


14 


15 


16 


XMT 

XMT 
XMT 
XMT 
XMT 
XMT 
XMT 
CAL 
XNN 
YNN 

im 

IF( 
IF( 

IF( 
lOP 
iPT 
IPP 
CON 
IF( 

1  GO 
IF( 
1F( 
RR2 
RR2 
RR2 
RR2 
RR2 
RR2 
RR2 
RR2 
RR2 
RR2 
RR2 
RR2 
RR2 
RR2 
DO 
IF( 
IF( 
IF( 

1 
IF( 
IF( 

1 
IF( 
IF( 
IF( 
IF( 
IF( 
XMT 
XMT 


X(2,2) 
X(2,3) 
X(2,4) 
X(3,l) 
X  (  3  ,  2  ) 
X{3,J) 
X(3,A) 


bBK  J) 
CC 1( J ) 
RRKJ) 
AA2(J) 
bB2(J) 
CC2(J) 
RR  2  (  J ) 


XNN(  J).GT.XVF)    GO    TO    15 
)    GO    TO    lf> 
ZNNU).6T.ZVb)    GO    TO    15 


L    SIMS0L(XMTX,3t3) 
(J)    =    XMTX( 1,4) 
(J)    =    XMTX(2,4) 
(J)    =    XMTX(3,4) 
XNN(J),LT.XVR.OR.: 
AbS( YNN( J)) .GT.YV 
ZNN( J)»LT.ZVT,OR. 
T{J)    =    1 

=    1PT*1 
T    =    J 
1  INUE 
1PP7.L£.11.AND.(NAXIS,EQ.1.AND.YB1VF,GT,YV.AND. ININD.EQ.2)) 

TU    3b 
MUD( IND6»2) .Et.O) 
CGb.LW.U,O.AND»CGI 


GG    TO   23 
BT.EO.O.OGO    TO   23 


P(l  )    =   RBT 

P(2  )    =    RBB 

P(4)    =    RBT 

P(5  >    =    RBB 

P(7  )    =    RBT 

P{8)    =    RBb 

PUO)    =    RBT 

P(ll)   =    RbB 

P(12)    =    RBT 

P(13)    =    RBB 

P( 14)    =    RBT 

P(15)    =    RBB 

P(16)    =    RBT 

P(17)    =    RbB 

22       J=l,17 

PSIT.LE.O.O.AND.J 

J.EW.3.0R.J.EQ.6. 

CAB*C&BT.EO.CGB*C 

J.EO.ID)    GO    TO    2 

CGB»tbBT,EQ.CBB*C 

CAb*(CBbl*CGBT-CB 

CGB1-CBB1*CGB).E0 

J.Gh.l2.AND.lDPT( 

IDPT(1).EW.1.AND. 

IDPT<7).Eg.l.AND. 

IDPT(4) .EQ.l.AND. 

IDPTdOI.EQ.l.AND 

X(l,l)    =    CAB 

X(lt2)    *    CBB 


•LE.2)GC    TO    22 

OR,J,EO«V)    GO    TO    22 

ABT.AND*(J.EQ.4.0R.J.EQ.5.0R.J.EQ«10.0R. 

2 

GBT.AND.I J.LE.2.0R.J.E0.7.CR.J.EQ.8))    GO   TO    2 

BT*CGbl )-CAB 1* (CBB*CGBT-CBBT*CGB )*CABT* ( CBB* 

•0.0.AND.J.Gb.l2)    GO    TO   22 

J).Nt.l)    GO    TO    22 

IDPT(2).E0.1,AND.J.EQ.14J    GO   TO    173 

IDPT(8).Eg.l.AND.J.EQ.15)    GO   TO    173 

IDPT(5)*EQ.I,AND.J.E0.16)    GO   TO    173 

•IDPT(11).EQ.1.AND.J.EQ*17)    GO    TO    173 


SF  OR  25  40 
SF  Ok  25  50 
SF OR  2560 
SF  OR  25  70 
SF OR  2580 
SF  OR  23  90 
SF  OR  26  00 
SF  OR  26  10 
SF0K2620 
SFGR2630 
SF  OR  26  40 
SF  OR  26  50 
SF  OR  26  60 
SF  OR  26  70 
SF  OR  26  80 
SF  OR  26  90 
SF  OR  27  00 
SF  OR  27 10 
SF0R2720 
SF  OR  27  30 
SF  OP  2740 
SF0R2750 
SF OR  1760 
SF  OR  27  70 
SF OR 2780 
SF  OR  27  90 
S  FOR  2b  00 
SFCR2810 
SFGR2B20 
SF0R28  30 
SF  OR  2840 
SF0R2b50 
SF0R2860 
SF  OR  28  70 
SF  OR  28  80 
SF  OR  28  90 
SF OR 2900 
SF0R2V10 
SF  OR  29  20 
SF OR  2930 
SF  OR  29  40 
2SF0R29  50 
SF  OR  29  60 
SF  OK 2970 
SF0R2980 
SF OR  2990 
SF0R3000 
SF0R3010 
SF  OR  3020 
SF  OR  30  30 
SF  OR  3040 
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17 


170 


18 
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XMTX(lf3) 

s: 

CGb 

XMTXd,^) 

= 

Rbl 

1F( J.Gb.l2) 

GO    TO    170 

XMTX(2,2) 

= 

BBl(J) 

XMTX(2,3) 

= 

CCUJ) 

XMTX(2,1> 

= 

AAl(J) 

XMTX(2.^) 

= 

RRUJ) 

GO    TO    18 

XMTX(2,1) 

= 

AA2(J) 

XMTX(2t2) 

= 

bB2(J) 

XMTX(2,3) 

= 

CC2(J) 

XMTX{2,A> 

= 

RR2(J) 

XMTX(3,1) 

= 

CAST 

XMTX(3»2) 

= 

CBbT 

XMTX<3,3) 

= 

CGBT 

UPDATE  RECORD 


171 

172 
19 


IF(  <IDPT(1).EQ.1.AND.J.EQ,14),0R,(IDP1 ( 4) .EO. 1 .AND • J.E0.16  )  ) 
1  GO  TO  171 

IF(  (IDPl (b),EU.l.AND.J.E0.15).0R.(IDPT( 11 ) .EQ . 1 .AND- J .EU. 1 7  )  ) 
1  GO  TO  172 

XMTX(3t4)  =  RR2P(J) 

GO  TO  19 

XMTX(3t4)  =  RBB 

GO  TO  19 

XMTX(3f^l 


20 
21 


173 

22 
23 
24 


25 

26 


=  RBT 

CALL  SiMS0L{XMTXt3t3) 

IF(XMTX(1,4) .LT.XVR,0R.XMTXC1»4) .GT.XVF)  GO  TO  22 
IF( ABS(XMTX(2f4)).GT,YV}  GO  TU  22 

IF(XMTX(3,4),LT.ZVT«0R.XMTX(3f4).GT,2Vb)    GO   TO    22 
IF( IDPT(J),NE.O)    GO    TO    20 
IDPT(J)    -    1 
GO    TO    21 

1F(ABS(XMTX(3,4) ).GE.ABS(ZNN( J) ) )G0    TO    22 
XNN(J)     =   XMTX( l,H) 
YNN(J»    =   XMTX(2,4) 
ZNN(J)     =    XMTX(3t4) 
GO   TO    22 
IDPT(J)    =   0 
IPT    =    IPT-1 
CONTINUE 

IF( IPT,LT.3)    GO    TO    38 
DO    2  5       J=lfl7 
IF{1DPT(J).EQ.0J    GO    TO    25 
TMPU    «    U-YNN(J )*R+ZNN( J)*Q 
TMPV    =    V+XNN<J)*R-2NNC J)*P 
TMPW    =    W+YNNIJ)*P-XNN(J)*0 

UNP(J)    =    AMTX(1,1)*TMPU*AMTX(1»2)*TMPV+AMTX(1,3)*TMPW 
VNP(J)    =    AMTX(2tl}*TMPU+AMTX(2t2)*TMPV+AMTX(2,3)*TMPW 
WNP(J)    =   AMTX(3,l)*TMPU*AMTX(3f2)*TMPV*AMTX(3,3)*TMPW 
CONTINUE 
DO    27       J=l,4 
VMAX(J)    =   -1.0E30 


SFOHiObO 
SF Oh  30 60 
SF  GK  30  70 
SFORSOtJO 
SFUR30  90 
SF0K310G 
SF0H3110 
SF  OK  31^0 
SF0R3i3O 
SF  01^3140 
i>FDR31i)0 
SFORBltO 
SFGW3170 
SFOK31bO 
SF OR  31 90 
SF OR  32 CO 
SF0R3210 
SFOR32  20 
SFOf<3230 
SFCR32A0 
3F0R32b0 
SF0R3260 
SF  OR  3270 
SF  OR  32  80 
SF0R3^90 
SF  OR  33  00 
SF0R3310 
SFDR33  20 
SF  OR  33  30 
SF  OR  33  40 
SF  OR  33  50 
SF0R3360 
SF  OR  33  70 
SF  OR  33  80 
SF0R33  90 
SF  OR  34  00 
SF0R3410 
SF0R3420 
SF0R3430 
SF OR  3440 
SF  OR  34  50 
SF  OR  3460 
SF  OR  34  70 
SF  OR  34  80 
SF  OR  34  90 
SF  OR  35  00 
SF  OR  35  10 
SF0R3520 
SF0R3530 
SF0R3540 
SF  OR  35  50 
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indxpt(j)  =  0  sfor3560 

27  Continue  sfor357o 

28  DO  34  J=ltl7  SF0R3580 
1F{IDPT( J).EO.O)    GO    TO    34  SF0k35V0 

29  DO  33  K=l,4  SF  OR  3600 
IF(VNP( J).LT.VMAX(K)  )  GO  TO  33  SF0R3610 
IF(K.E«.^)  GO  TO  32  SFDR3620 
Kl    -    K+l  SF0R3630 

30  DO  31  L-Klf4  SF0R3640 
M  =  4-L+Kl  SF0R36b0 
VMAX(M)  ~  VMAX(M-l)  SF0R3660 
INDXPT(K)    =    INDXPT(M-l)  SF0R3670 

31  CONTINUE  SFQR36&C 

32  VMAX(K)  =  VNP(J)  SF0R36V0 
INDXPT(K)  =  J  SF0R3700 
GO    TC    34  SF OR 37 10 

33  CGNTINUt  SFOR3720 

34  CONTINUt  SFGR373G 
IPT  =  4  SF OR  37 40 
IF(INDXPT{4) .£Q.O)     IPT    =    3  SFCR3750 

37    J3    =    13  SF0R376C 

Jl    =    II  SFCR3770 

J2    =    IP  SF0R378C 

J4    =    lA  SF  OR  37  90 

CALL    AREA  SF0R3800 

DO    91    IJ    =    1,3  SFOR36  10 

FNSTKIJ)    =    0,0  SF0R36*.0 

iF(VPT(IJ+l  ).GE,O.O.AND.YSTIPC(IJ).GE.YBP)    FNSTKIJ)    =  SF0R3830 

1                     AKST( IJ )»(YSTIPO( IJ>-YBP»  SF0R3b40 

SFNST    =    SFNST  +  FNSTK  IJ  )  SFOR36f.O 

91    CONTINUE  SF0R3860 

IFdB.EW.l)    GO    TO    38  SF0R36  70 

FNXi    =    AKV*DELYBP*SDEN  SF0k3860 

FNX    -    FNXl+SFNST  SFGR3690 

IF(NSLCE.NE.O)     GO    TC    36  SF0R390C 

40    DELb6    =    A,^1AX1(  YBP-YbPO,EPSL  +  SET*DELX)  SF0R3910 

CALL    NLuFRC  SF0R3920 

FBFN    =    hB-FNX  SF0R3930 

IF(  tPSFi.LT.FEFN)    GO    TO    38  SF0R3940 

IF(l.Ew.l)     GO    TO    lOi;  SF0R3950 

IF(FBFN.GE.0,0)       GO    TO    105  SF0R3960 

iF(ADSlFBFN) .LT.ABS(PFbFN))  GOTO    105                                                                                SF0R3970 

WKITE(6,1001)    T,I,YbP,PYBP,FNX,PFNX  SFOR39eO 

1001    FCRMAT(4h      T  =  ,F7,^,3H    I=,I3,5H    YBP  =  ,F 10,4 ,6H    PYBP=,F10.4,  SFCR3990 

1  :)H   FNX=,G13,5,6H    PFNX=  ,G13.5  ,27HEgU  IL 1 B    AT    PREV    SLICE    RESETSF0R4000 

2  )  SF  OR  40 10 
IPLN  =  IPLNP  SFOR4020 
YBP  =  PYbP  SFOR4030 
DELBB  -  PDELB6  SF0R4040 
SXR  =  PPSXR  SF0R4050 
SYR    =    PPSYR  SF0R4O60 
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SZR    =    PPSZR  SF0P^70 

SDEN    =    PSDtN  SFOR4080 

FNX    =    PFNX  SFOK^VO 

FNXl    =    PFNXl  SF0R4100 

Fb    =    PFb  SF0R41 10 

SFNST    =    PSFNST  SFGR^liiO 

105    YBPT    s    AMAX1(YBP,Y&P0+EPSL+SET*DELX)  SF0R4130 

NSLCE    =    NSLCE+1  SF0R4l^ 

IF(NLDCTR.EQ,3)CALL    NLDFL  SFOR^lbO 

NUNLD2    =    0  SF0R41. 60 

IF(NUNLD.EQ.O)     GO    TO    38  SFGR<tl70 

NUNLD2    =    1  SFGRAlbO 

GO    10    110  SFCR^l^O 

33    CONTINUE  SF0R4^:00 

110  DO  111  1J=1,3  SFGRA210 
IF(YSTIP(lJ).&T.YbPT  )  YSTIP(IJ)  =YBPT  SFGRA^^O 
AA  =  XSTIP(IJ)-XCP  SFGR4230 
6B  =  YSTIP(IJ)-YCP  SF0R^2A0 
CC  =  ZSTIP<IJ)-ZCP  SFGRA2  5>0 
XSTl(IJ)  =  AMTX(1,1)*AA+AMTX(2,1>*BB+AMTX(3,1)*CC  SF0R4260 
YSTI(IJ)  =  AMTX(1,2)*AA+AMTX(2,2»*BB+AMTX(3,2)*CC  SFGR4270 
ZSTI(IJ)    =    AMTX(1,3)*AA+AMTX(2,3)*BB+AMTX(3,3)*CC  SFGR42fcO 

111  CONTINUE  SF  OR  42  90 
IF(NUNLD2.NE,0)  GO  TO  103  SFCR4300 
IF(NUNLDJ^E.O)  GO  TO  100  SFOR4310 
IF(     IB    .NE»     1>       GO    TO    50  SFGR4520 

45  N£GPT=0  SF0R4330 
DO  46  J=1,IPT  SF0R4340 
IF(    VMAX(J)     .LT.       0.0    )       NEGPT=NEGPT    ♦    1  SF0R43b0 

46  CONTINUE  SF0R4360 
IF(     NEGPT    .GE.     IPT)     GC    TO    41  SFOR4370 

50    FN    =    AKV*DELYBP*SDEN  SFCR43b0 

FNl    =    FN+SFNST  SFGR4390 

IFdNIND.EQ.O)     ININD    =    1  SF0R4400 

IF(FNl.Nt.O.O,AND.NUNLD.EQ.O)    CALL    RESFRC  SF0R4410 

IF(NSLCt.EU,O.AND.IB,EQ.l)    GO    TO    103  SF0R4420 

IF(NSLCE.EQ.O)     GO    TO    100  SF0K4430 

103    TMP    =    YBPT-YCP  SF0R4440 

NUNLD2    =   0  SFCR4450 

XBPP    =    -AMTX{l,l)*XCP+AMTX(2tl)*TMP-AMTX(3tl)'*ZCP  SF0R4460 

YBPP    =    -AMTXll  t2)*XCP-»-AMTX(2f  2)*TMP~AMTX(3,2)*ZCP  SF0R4^70 

ZBPP    =    -AMTX{l,3)»XCP+AMTX{2t3>*TMP"AMTX(3,3)*ZCP  SF0R44&0 

RB    =    XBPP*CAB    •»•    YBPP*CBB    ■»■    ZBPP*CGB  SF0R4490 

GO    TO    39  SF OR 45 00 

100    IF(YBP.GT,YBPO)    GO    TO    250  SF0R4510 

YBPT    =    YBPO  SF  OR  45  20 

FB    =    0.0  SF0R4530 

GO    TO    103  S FOR 45 40 

250    NUNLD    =    NUNLD+1  SF0R4550 

NSGlll    =    NSGlll+1  SF0R4560 

nil    =    NSGlll  SF0R4570 


243 


DATE       01/12/76  TIME       1729  UPDATE    RECORD 

GO    TO    9  SF0R4580 

39    NUNLD    =    0  SF0R45  90 
41     IF(NLDCTR.EQ.3.AND.IPT.GE.3)WRITE(6,1000)T,XBl,Yei,IPT,Jl,J2,J3t       SF OR 4600 

1  J4,XNN(J1),YNN(J1),ZNN(J1) ,XNN(J2)fYNN(J2),ZNN(J2) f  SF0R4610 

2  XNN(J3)tYNN(J3)tZNN(J3)tXNN(J4>,YNN(J4} «ZNN(J4]  SF0R4620 
1000    F0RMAT(F7.4,2F7,lt5I3il2F8,l)  SF0R4630 

NLDCTR    =   NLDCTR+1  SF0R4640 

RETURN  SF0R4650 

END  SF0R4660 
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SUBROUTINE  SIMSOL  (A,KKtLL)  00038720 


C* 
C* 
C* 
C* 
C* 
C* 
C* 
C* 
C* 
C* 
C* 

c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c» 


SUBROUTINE  SIMSOL 

AUTHOR 

OR. JOHN  T.  FLECK 
(REVISED  BY  F.E. 


(SINGLE  PRECISION  VERSION) 


BUTLER) 


REFERENCE 

• »SUBROUTINeS  TO  SOLVE  AN 
SIMULTANEOUS  FCUATIONS** 


INDEPENDENT  SET  OF  LINEAR 
HS/FEB/PAW-84,  21  JULY  1965, 


PURPOSE 

TO  SOLVE 


A  SET  OF  SIMULTANEOUS  LINEAR  EQUATIONSt  AX=h. 


USAGE 
CALL 


SIMSOL  (A,N,NDI) 


DESCRIPTION  OF  PARAMETERS 

A  -  IS  A  2-DIMENSIONAL  (ND1*ND2)  MATRIX  OF  COEFFICIENTS. 
N  -  IS  THE  NUMBER  OF  EQUATIONS  AND  UNKNOWNS. 
Nin  -  IS  THF  FIRST  DIMENSION  OF  A  IN  CALLING  PROGRAM. 
(  NDl.GE.N   AND   ND2.GE.N+1  ) 


CALLING  PROGRAM  SETUP 
A(ItJ)  FOR  I,J=ItN 
Ad  ,N  +  1)  =  B(  I)  FOR  I  =  1,N 
THE  SOLUTION  IS  RETURNED 
MATRIX  A  IS  DESTROYED  BY 


IN  COLUMN  N+1  OF 
THE  SUBROUTINE. 


MATRIX  A 


1000  CONTINUE 


C* 
C* 
C* 
C* 
C* 
C* 

c» 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c» 
c* 


REMARKS 

IF  MATRIX  A 
AND  THE  JOB 

METHOD 

SOLUTION  IS 
DIVISOR  OF 


IS  SINGULAR,  AN  ERROR  MESSAGE  IS  PRINTFD 
IS  ThRMINATFD. 


OBTAINED  BY 
EACH  COLUMN. 


ELIMINATION  USING  LARGEST  PIVOTAL 
EACH  STAGE  OF  ELIMINATION  CONSISTS 


OF  INTERCHANGING  ROWS  WHEN  NECESSARY  TO  AVOID  DIVISION  BY 

ZERO  OR  SMALL  NUMBERS. 

THE  FORWARD  SOLUTION  TO  OBTAIN  VARIABLE 

STAGES.  THE  BACK  SOLUTION  FOR  THE  OTHER 

CALCULATED  BY  SUCCESSIVE  SUBSTITUTIONS. 

VALUFS  ARE  DEVELOPED  IN  COLUMN  N+1  OF 

VARIABLE  1  IN  A(1»N+I),  VARIABLE  2  IN 

VARIABLE  N  IN  A(N,N+1). 


N  IS  DONE  IN  N 
VARIABLES  IS 
FINAL  SOLUTION 
MATRIX  A,  WITH 
A(2,N-M)  ,....t 


♦00038740 
*0003875>0 
*00058760 
♦00038770 
♦00038780 
♦00038700 
♦00036800 
♦00038810 
♦00038820 
♦00038830 
♦00038840 
♦00038850 
♦00036860 
♦00038870 
♦00038880 
♦00038890 
♦00038900 
♦00038910 
♦00036920 
♦00038930 
♦00038940 
♦00038950 
♦00038960 
♦00038970 
♦00038980 
♦00038990 
♦00039000 
♦00039010 
00039020 
♦00039030 
♦00039040 
♦00039050 
♦00039060 
♦00039070 
♦00039080 
♦  000390*50 
♦000391C0 
♦00039110 
♦00039120 
♦00039130 
♦0003O140 
♦00039150 
♦00039160 
♦00039170 
♦00039180 


(;«4c*:»3t<3(>:0c*4c«:(i«:(c«4c«4t4t*})c*4<*4:4c^4'»*4i«»*«4c4i4c4t4t«4c4r^^)ic^^^  4c  ^'♦♦^i^^' <(♦♦♦♦*♦♦♦♦♦«♦♦  ♦4^00039  190 

REAL  A(LL,1),B,BIG  00039200 

N   =  KK  00039210 

Nl  =  N+1  00039220 

DO  50   L=1,N  00039230 
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25 


32000 


3C 


40 


AS 
bO 


LI  =  L+1 

PIG  =  0.0 

00  25.   I  =  L,N 

IF  (APS(A{1»L) ).LE.ABS(BIG))  GO  TO  25 

K  =  I 

bIG  =  A(I tL) 

CONTINUE 

IF  (BIG. NE. 0.0)  GO  TO  30 

WKITE(6,32000) 

FrjRMAT(24H  SIMSOL  MATRIX  SINGULAR.) 
STOP 

J=L,N1 
EO.L)  GO  TO  40 
=  A(K,J) 
A(L,J) 
B 

A(L,J)/BIG 
EQ.N)  GO  TO  50 

I=L1,N 
I,L).E0.0.0)  GO  TO  48 
J=L1,N1 
=  A(I,J)-A(I»L)*A(LtJ) 


4  0 
(K, 


60 


0  0 
IF 
B 

A(K, J) 
A(L, J) 
A(L,J) 
IF  (L, 
DO  4H 
IF  (  A( 
DO  4  5 
A(  It  J) 
CONTINUE 
CONTINUE 

IF  (M.FC.l)  RETUf^M 

N2  -    N-1 

DO  60   L=lfN2 

1  =  N-L 
LI  =  I+l 

DO  60   J=L1,N 

A(I,N1)  =  A(I,N1)-A{ I,J)*A( JfNl) 

RETURN 

END 


000392A0 

00039250 

0003P260 

00039270 

00039280 

00039290 

00039300 

00039310 

00039320 

00039330 

00039340 

00039350 

00039360 

00039370 

00039380 

00039390 

00039400- 

00039410 

00039420 

00039430 

00039440 

00039450 

00039460 

00039470 

00039480 

00039490 

00039500 

00039510 

00039520 

00039530 

00039540 

00039550 

00039560 
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SUBROUTINE    SUSFRC( DISP tV EL)  SUSFOOIO 

C  HV0SM-RD2    VERSION  SUSFOOIO 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION  SUSFOOjiO 

C  SUSF00  40 

C       SUBROUTINE    TO    COMPUTE    SUSPENSION    FORCES    ACTING    BETWEEN    SPRUNG  SUSF0030 

C      AND    UNSPRUNG   MASSES  SUSF0U60 

C  SUSP  00  70 

CDMMON/INPT/PHI0,THETAO,PSI0,P0,QOfRO,XC0P,YCOP,ZC0P,U0tV0tWO,  SUSF00  80 

1  A,B,DEL10,DEL20,DEL30,PHIRO,DEL10D,DEL20D,DEL30D,  SUSF0090 

^.  PHlROU,TF,TR,ZFf  ZR,RHO,AKRS,XMURt  SUSFOIOO 

3  XMS,XMUF,XIXf  XIYf  XIZ,XIXZfCF,AKF,XLAMF,0MEGF,CFP,EPSF,SUSF0110 

4  RF,CR,AKR,XLAMR,OMEGRfCRP,EPSRtRR»TS,THMAX,DTCGMP,TO,  SUSFOIOO 
3  Tl»DTCMPl,DTPRNTtMOOEiEbAR,EM,AAA,HMAX,HMIN,bET,G,  SUSF0130 

6  HED( J6),UADE(3),X1I<,X1,Y1,Z1,X2,Y2,Z2»PH1C (SO) ,DELB,       SUSFC140 

7  DELE,DDLL,NDEL,PSlF(50),TQF{b0) ,TgR(50) »TP,TEtTINCR,       SUSFOISO 

8  NZTAB,NZS.f  XBDRYi'+tSj.PSBDRYi^tb)  ,  YBDRY(2,5  ),N6X(5),  SUSF0160 

9  NBY(S.),NTBL1  fNTBL2fNTBL3,ZGP(21,21t5)  SUSF0170 
COMMON/INPT/XB(5),XE(5)t XINCR(3) tNX (3 ) , YB ( 5) . YE ( 5) , YINCR ( 5 ) , NY ( 5 ) ,SU SFOl -0 

1  XXZ&P3(21)  »YYZGP5(21) , AMUG( 5 ) tP SbDRO (4,5 ) ,UV WM IN ,POKMIN    SUSFOISC 

COMMON/ INP 13/    AKFC»AKFCPtOMEGFC,AKFE,AKFEP,OMtGFE,AKRC,AKRCP,  SUSF02  0G 

1  OMEGRC tAKRE,AKRFP,0MEGRE,FND3  SUSFOilO 

COMMON    /INTG/NEQ,T,DT,VAR(50) ,DER( 50)  SuSFO^tO 

LUJ I  VALENCE     (U,VaR(1  )) ,<  V,VAR(2) ),(W,VAR(3)) ,  IP,VAR(4)  ), (Q,VAR(5)  )SbSFC2  30 

1  , (R,VAR(6))  ,{DEL1,VAR(7) ) , ( DEL  1 D, V AR ( 8 )  )  ,  ( D EL2 , VAR ( 9 ) ) ,SUSF 02 ^0 

2  (DEL2D,VAR(10)),(DEL3tVAR(ll) ) ,(DEL3D,VAR( 12)) ,  SU£F0^30 

3  (PHIR,VAR(13) ),(PHIRD,VAR(14) ),(THETTP,VAR(15) ),  SUSF0260 

4  (PHITP,VAR(16)),(PSITP,VAR{17) ),(XCP,VAR(18) ),  SUSF0270 
3  (YCP,VARa9)  ),(ZCP,VAR(20))  ,(PSIFI,VAR(21)  >,  SJSF0280 
6                                  (PSIFID,VAR( 22))                                                                                                         SUSF0290 

cOUI VALENCE     <OU,DER( 1) ), «DV,D6R(2)  ) , (DW,DER( 3  )  )  ,  (DP,DER ( 4)  ) ,  SUSF0300 

1  (DO, DERI  3)  ), (DR,DER(6>),(DDELl,DtRI7)), (DDEL ID , DER ( 8 ) )SUSF0310 

2  , (0DEL2,D£R(9)),(DDEL2D,DER(10) ),(DDEL3,DER(11) ) ,  SUSF0320 

3  (0DEL3D,DER{ 12) ),(DPHIR,DERI13)), (DPHIRD,DER(14)),  SUSF0330 

4  (OTHTTP,DER( 13)), (DPHITP,DER(16) ) ,(DPS1TP,DER(17) ),  SUSF0340 
3  (DXCP,DER( 18)  ),{DYCP,OER( 19) ),(DZCP,DER(20) )  ,  SUSF0350 
6                                  (DPSIFI,DER(2l)),(DDPSFI,D£R(22) )  SUSFC3b0 

EQUIVALENCE    ( VAR ( 9 ) , PHIF  )  , (VAR (10) ,PH1FD) , ( DER (9 ), DPHI F) ,  SU SF 03 70 

1  (DER(IO) ,DPHIFD)  SUSF03&0 

EQUIVALENCE     (VAR(13) ,DEL4) , ( VAR ( 14 ) ,DEL4D ) , ( DER ( 13 ) ♦DDEL4 ) ,  SU SF 03 90 

1  (OER( 14) ,DDELhD)  SUSF0400 

COMMON    /DIMV/X1P,X2P,X3P,X4P,Y1P,Y2P,Y3P,Y4P,Z1P,Z2P,Z3P,Z4P,PHI1 ,SUSF04  10 

1  PHI2,PHI3,PHl4,PSIl,PSI2,PSI3,PSl4,CAYWl4l,CeYW(4),        SUSF04^C 

2  C&YW(4) ,ZPGI(4),THGI(4),PHGI(4) ,CPG (4 ) ,SPG( 4) ,CT&(4 ) ♦ SUSF04  30 

3  STG(4),CAG2(4),CBGZI4),CGGZ(4),D1(4),D2(4),D3(4),  SUSF0440 

4  XLM1I4),XLM2(4),XLM3(4),AMTX(3,3),CMTX(3,4),XGPP(4),     SUSF04  30 

5  YGPP(4) ,ZGPP(4),DMATX(10,11),DELTA(4) ,CAR(4),CBR(4),     SUSF04tO 

6  CGR(4),FR(4),HI(4) ,FC(4),TI(4),AX(4),BX(4),CX(4),  SUSF0470 

7  CTXG{4) ,UG(4),STXG(4) ,AY(4),bY(4),CY(4),CPYG(4),  SUSF04e0 

8  SPYG(4) ,VG(4),PSIIP(4),PH1CI(4),CAC(4),CBC(4) ,CGC(4) ,SUSF04  90 
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TIME       1729 


UPDATE    RECORD 


V  FCXU(4) ,FCYU(4)fFC2U(4)fFS(4),CAXW(A) ,CBXW(A) ,CGXW(4 

COMMON    /DIMV/AS(^) ,BSI4) tCS(4 ) ,CAS (4) ,CBS( 4) ,CGS (4 ) ,bETP (4 ) , 

1  BtTbk(4),FSXU(^)tFSYU(4),FSZU(4)  ,  FRXU  <<f )  ,  FRYU  (4  )  i 

2  FRZU{4) ,FXU(4),FYU(4) ,FZU(4) ,SI14),FlFI(2)fFlRI(2l, 

3  F2F1(2) »FiRI(2),CAH(4),CBH(4) ,CGh<4) 
DIMENSION   XP(4),YP(4),ZP14),PHII(4),PSII(4) 

EQUIVALENCE     (XP( 1) , XIP ),  ( YP( 1 ), YIP ) , ( ZP ( 1 ) ,Z1P) , iPHII < 1) ,PHI 1 ) , 
1  (PSII(l) ,PSI1) 

COMMON    /C0MP/SUMM,THETNtPHIN,PSIN.PI,RAD,&AMl,GAM2 vGAM3,GAM4,GAM5 

1  GAM6,GAM7,&AM8,&AM9,THETT,PHIT,PSIT,ZR0,TR02, 

2  TF02tTIZf RH02,RH0MUR,AMUF,BMURfZPRtTM4,RHMR2tA02APBt 

3  B02APB,RFTF ,TS02 »RRTS fBROMUR t XMUF02 tAXMF02,XMTF04, 

4  XIZRfRTR,RHMR2I,XIXP, XIZPtXlXZP,XIYZP»DlPD2,01MD2, 

b  ZRD3tZRD3R»  ZFD3R t ZFD12,TIZ2 , T&61 ,DD1P2,0D1M2 ,RPR t PHR 

6  ,TANTP,SPHTPtCPHTP,SECTP,SFXStSFYStSFZS,SNPStSNTS, 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYUtSFXU»SFYUF, 

8  SFYUR»SFZU»COSTH,SINTH,COSPS.SlNPS»COSPHtSINPH,ANGlt 

9  ANG2,CPHI ,SPHI,CPSIfSPSI.Pl,P7,P3iP4,P5,P6,TX,TY,TZ 
COMMON    /CaMP/TRH,DISTX,DISTY,DISTD,DISTS,D21,ZETA4,ZETA4Df ZETA3, 

1  ZETA3D,SFZl , SNPU,SNTU,HCGH1 ♦HCGH2 ,HCGH3,HCGHh,TERM1 , 

2  TERM2»SNPSU»SNPR,HCBHltHCBH2tHCbH3,HCBH4iHCAHl,HCAH2 
:>  HCAH3,HCAH4,UQ,WP,URf  QRtVPtPR,P2fQ2,R2,VR,W0,PU,PHIR 

4  ,PHIRD2,RPHRD,&CTH,GSTH,GCTSP,GCTCPf XXX,YYY,IX,IY,XX1 

5  XX2,YYl,YY2,THGl,THG2tPHGl,PHG2,ZZl,ZZ2,LLL 
DIM  ENS  ION    HC AH ( 4 ) , HC  BH (4 )  ,HCGH( 4  ) 

EQUIVALENCE     (HCAH(l) , HCA HI ) , ( hCBH( 1 ) , HCBHl ) , ( HCGH( 1 ) ,HCGHI ) 
COMMON /ADTNL/    Ul  .U2  ,  U3  t U4,V1 ,  V2  ,  V3  ,  V*t  ,W1  ,  W2,W3,  W4, 

1  XIYP,SPH1C,CPHIC,APTCH1,APTCH2,APTCH3,APTCH4, 

2  SL0PE1,SL0PE2,XTRA(300) 
DIMENSION   UI (4),VI(4),WI(4) 

EQUIVALENCE     (UI ( 1 ) ,U 1) , ( VI ( 1 ) , VI  1 1 ( WI ( 1 ) tWl) 
DIMENSION    APITCH(h) 
EQUIVALENCE     ( APITCH ( I ) .APTCHl ) 

COMMON /APTABL/    APFR( 21 ,2 ) f 1 APFR ( 2) ,DAPFB , DAPF E t DDAPF.N 
1  DAPRB,DAPRE»DDAPR tNAPR 

DIMENSION    APF(21)tAPR(21 ) 

EQUIVALENCE     <APFR(I,1) ,APF(l)>f ( APFR(  1 ,2 ) ♦ APR ( 1 ) ) 
EQUIVALENCE     (IAPF,IAPFR( 1 ) ) , ( lAPR, I APFR ( 2 ) ) 
COMMON    /IN^iUS/    XIF,RHOF,TSF,PHIFOtPHIFOD,DEL40,DEL40D, 

1  AKDSf AKDSl»AKDS2,AKDS3tPHlRC(50)fDTHF(5 

2  NCAMF,NCAMR,NOTHFtNDTHR 
COMMON    /SUSCMP/    XMUR02 tB XMRU2 t XMTR04, ZFOt TSF02f RH0F2tR 

1  RHF2MF,RF2MFI,RTF,RRTR,D3PD4,D3MD4,D43 

2  DD3M4,ZFDlRF,ZRD34,RFPF,RPF2M,WFMFfPHF 

3  PHIFD2,RPHFD,ZFD1,ZFD2,ZRD4,TPF,SL0PE3 

4  PHI3DtPHI4D,DTHFl,DTHF2,DTHR3fDTHR4,DT 

5  DTDD2,DTDD3,DTDD4,FJF(4),SNPF 
DIMENSION    DISP(4),VEL(4) ♦F1I(4) ,F2I(4) 
EQUIVALENCE     (FlI ( 1 ) , FIFI ( 1) ) , ( F2I( 1 ) t F2F1 ( 1)  ) 

DO    500    1=1.4 


APF 


ISUS, 
0),DTHR(50) 

HFMUF, 

,DD3P4, 

PfPHIF2. 

,SL0PE4t 

DDlt 


)SUSFO*>00 
SUSFC510 
SUSF0i>20 
SUSF053C 
SUSF0&40 
SUSF0&50 
SUSF05  60 
SU  SF  05  70 

,SUSF0580 
SUSF05  90 
SUSF06  00 
SUSF06  10 
SU  SF  06  20 

PSUSF06  30 
SUSF06  40 
SUSF06  50 
SUSF0660 
SUSF06  70 
SUSFObfaO 
SUSF0690 

.SUSF0700 

2SUSF0710 

,SUSF0720 
SUSP  07  30 
SUSF0740 
SUSP 0750 
SUSF0760 
SUSP  0770 
SUSF07eO 
SUSF0790 
SUSF0800 
SUSP 08 10 
SUSP 08 20 
SUSP  08  30 
SUSP 06 40 
SUSF08  50 
SUSP  08  60 
SUSP 08  70 
SUSF08  60 

.SUSP 08  90 
SUSF0900 
SUSP  09 10 
SUSP 09 20 
SUSP  09  30 
SUSP  09  40 
SUSP  09  50 
SUSP 09 60 
SUSP  09  70 
SUSP0980 
SUSP 09 90 
SUSP  1000 
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1F(I.6E.3)  GO  TO  200 
IF(EPSF.LE.O.O)  GO  T 
lF(ABS(VbL(I)) .GE.EP 
FlI  CD  =  (CFP/fcPSF)* 
GO    TO    20 

10    FII(I)    =    SIGN(CFP,VE 

20    XLM    =1.0 

IMP  =  DISP(I)*VEL(I) 
IF(DISP(1).GT.0MEGFE 
IF(DISP(I).LT.OMEGFC 
F2I{1)  =  AKF*DISP(1) 
GO    TO    100 

30  IF(TMP.LT.O,0)  XLM  = 
DISPl  =  DiSPd  )-OMEG 
e2I< 1)  -  AKF»DISP(I) 
GO    TO    100 

40    IF(TMP.LT.O.O)     XLM    = 
DISPl    =    DISP(I)-OMEG 
F2I(I  )    =   AKF*DISP{I) 
GO    TO    100 
100    IF(IAPF.EQ.O)    GO    TO 
APITCH(I)    =    0.0 
1F(FC( 1)  .EQ.0.0)    GO 
TMP3    =    C0S(PHI1(I))* 
CALL    INTRPL( APF,DAPF 
APITCHHl    =    -APC*FC( 
150    ABAR    =    RFTF*D21 

IF(ISUS.EQ.2)    GO   TO 
IF(I.E0.2)    GO   TO    102 
FJF( 1)    =    -SL0PE1*(FY 
GO    TO    103 

102  ABAR    =    -ABAR 
FJF(2)     =    -SL0PE2*{FY 
GO    TO    103 

105    ABAR    =-RTF*PHlF 

IF( I.EU.2)  ABAR  =  -A 
FJF(I)     =    0.0 

103  SKI)  =  Ba2APB-CF*VE 
GO    TO    S>00 

200  IF(EPSR.LE.O.O)  GO  T 
IF(ABS(VEL( I)).GE.EP 
FIKI)  =  (CRP/EPSR)* 
GO    TO    220 

210    FII(I)    =    SIGN(CRP,VE 

220    XLM    =    1.0 

TMP  =  DISP{I)*VEL(I) 
IF(DISP(I).GT.OMEGRE 
IF(DISP(I).LT.OMEGRC 
F2I(I)  =  AKR*DISP(I) 
GO    TD    300 

230    IF(TMP.LT.O.O)    XLM    = 


0    10 

SF)    GO    TO    10 

VE  L  ( I  ) 

L(  I)  ) 


)    GO    TO    30 
)    GO    TO    40 


XLAMF 
FE 
+XLM*(AKF£*DISP1+AKFEP*DISP1**3) 

XLAMF 
FC 
♦XLM*(AKFC*D1SP1+AKFCP*DISP1**3) 

150 

TO    150 

C0S(PSII(I))/12.0 
B,DAPFEfDDAPF,DISP(I) ,APC) 
I1*HI(I |*1MP3 

105 

U( 1)*HCGH1-FZU(1)*HCBH1)     +    FYU(1)*DTDD1 


U(2)*HCGH2-FZU(2)*HCBH2)    -    FYU(2)*DTDD2 


BAR 


L( I)-Fll(l)-F2I(I)+ABAR+FJF(I)+APITCH(I) 

0    210 

SR)    GO    TO    210 

VEL(I) 

L(I)} 


)    GO    TO    230 
)    GO    TO    240 


XLAMR 


SUSFIOIO 
SUSF10  20 
SUSF10  30 
SUSF1040 
SUSF1050 
SUSF  1060 
SU  SF  10  70 
SUSF  1080 
SUSF  10  90 
SUSF  11  00 
SUSF  11  10 
SUSF  11  20 
SUSF1130 
SUSF1140 
SUSF  11  iO 
SUSF  11  60 
SUSF  11  70 
SUSF 1180 
SUSF1190 
SUSF1200 
SUSF1210 
SUSF12Z0 
SUSF  12  30 
SUSF12  40 
SUSF  12  50 
SUSF1260 
SUSF  12  70 
SUSF  1260 
SUSF  12  90 
SUSF  1300 
SUSF  13  10 
SUSF  13  20 
SUSF  13  50 
SUSF  13  40 
SUSF1350 
SUSF  13  60 
SUSF  13  70 
SUSF1380 
SUSF  13  90 
SUSF  1400 
SUSF  14  10 
SUSF  14  20 
SUSF  1430 
SUSF 1440 
SUSF1450 
SUSF 1460 
SUSF1470 
SUSF  1480 
SUSF  14  90 
SUSF 1500 
SUSF 15 10 
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240 


300 


350 


302 


305 


303 
500 


DISPl    =    DISPCD-OMEGRE  SUSF1520 

F2I(I)    =   AKR*DISP(I)+XLM*(AKRE*0ISP1*AKREP*DISP1**3)  SUSF1530 

GO    TO    300  SUSF1540 

IF(TMP.LT.O.O)    XLM    =    XLAMR  SUSF1550 

DISPl    =    DISP(I)-0«EGRC  SUSF1560 

F2I(I)    =    AKR*DISP(I)+XLM*(AKRC*D1SPI+AKRCP*0ISP1**3)  SUSF1570 

IF(IAPR.EO.O)    GO   TO    350  SUSF1580 

APITCH(I)    =    0.0  SUSF1590 

IF(FC(I).EO.O.O)    GO    TO   350  SUSF1600 

TMP3    -    C0S(PHI1(I))*C0S(PSII(I))/12.0  SUSF1610 

CALL    IN1RPL(APR,DAPRBtDAPREfDDAPR,01SP(I)f APC)  SUSF1620 

APITCHCI)    =      APC*FC(  I)*HI<I)*THP3  SUSF1630 

ABAR    =    RRTR+D43  SUSF1640 

IF( ISUS.NE.l)    GO    TO    305  SUSF1650 

IF(I.eQ.4)    GO    TO    302  SUSF1660 

FJF(3)    -   -SL0PE3*(FYU(3)*HCGH3~FZU(3I*HCBH3)  ♦    FYU(3)*DTDD3                    SUSF1670 

GO    TO    303  SUSF16fc0 

ABAR    =    -   ABAR  SUSF1690 

FJF(4)    =   -SL0PE4*(FYU(4)*HCGH4-FZU(4)*HCBH4)  ~    FYU(4)*DTDD4                    SUSF1700 

60    TO    3  03  SUSF1710 

ABAR    =    ~RTR*PHIR  SUSF1720 

lF(l,Et.4)    ABAR    =    -AbAR  SUSF1730 

FJF(I)    -   0.0  SUSF1740 

SKI)    =    A02APB-CR*VEL(I)-FlI(I)-F2I(I)  +  ABAR+APITCHri)  +  FJFtI)  SUSF1750 

CONTINUE  SUSF1760 

SFZl    =    SI(1)+SI(2)+SI(3)+SI(4)  SUSF1770 

RETURN  SUSFlTfaO 

END  SUSF1790 
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SUBROUTINE    TEREADC I , NNBX , NNBY,NNX, NNY ,NZ5T,NERR )  TEREOOIO 

C  HVOSM-RDZ    VERSION  TERE00  20 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION  TERE0030 

COMMON/INPT/PHIO,THETAO,PSIO,PO,QO,RO,XCOP,YCOP,ZCOP,UO,VO,WO,  TEREDOS 

1  A,b,DELlO,DEL20,DEL30,PHIRO,DtL10DtOEL20D,DfcL30D,  TEREOOIO 

2  PHIR0UfTFtTR,ZF,ZRtRHOtAKRStXMURt  TERE0060 

3  XMS»XMUF»XIX,XIY,XIZtXIXZtCF,AKF,XLAMF,0ME&P,CFP,EPSF,TERE00  70 

4  RF,CR,AKR,XLAMR,OMEGRtCRPfEPSR,RR,TStThMAX,DTCOMP,TO,    TE RE  00 80 

5  Tl,DTCMPl,DTPRNT,MODEf EBAR,EM,AAA,HMAXThMIN,bET,G,  TERE0090 

6  HED(36),DADE(3) tXIR,Xl,Yl,Zl,X2,Y2,Z2,PHlC(50),DELB,  TEREOIOO 

7  DELEfDDEL,NDEL,PSIF(50)fT0F(50),TQR(50),TB,TEtTINCR,  TE RE  01 10 
B  NZTAB,NZ5,XBDRY(4,5) ,PSBDRY(4,5), YBDRY(2,5)tNbX(3),  TERE0120 
9                                  NBY(5),NTBLl,NTBL2tNTBL3,ZGP(21,21t5)  TERE0130 

C0MM0N/INPT/XB(5),XE{5)tXINCR(5) tNX (5 ) , YB ( 5 ) t Yf ( 5) , YINCR ( 5 ) ,NY(5 ) ,TERE0140 
1  XXZGP5(21),YYZGP5(21),AMU&(!>)fPSBDR0(4»5) ,UV WMIN ,PQRMIN    TEREOILO 

DIMENSION    DUM(16)  TERE0160 

LSEQ    =    0  TERE0170 

IFCNNBX.LE.O)    GO    TO    10  TERE0180 

READ(2,2000)    < DUM( K ) ,K=1 t9) t NSEQ tNCARD  TERE0190 

2000    F0RMAT(9F8. 0,214)  TERE0200 

IF(NStQ.LT.LSEQ)    GO    TO    98  TERE0210 

LSEQ    =    NSEU  TERE0220 

IF(NNBX.GT.4)    GOTO    98  TERE0230 

DO    11    K=1,NNBX  TERE0240 

11  XBDKY(K,I)  =  DUM(K)  TERE0250 
READ(2,2000)  ( DUM( K ) ,K =1 , 9) ,NSEQ,NCARD  TERE0260 
1F{NSE0.LT.LSE0)  GO  TO  98  TERE0270 
LSEG  =  NSEU  TERE0280 
DO    12    K=1,NNBX  TERE0290 

12  PSBORO(K,I)    =    DUM(K)  TERE0300 
10    IF{NNBY.LE.O)    GO    TO    20  TERE0310 

IF(NNbY.GT,2)    GO    TO    98  TERE0320 

READ(2,2000)    ( DUM(K ) .K^l ,9),NSEQ ,NCARD  TERE0330 

IF(NSEQ.LT.LSEO)    GO    TO    98  TERE0340 

LSEQ    =    NSEU  TERE0350 

DO    13    K=1,NNBY  TERE0360 

13  YBDRY(K,I)    =    DUM(K)  TERE0370 
20    NYCOS    =    {NNY-l)/9+l  TERE0380 

DO    30    J  =  1,NNX  TERE0390 

M    =    0  TEREOAOO 

DO    40    K=1,NYCDS  TERE0410 

READ(2,2000)     (  DUM(N  )  ,N=:1 ,  9)  ,NSEQ  .NCARD  TERE0420 

IF(NSEQ.LT.LSEQ)    GO    TO   98  TERE0430 

LSEQ    =    NSEQ  TERE0440 

DO    50    N=l,9  TERE0450 

M    =    M+1  TERE0460 

ZGP(J,M,I)    =    DUM(N)  TERE0470 

IF(M.GE,WY)    GO    TO    30  TERE0480 

50    CONTINUE  TERE0490 
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^0  CONTINUE 
30  CONTINUE 

IF(NZ5T.EQ.O)  GO  TO  99 

M  =  0 

DO    60    K=ltNYCDS 

READ(2,2000)    ( DUM( N ) ,N=1 ,9) ,NSEQ ,NCARD 

IF(NSEQ.LT.LSEQ)    GO    TC   98 

LSEQ    =    NSEQ 

DO    61    N=l,9 

M    =    M*l 

YYZGP5(M)    =    DUM(N) 

IF(M.GE.NNY)    GO    TO    70 
61    CONTINUE 
60    CONTINUE 

70  NXCDS    =     (NNX-l)/9    ■»■    1 
M    =    0 

DO    71    K=l, NXCDS 

READ (2,2000)    (DUM(N) ,N=1 , 9) ,NSEQ,NCARD 
IF(NSEO.LT.LSEO)    GO    TO    98 
LSEO    =    NSEQ 
DO    72    N=lt9 
M    =    M+1 

XXZGP5(M)    =    DUM(N) 
IF(M.GE,NNX)    GO    10    99 
72    CONTINUE 

71  CONTINUE 

98  NERR  =  1 

99  RETURN 
END 


TERE05  00 
TE  RE  05  10 
TERE0520 
TERE0530 
TE  RE  05  40 
TERE0550 
TERE0560 
TERE05  70 
TE  RE  05  80 
TERE0590 
TERE0600 
TE  RE  06 10 
TERE0620 
TERE0630 
TERE06A0 
TE RE  06 50 
TERE0660 
TERE0670 
TERE06  80 
TE  RE  06  90 
TERE0700 
TERE0710 
TERE0720 
TE  RE  07  30 
TERE0740 
TE  RE  07  50 
TE RE 0760 
TE  RE  07  70 
TERE0780 
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SUBROUTINE    TIRFRC(J)  TIRFOOIO 

C  HV0SM--RD2    VERSION  TIRF0020 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION  TIRF0030 

COMMON    /DIMV/XlP,X2PfX3P,X4P,YlP,Y2PtY3P,Y4P,ZlP,Z2P,Z5P,Z4P,PHIl,TIRF00  40 

1  PH12fPHI3fPHI4,PSIltPSI2,PSI3,PSI4,CAYW(4),CBYW(4),       TIRF005-0 

2  C&YW(4)  ♦ZPGIC4),THGI(4),PHGI(4) .CPG( 4 ) ,SP&(4) ,CTG(4) ,TIRF0060 

3  STG(4) ,CAGZ<4),CbGZ(4),CGGZ(4),DlC4),02(4),D3(4),  TIRF0070 

4  XLM1(4) ,XLM2(4)fXLM3('t),AMTX(3,3)tCMTX(3,4),XGPP(4),    TIRF0080 

5  YGPPC-^) ,ZGPP(4)tDMATX(10fll) tDELTA(4) ,CAR(4),CBR(4),     TIRF0090 

6  CGR(4),FR(4) tHI(4) ,FC(4),TI(4),AX(4)»BX(4),CX(4),  TIRFOIOO 

7  CTXG(4) ,UG(4),STXG<4) ,AY(^),bY(4),CY(4),CPYG(4),  TIRFOllO 

8  SPYG(4) ,VG(4),PSI1P(4),PHICI(4) ,CAC(4) ,CBC(4) ,CGC(4) ,TIRF0120 

9  FCXUU)  ,FCYU(4)»FCZU(4),FSI4),CAXW(4)  ,CBXW(^>  ,C&XW<  4  )  TI  RFOl  30 
COMMON    /DIMV/AS(4),BS(4) ,CS (4} ,CAS ( 4» tCBS ( 4 J , CGS (4 ) ,6E TP (4 ) ,  TIRF0140 

1  bETbR{4),FSXU(4),FSYU<4),FSZU(4)  ,FRXU(4),FRYU(4)  ,  TIRFOlf^O 

2  FRZU(4) ,FXU(4) ,FYU<4) ,FZU«4) ,S1 t 4) ,F1FI (2 ) ,F1 RI ( 2 )  ,       TIRF0I60 

3  F2FI(2)  ,F2RI(2),CAH(4),CBH(4),CGH('t)  TIRF0170 
DIMENSION  XP(4)  ,YP(*t),ZP(4),PHII(4),PSII(4)  TIRFOIBO 
EUUl VALENCE     (XP ( 1 ) , X  IP  )  ,  ( YP ( 1 )  ,  YIP ) ,  (  ZP (I ) , ZIP ) , (PHI I ( 1 ) » PHI  1  )  ,          TIRF0I90 

1  (PSII(1),PSI1)  TIKF0200 

COMMON    /C0MP/SUMM,THtTN,PHIN,PSIN,PI,RADfGAMl,GAM2,GAM3»GAM4,GAM5.TIRF02 10 

1  GAM6,GAM7,GAMB,GAM9,THETT,PHIT,PSlT,ZR0,TRG2t  TlRFO^kO 

2  TF02,TIZtRHC2,RH0MUR,AMUF,BMURtZPR»TM4,RHMR2f A02APB,    TIRFO230 

3  B02APB,RFTF,TS02,RRTSf BR0MURtXMUF02,AXMF02tXM7F04,  TIRF0240 

4  XIZR,RTR,RHMR2I,XIXP»XlZP,XIXZP,XIYZPf  D1PD2,D1MD2,  TIRF02i)0 

5  ZRD3f ZRD3R, ZFDSRt ZFD12 .T I Z2, TG61 ,DD1P2 ,DD1M2 ^RPR , PHRPTI RF02  60 

6  ,TANTP,SPHTP,CPHTPf SECTP,SFXS,SFYS,SFZS,SNPS»SNTS»  TIRF0Z7G 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CbX,CGX,SFYUtSFXU,SFYUF,  TIPF0280 

8  SFYUR,SFZUtCCSTH,SINTH,COSPStSINPS,CCSPHtSlNPH,ANGlf    TIRF02  90 

9  ANG2tCPHl tSPHltCPSItSPSItPl»P7,P3tP4,P5,P6,TX,TY»TZ  TIRF0300 
COMMON    /C0MP/TRH,DISTXfDISTY»DISTD,DlSTStD21tZETA4fZETA^D,ZETA3,       TIRF03  10 

1  ZETA3D,SFZ1  ,SNPU,SNTUfHCGHi,HCGH2,HCGH3,HCGH^,TfcRMl,     TIRF0320 

2  TERM2tSNPSUfSNPR,HCbHl,HCeH2,HCBH3»HCBH4,HCAHl,HCAH2,TIRF0330 

3  HCAH3fHCAH4,UQ,WPiUR,OR,VP,PR,P2fQ2,R2,VR,WQ,PQ,PHIR2TIRF03  40 

4  ,PHlRD2f RPHRDtGCTH,GSTH,GCTSPtGCTCP,XXX,YYY,IX,lY»XXl,TIRF03  50 
t>  XX2fYYl,YY2tTHGlfTHG2fPHGltPHG2,ZZitZZ2tLLL  TIRf0360 

DIMENSION   HCAH(4),HCBH(4),HCGH(4)  TIRF03  70 

EQUIVALENCE     (HCAH( 1 ) ,HCAH1) t ( HCbH( 1 ) tHCBHl) , ( HCGH( 1 ) ,HCGH1 )  TIRF03  80 

COMMON    /COMPN/    FRSP( 4) ,FRCP(4 ) , ICBHIT, JCBHIT ,  7IRF0390 

1  DPSINT»TANPCl,lANPC2tPHIClR,PHIC2R»AMUCMP,PHIlD»  TIRF0400 

2  PHl2D,LCBl(4),LCB2(4)tIHIT,AJMTX(3,3),bMTX(3,3),  TIRFOtIC 

3  SFRX{4)  ,SFRY(4)tSFR2(4)fTlPSl,T2PSI  fXMUGH4)  TIRF0420 
LOGICAL  LCB1,LCB2  TIRF0430 
COMMON/ADTNL/    UltU2,U3  ,U4fVltV2 t V3f V4f Wl , W2, W3f W4,                                             TIRF0440 

1  XIYP,SPHIC»CPHICtAPTCHltAPTCH2tAPTCH3fAPTCH4f  TIRF0450 

2  SLOPElfSLOPE2fXTRA{300)  TIRF0460 
DIMENSION  UI (4) ,VI14),WI (4)  TIRFG470 
EQUIVALENCE  (UI ( 1) t Ul) , { VI( 1 ) f VI ) , ( WI< I ) ,W1)  TIRF04&0 
DIMENSION   APITCH(4)                                                                                                                                 TIRF0490 
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EQUIVALENCE  (A 
COMMON  /TIRIN/ 


100 


31 

32 
33 


ITER    =    0 
I    =    J 
K    =    J 

SPHIC    =    CAYHd 
PHICKII    =    ARS 
CPHIC    =    COS(PH 
IF(FR(I)  J4E.0. 
FC(I)    =    0,0 
FS(  I)    =    0.0 
FRCP(I)    =    0.0 
■■   0.0 

■  0.0 

■  0.0 

■  0.0 

:     0.0 

:  0.0 
■■  0.0 
•  0.0 
=  0.0 
0.0 


PITCH(l),APTCHl) 
AKT(4),SIGT(4),XLAMT(4),A0(4),Al(4),A2(4),A3{4), 
A4(4),0MEGT('»),AMU(4),RW(4},FJP(35f4},A234(4), 
A12(4»,0MT2A2(4),OIT2Ml(4)  ♦A23(4)  ,ITIR  (  4) 


)*CAGZn)*CBYW(I)*CBGZ(I)*CGYW(I)*CGGZ{I) 

IN(SPHIC» 

ICKD) 

0)    GO    TO    2 


FCXU(I)  = 
FCYU(I)  = 
FCZ.U(I)  : 
FRXUd)  = 
FRYU(I)  = 
FRZUd  )  = 
FSXU(I)  = 
FSYU(I)  = 
FSZU(I)  = 
FXU(I)  = 
FYU( I)  =  0.0 
FZU(I)     =0.0 

NOTE    THAT    SFX 
RETURN 
I    =    J 
K    =    J 

FRTEST    =    (FR(I 
IF(FRTEST.LE.O 
FRCP(I)     =    FRTE 
FCd)     =    0.0 
TERM    =    0,0 
PSITEM    =   PSIIP 
IF(UG(I)  J^E.O. 
IF(TI{I))3,6,4 
FCTR    =    ~  COS(T 
FACTOR    «    XMUGI 
IF(     ABS(TI(I>» 
FCd)    =    TId) 
GO    TO    33 
FCd)    =    FACTOR 
IF(    ABS(U&d)) 
GO    TO    to 
FCd)    =    XMUGK 
IF(ABS(TId)). 
IFd.EC.I.OR.I 
IF(TId).LE.O. 
I    =    I-l 


U,    SFYUt    AND    SFZU    ARE    UNCHANGED 


)    -   FS(I)*SPHIC) 

.0)G0    TO    100 
ST/CPHIC 


(I)    *    SIGNd.O.UGd)) 

0.0R.V&d).Nfc.O.0)TERM    =    ATAN2  (  VGd  )  ,ABS  (UGd  )  )  ) 

ERM    -    PSITEM  ) 

d)*FRCPd)    *   FCTR 
-   ABS(FACTOR)     )    31t31,32 

*  SIGNd.OfUGd)) 

*  SIGN(l.OtUGd)) 

•    LT.       (1.932))       FCd)    =    FCd)*ABS(UGd))/1.932 


I)    ♦    FRCPd) 
LT.ABS(FC(I)))    FCd) 
.EG. 3)60    TO    64 
0)G0    TO    64 


TId) 


TIRF05  00 
TIRF0510 
TIRF05  20 
TIRF05  30 
T1RF0340 
T1RF0560 
TIRF0660 
TIRF05  70 
TIRF0560 
TIRF05  90 
TIRF0600 
TIRF06  10 
TIRF0620 
TIRF06  30 
TIRF0640 
T1RF06  50 
TIRF06  60 
TIRF06  7.0 
TIRF06  80 
TIRF06  90 
TIRF0700 
TIRF0710 
TIRF0720 
TIRF0730 
TIRF0740 
TIRF0750 
TIRF0760 
TIRF0770 
TIRF07  80 
TIRF0790 
TIRF08  00 
TIRFOeiO 
TIRF0820 
TIRF06  30 
TIRF08  40 
TIRF0850 
TIRF0860 
TIRF08  70 
TIRF0&80 
TIRF08  90 
TIRF0900 
TIRF0910 
TIRF0920 
TIRF09  30 
TIRF09  40 
TIRF09J)0 
TIRF0960 
TIRF09  70 
TIRF0980 
TIRF0990 
TIRFIOOO 
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60  DO    61     L=IfJ 

IF(     ABS(XMUGI(L)*FRCP(L)  J     .LT.    TKD)    GO    TO    62 

61  CONTINUE 
GO    TO    dA 

62  IF(FC(  I)*HI( I).GT,FC(J)*HI( J)  )G0    TO    63 
FC( J)     =    FC(1)»HI(I )/Hl (J) 

GO    TO    64 

63  K    =    I 

FC(1)     =    PC(J)*H1(J)/HI(I} 

64  DO    14    I=K,J 
FS(  I )     =    0,0 

PSITEM    -    PSIIP(I)    ♦    SIGNCl.O.U&d)  ) 

IF(     ABi,(FC(  I  )).LT.    A&i>(XMUGl(I)*FRCP(I)  )-1.0)     GO    TO    65. 

bETBR( 1)    =    3.1 

GO    TO     1^ 

BETbR(I)     SET    TO    INDICATE    SKID       ON    OUTPUT. 

65  IF(     AbS(UG(I))     .Gl,    0.5)     GC    TU    7 
IF(     AbS(VG(I))     .LE.    0.5)     GO    TO    12 

7  FS(I)     =    SQRT((XMUGI( 1)*FRCP(I) )**2    -    FC(I)**2) 
IFlFRCPd)  .GT.OMEGT(  1)*A2(I)  )     GO    TL.    8 

BETPd  )     =    (PHICI  (I  )-.o36  6*PMlCl  {  I )  ♦AbS  {  PH  IC  U  I)  )  )*A23'*  (I  )*FkCP|I 

1  *(A4(n-FRCP(I  )  )    /     (Aid  )*FRCP(  n*(FRCP(  1  )-A2(  I)  ) 

2  -A0(I)*A2d)) 

BETb'<(I)    =    (TERM  +  BETPd)-PSITEM)*(  A12{  l)*FRCPd  )* 
1  (FRCPd  )-A2(I  )  )-AOd  )  )    /    FSII) 

GO    TO    V 

8  BETPd)     =    (PHICKI  )-.6366*PHlCl  d)*ABi>(PhICl(  I)  )  )*UMT2A2(I) 
BETBRd)    =     (TERM+BETPd)-PSITEM)*(0MT2Ml(  I)-AOd))    /    FSd) 

9  IF(ABS  (EETBRd)  ).LT.3.C)     GO    TU    10 
FSd)     =    SIGN(FSd),BETBR  (I)  ) 

GC    TO    11 

10  FSd)     =    FSd)*(bETBR  (I  )~BETbR(I  )*ABi,(£iETbK(l)  )/3.+  BhTBRd)**3/27 

11  ITEK    =    ITER+1 

GC    TO    (2, 12), ITER 

12  FSXUd)    =      FS(  I)»(AMTXd,l)*CAS(I)-»-AMTX(2,l)»CBS(I  )+AMTX(3,  1)* 
1  CGSd)) 

FSYUd)     =       FS(I)*(AMTXd,2)*CASd)+AMTX(2,2)*LFSd  )+AMTX{3,^)* 
1  CGSd)) 

FSIUCI)    =      FS( I)*(AMTX(l,3)*CASd) ♦AMTX(2»3)*CBS(I )+AMTX{3,3)* 
1  CGSd)) 

FRXUd  )    -    -FRCP{  I)*(  AMTXd,l)*CAGZd)+AMTX(2,  1)*CBGZ{I  )+AMTX(3,l 
1  CGGZd)) 

FRYUd  )    =    -FRCPd)*!  AMTX  ( 1,  2  )  *CA&Z  ( I  )  ♦  AMT  X  (  2  ,  2  )*CB  GZ  ( I  )+AMTX(?,2 
1  CGGZd)) 

FRZU( I  )    =    -FRCP d)*( AMTX ( 1, 3 ) *CAGZ d ) ♦AMTX (2 , 3 )«CbGZ ( I )♦ AMTX (3, 3 
1  CGGZd  J) 

FCXUd)    =    FCd  )*(AMTXd,  l)*CACd)  +  AMTX(2,l)*CbCd)+AMTX(3,l)* 
1  CGCd)) 

FCYUd)    =    FC(I  )*(AMTX(l,2)*CAC(l)*AMTX(2,2)*CbCd)+AMTX(3,2)* 
1  CGC(l)) 

FCZUd)    =    FC(I  )*(AMTX(I,3)*CACd  )+AMTX(2,3)*CbC(  I)+AMTX(3,3)* 


TIRFIOIO 
TIRF  1020 
TIRF 1030 
TIRFlOtO 
TIRF  10  50 
TIRF  10  60 
TIRF  10  70 
TIRf  lOBO 
TIRF  1090 
TIRF  1100 
TIRF  11  10 
TIRF1120 
TIRrll30 
T1RF1140 
TiRK 1150 
TIRF1160 
TIkF117u 
TIRFUeO 
TIRFll'VO 
TIRF  12  00 

)  TIRF1210 
TTRH2  2( 
TIRF  1^30 
IIRF  12 'tO 
TIKF125U 
TIRF  1260 
TIRF  12  70 
TIRF  1260 
TIRF  12  90 
TIkF  1300 
TIRF  13  IC 

.  )TIRF1320 
lIRf-  1330 
TIRF  1340 
TIRFlitO 
TIRF13  60 
IIRF 13 70 
TIRF  13  00 
TIRK  13  90 
TIRF  I'* 00 

)*TIRFimG 
TIRF 14^0 

)*TIRF  14  30 
TIRF  1440 

)*TIRF1450 
TIRF1H60 
TIRF  14  70 
TIRF  1^80 
TIRF  1490 
TIRF  1500 
TIRF  15  10 
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DATE   01/12/76 


TIME   1729 


UPDATE  RECORD 


1  CGCdn 

13  FXU(I)     =   FRXU(I)+FCXU(I)+FSXU(I) 
SFXU    =    SFXU+FXUd) 

FYUd)    =    FRYU(I)+FCYU{  I)+FSYU(I) 
SFYU    =    SFYU  +  FYUd) 
FZU(I)    =   FRZU(I)+FCZU(I)*FSZU(1) 
SFZU    =    SFZU+FZUd) 

14  CONTINUE 
RETURN 
END 


TIRF1520 
TIRF15  30 
TIRF15  40 
TIRF1350 
TIRF1560 
TIRF1570 
TIRF1580 
TIRF15  90 
TIRF1600 
TIRF1610 
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DATE       01/12/76  TIME       1729  UPDATE    RECORD 


SUBROUTINE    TMCNST  TMCNOOIO 

C  HV0SM-RD2    VERSION  TMCNGO^O 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION  TMCN0030 

COMMON/I NPT /PHI  Of THE TAO,PSIO,PO, 00 tRO,XCOP,YC OP. ZCOP»UOtVO,WOt  TMCNOO-W) 

1  A,B.DELlO,[/6L2O,DEL30,PHlR0,DEL10D,DEL20D.DtL30D,  TMCN0050 

2  PHIR00,TF,TR,ZF.ZR,RHO,AKRS.XMUR,  TMCN0060 

3  XMS»XMUF,XIX,XlY,XIZfXIXZ,CFtAKF,XLAMFtOMEGF,CFP,EPSF,TMCN0070 

4  RF,CRtAKR,XLAMR,UMEGRtCRP.EPSR»RR.TS.THMAX,DTCOMP,TO.    TMCNOO&O 

5  Tl.DTCMPlf DTPRNT,MODE,EBAR,EM,AAA,HMAXtHMlN,BET.G,  TMCNOOVO 

6  HED(36) ,DADE(3).XIR,XitYltZl,X2,Y2,Z2f PHIC{50) ,DELB,       TMCNOIOO 

7  DELE, DDEL, NOEL, PSIF(50) ,T0F(5OJ,TQR(50),TB,TE,TINCR,  TMCNOl 10 
B  NZTAB,NZ5yXBDKY(4,5),PSBDRY(4,5),YBDRY(2,5),NBX(5),  TMCN0120 
9                                  NBY(5> tNTBLl »NTBL2,NTBL3,Z&P(21,21t5)  TMCN0130 

COMMON /I NPT/XB(5) ,XE < 5 ) , XINCR ( 5 ) ,NX (5) , YB (5) , YE( 5 ) , YINCR (5 ) ,NY( 5 ) .TMCNOl AO 

1  XXZGP5{21),YYZGP5(21),AMUG(5) »PSBDR0(4,5) ,UVWMIN ,PORMI  N    TMCNOl 50 

COMMON    /INTG/NEQ,T,DT,VAR(50) ,DER( 50)  TMCN0160 

EOU I  VALENCE     (U.VARd )) ,< V,VAR(2) ). (W,VAR(3)) , (P,VAR(4)  ),(Q,VAR(5) ) TMCNOl 70 

1  ,(R,VAR(6)) ,(D£L1,VAR(7) ), (DELID, VAR ( 8) ) , ( DEL2, VAR (9) ) , TMCNOl 80 

2  (DEL2D,VAR(10)), (DeL3,VAR(ll) ) ,(DEL3D,VAR( 12)) ,  TMCN0i90 

3  (PHIR,VAR(13)  ),(PHIRD,VAR(14)  ),(THETTP,VAR(15)  ),  TMCN0<i00 

4  (PHITP,VAR(16)), (PSITP,VAR(17) ),(XCP,VAR(ie>),  TMCN0210 

5  (YCP,VAR{19)  ),UCP,VAR(20)  ),(PSIFItVAR<21)  ),  TMCN0220 

6  (PSIFID,VAR(22))  TMCNC230 
EQUIVALENCE     {OUtDER( 1) ), (DV»DER(2) ) , ( DW, DER ( 3 ) ) , (DP,DER (4) ),  TMCN02  40 

1  (Dg,DER{ 5) ), (DR,DcR(6) ) , (DDEL1,DER( 7 ) ) » (DDELID, DER (8 ) )TMCN02  50 

2  ,{DDEL2,DER{9) ), (DDEL2D,DER(10) ),{DDEL3,DER(11) ),  TMCN0260 

3  (DDEL3D,DER( 12)) ,(DPHIR,DER( 13)) t(DPHIRD,DER(14)),  TMCN0270 

4  (DTHTTP,DER(15) ), (DPHITP,DER(16)) ,(DPSITP,DER(17) ) ,  TMCN0280 

5  (DXCP,DER(18I»,{DYCP,DER(19) ) ,(DZCP,DER(20))»  TMCN0290 

6  (DPSIFI,DER( 21)),(DDPSF1,DER(22) )  TMCN0300 
EQUIVALENCE     (VAR<9) , PHIF )  ,  (VAR (10) ,PHIFD) , (DER( 9 ), DPMI F) f  TMCN0310 

1  (DER(IO) fDPHlFD)  TMCNC320 

EQUIVALENCE    (VAR(13) ,DEL4),(VAR( 14)fDEL4D) ♦(DER( 13),DDEL4),  TMCN03  30 

1  (DER(14) ,DDEL40)  TMCN0340 

COMMON    /COMP/SUMM,THETN,PHIN,PSIN,PI»RAD,GAM1,GAM2,GAM3,GAM4,GAM5,TMCN03  50 

1  GAM6,GAM7,&AM8,GAM9,THETT»PHIT,PSIT,ZR0»TR02»  TMCN0360 

2  TF02,T1Z,RH 02, RH0MUR,AMUF,BMURtZPR.TM4,RHMR2,A02APB,    TMCN03  70 

3  B02APB,RFTF,TS02,RRTS,BROMUR,XMUF02,AXMF02,XMTF04,  TMCN0380 

4  XIZR,RTR,RHMR2I,XIXP,XIZP,XIXZP,XIYZP,D1PD2,D1MD2,  TMCN0390 

5  ZRD3,ZRD3R, ZFD3R , ZFD12,TI Z2, TG61 ,DD1P2 ,DD1M2, RPR.PHRPTMCNO^OO 

6  ,TANTP,SPHTP,CPHTP,SECTP,SFXS,SFYS,SFZS,SNPS,SNTS»  TMCN0410 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYUtSFXU,SFYUF,  TMCN0420 

8  SFYUR,SFZU,C0STH,SINTH,C0SPS,SINPS,C0SPH,SINPH,ANG1,    TMCN0430 

9  AN&2,CPHI,SPHI,CPS1,SPSI,P1,P7,P3,P4,P5,P6,TX,TY,TZ       TMCN0440 
COMMON    /C0MP/TRH,DISTX,DISTY,DIST0,DISTS,D21,ZETA4,ZETA4D,ZETA3,       TMCN0450 

1  ZETA3D,SFZ1 ,SNPU,SNTU,HCGH1,HCGH2,HCGH3,HCGH^,TERM1,    TMCN0460 

2  TERM2,SNPSU,SNPR,HCBHl,HCbH2,HCBH3,HCBH4,HCAHl,HCAH2,TMCN0470 

3  HCAH3,HCAH4,UQ,WP,UR,QR,VP,PR,P2,Q2,R2,VR,WQ,PQ,PH1R2TMCN04&0 

4  ,PHIRD2,RPHRD,GCTH,GSTH,GCTSP,GCTCP,XXX,YYY,IX,IY,XX1,TMCN0490 
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DATE   01/12/76 


TIME   1729 


UPDATE  RECORD 


C 

c 
c 
c 
c 
c 
c 


COMMON    /INSUS/ 


i  XX2fYYl,YY2 

DIMENSION  HCAH(4)tHCBH{4 
EQUIVALENCE  (HCAH(1),HCA 
COMMON/EINDEX/  FOR  EULE 
COMMON/E INDEX/  TWOPI.PIO 
CGSTHNtSI 
STHETP.CP 
XIF,RHOF, 
AKDSf AKDS 
NCAMF.NCA 
COMMON  /SUSCMP/  XMUR02,B 
RHF2MF,R 
DD3M4,2F 
PHIFD2,R 
PHI3D,PH 
DTDD2,DT 
DIMENSION  ANAMEO) 
DATA  ANAMECl  )/4HPSlT/,AN 
COMMON/NSTDP/ISTOP 

*    *    *    *    FOR    TEMPORARY 
ASTOP    IS    SOME    LARGE    NUMB 
DATA    ASTOP/3000,/ 
IF(PHITP.GE. ASTOP    .OR.    T 

THETTLtPHlTLtPSlTL 

TIME    INTERVALt    USE 

XINDL    IS    PREVIOUS    VALUE 

XINDN.NE.0.0    FOR 

THAT  IS   THETN  OR 

USED  IN  MAIN  PROG 

U»Q 

W*P 

U*R 

Q*k 

V*P 

P»R 

P»P 

Q*a 

R*R 
V*R 

P*Q 

=  ZF+DELl 

=    ZR+DEL3 
IF{ ISUS.NE.l)    GO    TO    100 
D3PD4    =    DEL3+DEL4 
=    DEL3-DEL4 
-D3MD4 

=  DEL3D+DEL40 
=  DEL3D-DfcL4D 
=    ZR+0.5*03PD4 


,THGl,THG2,PHGl,PHG2,ZZlfZZ2,LLL 

)«HC6H(4) 

HI), (HCBHi  DtHCBHl) t(HCGH(l),HCGHl) 

R    ANGLE    INDEXING, MAIN, CNSTNT,DAUX,TMCNST 

2,PI04,XINDN,XINDL,THETTL,PHITL,PSITL, 

NTHN,COSPSN,SINPSN,COSPHN,SINPHN,CTHETP, 

STP,SPSTP,BNMTX(3,3),    CNMTX(3, 3» ,ENDEIN 

TSF,PHIF0,PHIF0D,DEL40,DEL40D,1SUS, 

1,AKDS2,AKDS3,PHIRC(50),DTHF(50),DTHR(50) 

MR,NOTHF,NDTHR 

XMRO2,XMTRO4,ZFO,TSF02,RH0F2,RHFMUF, 

F2MFI,RTF,RRTR,D3PD4,D3MD4,D43,D03P4, 

01RF,ZRD34,RFPF,RPF2M,WFMF,PHFP,PHIF2, 

PHFD,2FD1,ZFD2,ZRD4,TPF,SL0PE3,SL0PE4, 

I4D,DTHF1,DTHF2,DTHR3,DTHR4,DTDD1, 

0D3,DT0D4,FJF(4) ,SNPF 


AME(2)/4HTHET/,ANAME<3I/4HPHIT/ 

ERROR    STOP,    USE    THE    VARIABLE    ASTOP 
ER    TO    BE    COMPARED    TO    THE    ANGLES    IN 

HETTP.GE .ASTOP)    GO    TO    60 


THETT,PH1T,PSIT    FROM 


TMCN0500 
TMCN0510 
TMCN05  20 
TMCN0530 
TMCN0540 
TMCN05  50 
TMCN0560 
TMCN0570 
,TMCN05  80 
TMCN0590 
TMCN0600 
TMCN06  10 
TMCN06  20 
TMCN0630 
TMCN06  40 
TMCN0650 
TMCN06  60 
TMCN06  70 
TMCN06eO 
AS  SH0WTMCN06  90 
RADIANSTMCN0700 
TMCN07 10 
TMCN0720 
TMCN0730 
PREVI0UTMCN0740 


ARE    VALUES    OF 

D   TO    TEST   NEW   ANGLES  IN    SUBROUTINE   TMCTMCN0750 

OF    XINDN.    XINDL    INITIALLY    ZERO    GETS    BNMTXTMCN0760 

THtTAO    OR    PHIO    .NE.0.0,    OR    AFTER    INDEXING    TMCN0770 


PHIN    NOW    .NE.    0.0 
RAM   AND    IN    SUBROUTINES 


CNSTNT,TMCNST 


UQ  = 
WP  = 
UR  = 
OR  = 
VP  = 
PR  = 
P2  = 
Q2  = 
R2  = 
VR  = 
WQ  = 
PO  = 
ZFDl 
ZRD3 


D3MD4 
D43  = 
0D3P4 
DD3M4 
ZRD34 


TMCNOTBO 
TMCN0790 
TMCN08  00 
TMCNOBIO 
TMCN08  20 
TMCN0830 
TMCN08  40 
TMCN08i)0 
TMCN08  60 
TMCN08  70 
TMCN06  80 
TMCN0890 
TMCN0900 
TMCN0910 
TMCN0920 
TMCN09  30 
TMCN0940 
TMCN0950 
TMCN0960 
TM  ON  09  70 
TMCN09  80 
TMCN0990 
TMCNIOOO 
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TIME       1729 


UPDATE    RECORD 


ZRDA    =    ZR+DEL4 

GO    TO    200 
100    1F(ISUS.NE.2)    GO    TO    200 

PHIF2    =    PHIF*PHIF 

PHlrD2    =   PHIFO*PHIFD 

ZFDIRF    =    ZFDl+RHOF 

RPF2M    =    RHF2MF*PHIF2 

RFPF    =    RHOF*PHIF 

WFMF    =    XMUF*<DEL1D-RFPF*PHIFD) 

PHFP    =    PHIF-PHITP 

RPHFD    =    R*PHIFD 

TPF    =    0.5*TF*PHIF 

GO    TO    300 
200    IFdSUS.EQ.Z)    GO    TO    300 

ZFD2    =    ZF+DEL2 

D1PD2    =    DEL1+DEL2 

D1MD2    =    DEL1-0EL2 

DD1P2    =    DEL1D+DEL2D 

DD1M2    =    DEL1D-DEL2D 

D21    =    -DIMD2 

ZFD12    =    ZF+0.5*D1PD2 
300       IF(ISUS.EO.l)    GO    TO    400 

PHIR2    -    PHIR*PHIR 

PHIRD2    =    PHIRD*PHIR0 

ZRD3R    =    ZRD3+RH0 

ZFD3R    =    ZF+DEL3-»-RH0 

RPR    =    RH(J*PHIR 

TIZ2    =    RHMR2*PHIR2 

TGt>l    =    XMUR*(DEL3D-RPR*PH1RD) 

PHRP    =    PHIR-PHITP 

TPR    =    0.5*TR*PHIR 

RPHRD    =    R*PHIRD 
400    CONTINUE 

2    SPHTP    =    SIN(PHITP) 

CPHTP    =    COS(PHITP) 

TANTP    =    TAN(THETTP) 

CTHETP    =   COS(THETTP) 

SECTP    =    1,0/CTHETP 

IF(XINDN)  7,    5,    7 

5    THETT       =    THETTP 

PHIT  =    PHITP 

PSIT    =  PSITP  ♦  PSIN 

SINPS    =    SIN(PSIT> 

COSPS    =    COS(PSIT) 

GO    TO    70 
7    IFiXINDN   -    XINDL)       9,11,9 

COMPUTE    BNMTX       ONCE    AFTER 
9    XINDL    =    XINDN 

IF    THETAO    OR    PHIO    .NE.0.0 

COSTHN    =   COS(THETN) 

SINTHN    =   SIN(THETN) 


EACH    INDEXING    ON    THETMX 


COMPUTE    BNMTX       ONCE    AT    T=TO 


TMCNIOIO 
TMCN10  2C 
TMCN10  30 
TMCN10  40 
TMCN1050 
TMCN10  60 
TMCN1070 
TMCNlObO 
TMCN10  90 
TMCMIOO 
TMCNlllO 
TMCN1120 
TMCN1130 
TMCN1140 
TMCNlii)0 
TMCN1160 
TMCNli70 
TMCNlieo 
TMCN1190 
TMCN12  00 
TMCN12  10 
TMCNi220 
TMCN12  30 
TMCN12  40 
TMCN12  5.0 
TMCN12  60 
TMCN12  70 
TMCN12  80 
TMCN1290 
TMCN13  00 
TMCN1310 
TMCN13  20 
TMCN1330 
TMCN1340 
TMCN135.0 
TMCN13  60 
TMCN13  70 
TMCN13  80 
TMCN1390 
TMCN14  00 
TM  CN  14  10 
TMCM4  20 
TM  CN  14  30 
TMCN1440 
TMCM4  50 
TMCN14  60 
TMCN14  70 
TM  CN  14  80 
TMCN1490 
TMCN15  00 
TMCN1510 
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DATE       01/12/76 


TIME       1729 


UPDATE    RECORD 


COSPHN 
SINPHN 
COSPSN 
SINPSN 
BNMTX 
BNMTX 
BNMTX 
BNMTX 
BNMTX 
BNMTX 
BNMTX 
BNMTX 
BNMTX 
11    STHETP 
SPSTP 
CPSTP 
CNMTX 
CNMTX 
CNMTX 
TMPl 
TMP2 
CNMTX 
CNMTX 
CNMTX 
CNMTX 
CNMTX 
CNMTX 

CO 
ITRY, 
ITRY  = 
lA 
lANG  = 
ANGL  = 
TMP3    = 

X 
TMP4    = 

X 
NOTE, 
IF(TMP 

14  IFiTMP 

15  ANGA    = 
GO    TO 

16  ISTOP 
GO    TO 

17  ANGA    = 
GO    TO 

18  TANA    = 

20  ANGA    = 

21  NREV    = 


~  COS(PHIN) 
=  SIN(PHIN) 
=  CGS(PSIN) 
=   SIN(PSIN) 

Cl,l)=   CUSTHN 

(2fl) 

(3«1) 


♦COSPSN 
COSTHN*SINPSN 
-SINTHN 

-COSPHN*SINPSN 
COSPHN*COSPSN 
COSTHN*SINPHN 
SINPHN*SINPSN 
-COSPSN*SINPHN 
COSTHN*COSPHN 
=   SIN(THETTP) 
=    SIN(PSITP) 
=   COS(PSITP) 
(1,1)    =    CTHETP*CPSTP 
(2,1)    =    CTHETP*SPSTP 
(3,1)    =    -STHETP 
=         SPHTP    *    STHETP 
CPHTP    *    STHETP 


(1,2) 
(2,2) 
(3,2) 
(1,3) 
(2,3) 
(3,3) 


-f 

SIN 

♦ 

SIN 

■»■ 

CCS 

♦ 

COS 

PHN*SINTHN*COSPSN 
PHN*SINTHN*SINPSN 

PHN*SINTHN*COSPSN 
PHN*SINTHN*GINPSN 


=      -CPHTP*SPSTP 
=         CPHTP*CPSTP 
=         CTHETP*SPHTP 
=       SPHTP^SPSTP 
=   -CPSTP*SPHTP 
=      CTHETP*CPHTP 
CNMTX    EACH    R-K    STEP    IF 
TO    ALLOW    ONE    ADD  IT 


TMP 
TMP 


2*CPSTP 
2*SPSTP 

XINDN.NE.O.O 
lONAL    REVOLUTION    FOR    TRIAL    ANGL 


(1,2)    =      -CPHTP*SPSTP      +    TMP1*CPSTP 

(2,2)    =         CPHTP*CPSTP      +    TMP1*SPSTP 

(3,2) 

(1,3) 

(2,3) 

(3,3) 

MPUTE 

INDICATOR 

0 
NG    =    1       FOR    PSIT,    =2    FOR    THETT,       =3    FOR    PHIT       DETERMINATION 

1 

PSITL 
BNMTX*2,1)*CNMTX(1,1) 
BNMTX(2,3)*CNMTX(3,1) 

BNMTX( 1,1)*CNMTX(1,1 
BNMTX( 1,3)*CNMTX(3,1 
TANA    AND    ANGA=ATAN ( TANA )    NOT 
4)       18,14,18 
3)    15,16,17 

-   PI02 
21 
=    4 
64 

PI02 
21 
TMP3/TMP4 


•»■  BNMTX(2,2)*CNMTX(2,1)   + 


)  +  BNMTX(1,2)*CNMTX(2,1)  ♦ 
) 

USED  WHEN  DENOMINATOR  TANA  ZER 


ATAN(TANA) 

ANGL/TWOPI 


*    SIGN(0.1    ,ANGL) 


TMCN15  20 
TMCN15  30 
TMCN1540 
TMCN15  50 
TMCN15  60 
TMCN1570 
TMCN1580 
TMCN15  90 
TMCN1600 
TMCNlfalO 
TMCN1620 
TMCN1630 
TMCN1640 
TMCN16  50 
TMCN16  60 
TMCN16  70 
TMCN16  80 
TMCN1690 
TMCN1700 
TMCN1710 
TMCN1720 
TMCN1730 
TMCN1740 
TMCN1750 
TMCN1760 
TMCN17  70 
TMCN1780 
TMCN17  90 
ETMCN18  00 
TMCM8  10 
TMCN18  20 
TMCN18  30 
TMCN1840 
TMCN18  50 
TMCN16  60 
TMCN18  70 

TMCNiaeo 

0TMCN18  90 
TMCN1900 
TMCN1910 
TMCN1920 
TMCN1930 
TMCN1940 
TMCN  19.50 
TMCN1960 
TMCN  19  70 
TMCN 1980 
TMCN  1990 
TMCN 20 00 
TMCN2010 
TMCN 20 20 
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22 


25 


27 


29 

30 

31 
32 


33 

34 


36 
1005 

40 
41 


FNREV 
ANGTRY 
DIFFA 
DIFFL 
IF(ABS 
DIFFA 
DIFFL 
IF(ABS 
DIFFA 
DIFFL 
IF(ABS 
IF(ANG 
TWUPIA 
GO    TO 
TWOPIA 
DIFFA 
DIFFL 
IF(ABS 
IF     (IT 
FNREV 
ITRY    = 
ONC 
GO    TO 
ISTUP 
WRITE{ 
FORMAT 
X,12H, 
GO    TO 


(D 


(D 


(D 
TR 

32 


(D 

RY 


FLOAT(NREV)       ♦    TWOPl 
ANGA    ♦    FNREV 
ANGTRY 

DIFFA    -    ANGL 
IFFL)    -    P104}    40,40,25 
ANGTRY    ♦    PI 
DIFFA    -    ANGL 
IFFL)    -    PI04)     40,40,27 
ANGTRY    -    PI 
DIFFA    -    ANGL 
IFFL)    -    PI04)    40,40,29 
Y)     30,30,31 

TWOPI 

-    TWOPI 
ANGTRY    ♦    TWOPIA 
DIFFA    -    ANGL 
IFFL)    -    P104)    40,40,33 
)    36,3^,36 
FNREV    ♦    SIGN(TWOPI,ANGL) 


1 
E    ONLY,    INCREASE    FNREV    BY    ONE    REVOLUTION    AND    TRY    AGAIN 
22 


6, 
( 

AS 

64 


5 

1005)    T,ANAME( 1ANG),ANGL,    DIFFA    , ANGA, ANGTRY 
7H0    TIME=,F8.3,5X,A4,11H       PREVIOUS  =  , 1PE13. 5 ,6H  , 
ARCTAN=,    E13,5,     16H,       CORR.FOR    REV=,E13.5     ,8H 


NEW  =  ,E13, 
ST0P5) 


ITRY    =    0 

IF(IANG-2)    41,50,59 
lANG    =    2 
PSIT    =    DIFFA 
SINPS       =    SIN(PSIT) 
COSPS    =    COSiPSIT) 
ANGL    =    IHETTL 

TMP5       =  -(BNMTX(3,1)*CNMTX(1,1)    ♦    BNMTX ( 3, 2) *CNMTX(2 , 1 ) 

X  BNMTX(3,3)*CNMTX(3,1)     ) 

IF(     ABS(SINPS)    -    0.7)    42,42,43 

42  TMPP4    =    TMP4/C0SPS 
IF     (TMPP4)    49,44,49 

43  TMPP4    =    TMP3/SINPS 
IF     (TMPP4)    49,44,49 

44  IF(     TMP3)    45 ,46, '♦7 

45  ANGA  =  -  PI02 
GO  TO  21 

46  ISTOP  =  6 
GO  TO  64 

47  ANGA    =    PI02 
GO    TO    21 

49    TANA    =    TMP5/TMPP4 


TMCN2030 
TMCN2040 
TMCN20  50 
TMCN20  60 
TMCN2070 
TMCN20  80 
TMCN20  90 
TMCN2100 
TMCN2I10 
TMCN2120 
TMCN2130 
TMCN2140 
TMCN2i50 
TMCN2160 
TMCN2170 
TMCN2lb0 
TMCN2190 
TMCN22  00 
TMCN22 10 
TMCN22  20 
TMCN22  30 
TMCN22  40 
TMCN22tO 
TMCN22  60 
7MCN22  70 
5TMCN22  60 
TMCN22  90 
TMCN23  00 
TMCN2310 
TMCN23  20 
TMCN23  30 
TMCN23  40 
TMCN23  5G 
TMCN23  60 
TMCN2370 
TMCN2380 
TMCN2390 
TMCN2AtO 
TMCN24  10 
TMCN24;:0 
TMCN24  30 
TMCN2^40 
TMCN2450 
TMCN2460 
TMCN  2-^70 
TMCN2^80 
TMCN24  90 
TMCN25O0 
TMCN25  10 
TMCN2520 
TMCN25  30 
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50 


GO  TO  20 
lANG  =  3 
THBTT   = 
ANGL   = 
TMP6   = 


TMP7 


DIFFA 
PHITL 
B N MTX  (  3 , 1 )  *  CN  MT  X  (1 ,  2 ) 
BNMTX{3,3)*CNMTX(3,2) 
BNMTX(3,l)*CNMTX(lt3) 
BNMTX(3t3)*CNMTX(3f3) 
55,51,55 


BNMTX(3,2)*CNMTX(2,2) 
BNMTX (3 ,2) *CNMTX ( 2,3 ) 


51 
52 

53 

54 

55 

59 

70 


C      70 

C 


60 


64 


1006 


C 

c 


IF(TMP7) 

IF(TMP6)       52,53,54 

ANGA    =    -    PI02 

GO    TO    21 

ISTOP    =    7 

GO    TO    64 

ANGA    =         PIQ2 

GO    TO    21 

TANA    =       TMP6/TMP7 

GO    TO    20 

PHIT    =    DIFFA 

AT    ST     70    HAVE    NEW    PSI  T,  T  HETT  ,  PH  IT 
CONTINUE 

1F(THETT.GE,AST0P  .DR.  PSIT 
IF (PHIT  .GE.ASTOP)  GO  TO  60 
COSTH    =    COS( THETT) 

COSTH    -    CUS( THETT) 
SINTH    =^    SIN(THETT) 

COSPS,SINPS   COMPUTED    ABCVE    EITHER    AFTER    ST    5    OR    AFTER    ST    41 
COSPH    =    COS(PHIT) 
SINPH    =    SIN(PHIT) 
CONTINUE 
GCTH    =    G*COSTH 
GSTH    =    G*SINTH 
RETURN 

ISTOP  .NE.O    CAUSES 


•GE.ASTOP)    GO    TO    60 


PRINTING  OF  OUTPUT  UP 
INTERVAL,  MESSAGE,  AND  TERMINATION  OF 
INTERVAL    IN    THE    MAIN    PROGRAM. 


TO    CURRENT   RUNGE-KUTTA 
THIS    RUN    AT    END   OF    THIS 


ISTOP    =    30 

AT    64    TEMPORARY    ERROR    STOP. 
CALL    0UTPUT(2) 
CALL    PL0nP(3) 
WRITE(6,1006)    T,    ISTOP 

FORMAT (7H0    TIME-,F8.3, 5X ,    7H    IST0P=,I3,2 IH    IN    SUBROUTINE   TMCNST) 
CALL    A6DUMP 

SUBR    ABDUMP    CAUSES     'ABNORMAL    END'    AND    DUMP    ON    OUR    OPERATING    SYST 
STOP 

IF    STOP    IS    CODED    AS    HERE,     DOES    NOT    RETURN    TO    MAIN    PROGRAM. 


TMCN25  40 
TMCN2550 
TMCN2560 
TMCN25  70 
TMCN25  80 
TMCN2590 
TMCN26  00 
TMCN2610 
TMCN2620 
TMCN26  30 
TMCN26  40 
TMCN2650 
TMCN2660 
TMCN2670 
TMCN26eC 
TMCN2690 
TMCN2700 
TMCN2710 
TMCN27  20 
TMCN2730 
TMCN2740 
TMCN2750 
7MCN2760 
TMCN2770 
TMCN2780 
TMCN27  90 
TMCN28  00 
TMCN2810 
TMCN28  20 
TMCN26  30 
TMCN2840 
7MCN28  50 
TMCN2e60 
TMCN28  70 
TMCN28  80 
TMCN2890 
TMCN2900 
TMCN2910 
TMCN2V20 
TMCN29  30 
TMCN2940 
TMCN2950 
TMCN2960 
TMCN2970 
TMCN29  80 
TMCN2990 
TMCN3000 
TMCN3010 
EMTMCN30  20 
TMCN3030 
TMCN30  40 
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C       64    WRITE(6,1006)    T,    ISTOP 
C  RETURN 

END 


TMCN3050 
TMCN30  60 
TMCN30  70 
TMCN30  60 
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SUBROUTINE    TRt AD (NCARO ,NCRDStNT ,NDIM, ARRAY ,NErtR )  TREAOOIO 

C  HV0SM-RD2    VtRSION  TREAOOIO 

C  REVISED    OCtOBER    1975         CALSPAN    CORPORATION  TREA0030 

DIMENSION    ARRAY(2) ,DUM(9)  TREA&OAO 

IF(NT.G1*NUIM)     GO    TO    90  TREA0050 

K    =    0  TREA00  60 

LSEQ    =    0  TREA0070 

DUlO    I^lfNCRDS  TRfcA0080 

READ(2,2000)     ( DUM(N ) ^N=l , 9) ,NSEQ ,LC ARD  TREA0090 

2000    FORMAT (9Fe.0»2I4)  TREAOIOO 

IF(NCARD,NE«LCARD)    GO    TO    90  TREAOilO 

IF(NS£Q.LE.LStQ)    GO    TO    90  TREA0120 

LSEQ    =    NSEQ  TREA0130 

DU    20    N"l,9  TREA0140 

K    =    K+1  TREA0150 

ARRAY(K)    =    DUM(N)  TREA0160 

lF(K.Gt,NT)    GO    TO    91  TREA0170 

20    CONTINUE  TREA0180 

10    CONTINUE  TREA0190 

91    RETURN  TREA0200 

90    NERR    ~     1  TRtA0210 

RETURN  TREA0220 

END  TR£AG2ilO 
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SUBROUTINE    T2READ( NC AR D, NDl ,NI t N J, ARRAY ,NEPR )  T2RE0010 

C                                     HV0SM-RD2    VERSION  *                                                                                                      T2RE00^0 

C                                     HV0SM-VD2    VERSION  T2RE00  30 

C                                     REVISED    OCTOBER    197&  CALSPAN    CORPORATION                                             T2RE00A0 

DIMENSION    ARRAY(NDlfNJ  ),DUM(9)  T2RtG05»0 

LSEQ    =    0  T2RE0060 

NICRDS    =    (NI-l)/9    ♦     1  T2RE0070 

DO    30    J=ltNJ  T2Rt0080 

K    =    0  T2RE00  90 

DO    20    I=ltNICRDS  TiREOlOO 

READ(2,2O0O)     ( DUMIN ) ,N=1 , 9) ,NSEQ fLC ARD  T2RE01iO 

2000    F0RMAT(9F8.0t2I4)  TZREOlkO 

IF{NCARD.NE.LCARD)    GO    TO    90  T2RtOl30 

IF(NSEQ.LE.LSEO)    GO    TO    90  72RE0140 

LSEQ    =    NSEQ  T2RE0150 

DO    10    N=lt9  T2RE0160 

K    =    K+1  72RE0170 

ARRAY(K,J)     =    DUMtN)  T2RE0180 

IF(K.GE.NI)    GO    TO    30  T2RE0190 

10    CONTINUE  T2RE0200 

20    CONTINUE  T2RE02 10 

30    CONTINUE  T2RE02t:0 

RETURN  T2RE023& 

90    NERR    =     1  T2RE0240 

RETURN  T2RE02bO 

END  T2Rt0260 
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SUBROUTINE    UMOMNT(IS) 

HV0SM-RD2    VERSION 

REVISED    OCTOBER    1975         CALSPAN    CORPORATION 
SUBROUTINE    TO    COMPUTE    THE    MOMENTS    ACTING    UN    THE    SPRUNG    AND 
UNSPRUNG    MASSES   RESULTING    FROM    TIRE    FORCES    AND    SUSPENSIN    FORCES. 


COMMON/I NPT/PHIO, THE TAOfPSIO,PO,QO,ROtXCOP,YCOP,ZCOP,UO,VOt WO t 

1  A,B,DEL10tDEL20,DEL30,PHlR0,DEL10DfDEL20D,DEL30D, 

2  PHlROD,TF,TR,ZF,ZR,RHO,AKRSfXMUR, 

3  XMS,XMUFtXIX,XIY,XIZfXlXZ,CF,AKF,XLAMF,CMEGF,CFP,EPSF 

4  RF,CR,AKR,XLAMR,OMEGR,CRP,EPSRfRR,TSfTHMAXtDTCOMP,TO, 

5  Tl,DTCMPl,DTPRNTfMODE,EBAR,EM,AAA,HMAX,HMIN,bET,G| 

6  HED(36),DADE(3),XIR,X1,Y1,Z1,X2,Y2,Z2,PH1C(50) ,DELB, 

7  DELE,DDEL,NDfcL,PSlF(50},TQF(50),TQR(50),TB,TE,TINCRf 

8  NZTAb,NZ3»XBDRY(4,5),PSBDRY(4,5),YBDRY(2»5),NBX(5)t 

9  NBY(5),NTBLl,NTBL2tNTBL3,Z&P(21»21t5) 
COMMON/INPT/XB(5),XE(5),XINCR(5) ,NX (5 ) t YB ( 5) t YE ( 5) t YINCR ( 5 ) ,NY( 5) ,UM0M0170 

1  XXZGP5(21) tYYZ&P5{21) , AMUG( 5 ) ,PSBDR0(4,5 )  .UVWMIN  .PORMIN    UMOMOlbO 

COMMON  /DIMV/XlP,X2P»X3P,X4P,YlP,Y2Pf Y3P,Y4P,Z1P,Z2PtZ3P»Z4P,PHI1,UM0M0190 


UMOMOOIO 
UMOM00  20 
UM0M0030 
UMOM00  40 
UM0M00  50 
UM0M00  60 
UM0M00  70 
UM0M00  80 
UMOM00  90 
tUMOMOlOO 
UMOMOl  10 
UM  OM  01  20 
UMOMOl 30 
UMOMOl  40 
UMOMOl 50 
UMOMOlbO 


1 
2 
3 
4 
5 
6 
7 
& 
9 


PHI2,PH13,PHI4,PSIlfPS12,PS13tPSl^tCAYW(4),CBYW(4),  UM0M0200 
CGYWt4) ,ZPGI(4),TriGI(4),PHGI (4) ,CPG (4 ) ,SP&( 4> ♦CTG(4) ,UM0M02  10 
STG(^),CAGZ(^),CBGZ(4),CGGZ{^),D1(4),D2{4),D3(4) *  UM0M02  20 

XLM1(4) ,XLM2(4),XLM3{4),AMTX(3t3),CMTX(3,4),XGPP(4),  UMOM0230 
YGPP(4) tZGPP(4),DMATX( 10,11) , DELTA{ 4) ,CAR (4 ) , CBR(4) ,  UMOM0240 
C&R(^) ,FR(4),HI(4) ,FC(4),TI(4),AXt4),BX(4),CX(4),  UM0M02  50 

CTXG(4) ,UG(^),STXG(^),AY(4),bY(4),CY(4),CPYG{4|,  UM0M0260 

SPYG(4) ,VG(4),PSIIP(4),PHICI(4),CAC(4),CBC(4),CGC(4) ,UMOM0270 
FCXU(4)  ,FCYU(^),FCZU(4),FS(4),CAXW(4) ,CBXW(4) ,CGXW( 4)UM0M02  80 


COMMON 


/DIMV/AS(4)  ,BS(4)  ,CS  (4  }  ,CAS  (4)  ,CBS(*t)  ,  CGS  (4  )  ,BETP(4>  ,  UM0M0290 

1  BETbR(4),FSXU(^) ,FSYU(^) ,FSZU(4) ,FRXU(4),FRYU(4),  UM0M0300 

2  FRZU(4) tFXU(4),FYU<^) ,FZU(4) ,SI (^),F1F1(2 ),F1RI(2),       UM0M0310 

3  F2FI(2J ,F2R1(2),CAH(4),CBH(4),CGH{4)  UM0M0320 
DIMENSION  XP(4),YP(h),ZP(4),PHII(4) ,PSII(4)  UM0M0330 
EQUIVALENCE     (XP(1),X1P), ( YP{ 1 ) , YIP ) ,( ZP { 1 ) ,Z1P) , (PHII ( 1 ) ,PHI1 ) ,         UM0M0340 

1  (PSIKl)  ,PSI1)                                                                                                         UM0M0350 

COMMON  /COMP/SUMMtTHETN, PHIN,PSIN,PI,RAD,GAM1,GAM2,GAM3,GAM4,GAM5,UM0M03  60 

1  GAM6,GAM7,GAM8,GAM9,7HETT,PHIT,PS1T,ZRC,TRQ2,  UM0M0370 

2  TF02,TIZ,RH02,RH0MUR,AMUF,BMUR,ZPR,TM4,RHMR2,A02APB,    UM0M0380 

3  B02APB,RFTF,TS02,RRTS,BR0MUR,XMUFO2,AXMF02,XMTFO4,  UM0M0390 

4  XiZR,RTR,RHMR2I,XlXP,XIZP,XIXZP,XlYZP,DlPD2,DlMD2,         UM0M0400 

5  ZRD3,ZRD3R,ZFD3R,ZFD12tTIZ2,TG61,DDlP2,DDlM2,RPR,PHRPUM0M0410 

6  ,TANTP,SPHTPfCPHTP,SECTPtSFXS,SFYSfSFZS.SNPStSNTSt  UM0M0420 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYUtSFXU,SFYUF,         UM0M0430 

8  SFYUR,SFZU,COSTh»SlNTH,CDSPS,SINPStCOSPH,SINPH,ANGl,    UM0M0440 

9  ANG2,CPHI,SPHI,CPSI,SPSI,P1,P7,P3,P4,P5,P6,TX,TY,TZ  UM0M0450 
COMMON  /C0MP/TRH,DISTX,DISTY,DISTD,DISTS,D21,ZETA4,ZETA4D,ZETA3,       UMOMOlbO 

1  ZETM3D,SFZl,SNPU,SNTU,HCGHl,HCGH2,HCGH3tHCGH^,TERMlt    UM0M0470 

2  TERM2fSNPSU,SNPR,HCbHl,HCBH2,HCBH3,HCBH4,HCAHl,HCAH2,UM0M04  80 

3  HCAH3,HCAH4,UQ,WP,UR,GR,VPtPR,P2,02tR2,VR,WQfPQ,PHIR2UM0M04  90 
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4 

,PH1RD2»RPHR 

5 

XX2,YY1,YY2 

DIMENSION   HCAH{4),HCBH(4 

fcQUIVALhNCt     (HCAH(1),HCA 

COMMON 

/INSUS/    XIFtRHOF, 

I 

AKDSt AKDS 

I 

NCAMFfNCA 

COMMON 

/SUSCMP/    XMUR02,6 

1 

RhF2MF,R 

2 

DD3M4,ZF 

3 

PHIFD2,R 

4 

PHI3D,PH 

5 

0TDD2,DT 

D,GCTH»GSTH,GCTSPtGC 

,ThGl»THG2fPHGl,PHG2 

),HC6H(4) 

HI),  (HCBH(  D.HCBHl), 

TSF,PHIFO,PHIFOD,DEL 

1,AKDS2,AKDS3,PHIRC( 

MR,NDTHF,NDTHR 

XMR02,XMTR04,ZF0,TSF 

F2MFI,RTF,RRTR,D3PD4 

D1RF,ZRD34,RFPF,RPF2 

PHFD,ZFD1,ZFD2,ZRD4, 

I4D,DTHF1,LTHF2,DTHR 

DD3,DT0D4,FJF(4),SNP 


UPDATE    RECORD 

TCP, XXX, YYY, IX,  I Y,  XXI 
,ZZ1,ZZ2,LLL 

(HCGH(1),HCGH1) 
40,DEL40D,ISUS, 
50),DTHF(50),DTHR(50) 

02,RHOF2,RHFMUF, 

,D3MD4,D43,DD3P4, 

M,WFMF,PHFP,PHIF2, 

TPF,SL0PE3,SL0PE4, 

3,DTHR4,DTDD1, 

F 


ISl    =    IS+1 

GU    TO    110,20,30) tISl 

MOMENTS    FCR    SUSPENSION    OPTION    0    ,     INDEPENDENT    FRONT,    SOLID    AXLE    REAR 

10    TEKMl    =    ZFDl+HCGHl 
TERM2    =    ZFD2+HCGH2 

ROLL    MOMENT 

SNPU  =  -FYU(1)*TERM1  -  FYU(2)*TERM2  -  ( FYU (3 ) ♦FYUi 4) )*ZRD3 

1  ♦SI(2)»(TF02+DTHF2)  -  SI ( 1) ♦ (TF02+DTHF1 ) 

2  ♦(SI(4)-SI(3) )»TS02 


PITCH  MOMENT 


SNTU    = 


(SI(l)+SI(2) )*A    -    (SI(3)*SI(4))*B 
♦FXU(1)*TERM1    ♦    FXU<2)*TERM2 
♦FXU(3)*{ZRD3R+TPR-HHCGH3)    ♦    FXU ( 4) *(ZRD3R-TPR+HC&H4 ) 


YAW    MOMENT 

SNPSU  =    FYU( 1)*{A*HCAH1)     ♦    FYU{ 2  )* ( A+HCAH2  ) 

1  -FYU(3)*(B-HCAH3)     -   FYU( 4 )* ( b-HCAH4 ) 

Z  -FXU(1)*(TF02*DTHF1+HCBH1)    ♦    FXU( 2 )♦( TF02+DTHF2-HCBH2 ) 

3  -FXU(3)*(TR02-RPR+HCBH3)     ♦    FXU ( 4)* ( TR02+RPR-HCBH4) 

REAR    AXLE    ROLL    MOMENT 

SNPR    =  FZU(3)*(TR02-RPR*HCBH3)  -    FZU (4)* ( TR02+RPR-HCBH4) 

1  -FYU(3)*(RH0+TPR+HCGH3)  -   FYU( 4)* ( RH0-TPR+HCGH4) 

2  'KSI(3)-SI(4)  )*TS02 
RETURN 

MOMENTS    FOR    SUSPENSION    OPTION    1,    INDEPENDENT    FRONT    AND    REAR 

20    TERMl    =    ZFDl+HCGHl 


,UM0M05  00 
UMOMOSIO 
UMOMO5  20 
UM0M05  30 
UM0M05  40 

,UMCM0550 
UM0M0560 
UMOM05  70 
UM0M03fcG 
UM0M05  90 
UM0M06  00 
UMOM06  10 
UM0M06  20 
UM0M0630 
UM0M0640 
UM0M06t>0 
UM0M06.60 
UM0MO670 
UM  CM  06  80 
UMOM06  90 
UM0M0700 
UM0MC710 
UMOM0720 
UM0M07  30 
UM0MG7  4O 
UM0MG750 
UM0M07  60 
UM0M07  70 
UM0M0760 
UM  DM  07  90 
UM0M0800 
UMCM08  10 
UM0M0a20 
UM0M0&30 
UM0M08  40 
UM0M06  30 
UM0M08  60 
UM0MC6  70 
UMOMOaBO 
UM0M08  90 
UMGM09  00 
UM0M09  10 
UMOM09  20 
UM  DM  09  30 
UM0M09  40 
UMOM09  50 
UM0M09  60 
UM  DM  09  70 
UMOM0960 
UM0M09  90 
UMOMIOOO 
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TERM2  =  ZFD2+HCGH2 
TERM3  =  ZRD3+HCGH3 
TERM4    =    ZRD4+HCGH4 

ROLL    MOMENT 

SNPU    =       SI(2)*(TF02*DTHF2)    -   SI ( 1)*( TF02*DTHF 1 ) 

1  +SI(4)*{TR02*DTHR4)    -    SI ( 3) *(TR02*DTHR3) 

2  -FYU(1>*TERM1    -    FYU(2)*TERM2    -    FYU(3)*TERM3    ~   FyU(4}*TERM^ 

PITCH    MOMENT 

SNTU    =    <SI{1)+SI(2))*A   -    (SI(3)+SI(4) )*B 
I  ♦FXU(1)*TERM1    +    FXU(2)*TERM2    ♦    FXU(3)*TERM3 

YAW    MOMENT 


+    FXU(4)*TERM4 


SNPSU    =    FYU{1)*(A+HCAH1)     ♦    FYU{ 2 )* ( A+HCAH2 ) 

1  -FYU{3y*(B-HCAH3)     -    FYU( 4 )» { B-HCAH4) 

2  -fXU( 1)*(TF02+DTHF1+HCBH1)    +    FXU ( 2 ) *( TF02+DTHF2-HCBH2 ) 

3  -FXU(3)*(TR02+DTHR3+HCBH3)    ♦    FXU (4 ) *( TR02+DTHRA-HCBH4) 
RETURN 

MOMENTS    FOR    SUSPENSION    OPTION    2,    SOLID    FRONT    AND    REAR    AXLES 


ROLL    MOMENT 

30    SNPU    =    -(FYU(1)+FYU(2) )*ZFD1    - 
1  +(SI(2)-SI{1J)*TSF02      ♦ 

PITCH    MOMENT 


(FYU(3)+FYU(4) )*ZRD3 
(SH4)-SI(3})*TS02 


SNTU    = 


(SI( 1)+SI(2) )*A    -    (SI(3)+SI{4))*B 
♦FXU(1)*(ZFD1RF*TPF*HCGH1)    ♦    FXU <2 > ♦( ZFD1RF-TPF+HCGH2 ) 
♦FXU(3)*(ZRD3R+TPR-HHCGH3)       ♦    FXU {4)*C ZRD3R-TPR+HCGH4) 


YAW    MOMENT 

SNPSU  =    FYU(1»*(A+HCAH1)     +    FYU( 2  )*( A+HCAH2 ) 

1  -FYU(3)*(B-HCAH3)     -    FYU( 4)* ( b-HCAH4) 

2  -FXU(1)*<TF02-RFPF+HCBH1)    ♦    FXU(2 )♦ (TF02+RFPF-HCBH2 ) 

3  -FXU<3)*(TR02-RPR+HCBH3)       ♦    FXU( 4)* (TR02+RPR-HCBH4) 

FRONT    AXLE    ROLL    MOMENT 


SNPF    =       FZU(1)*(TF02-RFPF+HCBH1) 

1  -FYU(l)*(RH0F*TPF+HC6Hl) 

2  ♦(SIl 1»-SI(2) )*TSF02 

REAR    AXLE  ROLL    MOMENT 


FZU(2)*(TF02-»-RFPF-HCBH2) 
FYU(2)*(RH0F-TPF+HCGH2) 


UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMW1 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 


1010 
1020 
10  30 
1040 
10  50 
1060 
1070 
1060 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1160 
1190 
1200 
1210 
1220 
12  30 
1240 
12  50 
1260 

12  70 
1280 
1290 
1300 
1310 

13  20 
1330 
13  40 
1350 
1360 
1370 
13  80 

13  90 

14  00 
1410 
14  20 
14  30 
1440 

14  50 
1460 
1470 
1480 
1490 

15  00 
15  10 
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SNPR    =  FZU(3)*(TR02-RPR+HCBH3)    -  FZU(4 )♦ ( TR02+RPR-Hrftw^i 

1  -FYU(3)*(RH0*TPR.HCGH3)       -  FYU    4    ♦    RhS-TPr'hCGHA?  UM0M1520 

2  ♦(SI(3)-SI(4>)*TS02  -  »KMU  TPR+HCGHA)  UM0M1530 
RETURN  UM0M1540 
END  UMOMlSSiO 

UM0M1560 
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DATE   01/12/76 


TIME       1729 


UPDATE    RECORD 


SUBROUTINE    VGORNT 
C  HV0SM-RD2    VE 

C  REVISED    OCTO 

COMMON/INPT/PHIO,THE 

1  AtBtDELl 

2  PHIROD,T 

3  XMS,XMUF 

4  RF,CR,AK 

5  ll.DTCMP 

6  HED(36), 

7  DELE, DDE 

8  NZ1AB,NZ 

9  NBY(5),N 
CGMM0N/INPT/XB(5) ,XE 

1  XXZGP5(21) 

COMMON/lNPTl/YClPfYC 

1  CPSPtOM 

2  PSIFIO, 
DIMENSION   YCIP(2) 
EQUIVALtNCE     (YCIPU) 
COMMON    /1NTG/NEQ,T,D 
EQUIVALENCE     (U,VAR(1 

1 
2 
3 

5 
6 

EQUIVALENCE 
1 

2 


RSION 

BER  1975   CALSPAN  CORPORA 

TAO,PSI0,PO,Q0,R0,XC0P,YC 

0,DEL20,DEL30,  PHIROtDELlO 

F,TR,ZF,ZR,RHO,AKRS,XMUR, 

,X1X,XIY,XIZ,XIXZ,CF,AKF, 

R,XLAMR,OMEGR,CRP,EPSR,RR 

l,DTPRNT,MODfc,EBAR,EM,AAA 

DADE(3),XIR,X1,Y1,Z1,X2,Y 

L,NDtL,PSIF(50),TQF(50),T 

5,XBDRY(4,5),PSBDRY(4,5), 

TBLl,NTBL2,NTBL3,ZGP(21t2 

{5),XINCR(5) ,NX(5),YB (5), 

,YYZGP3(21) ,AMUG(5) tPSBDR 

2P,ZC2P,0ELTC,PHIC1,PHIC2 

GPSf  AKPS»EPSPStXPS,RWHJB, 

PSIFDO 


TION 

OP,ZCOP,UG,VO,WO, 

D,DEL20D,DEL30D, 

XLAMF,OMEGF,CFP,EPSF 

,TS»THMAX,DTCOMP,TO, 

,HMAX,HMIN,BET,G, 

2,Z2,PHIC(50l ,DELB, 

QR(50),TB,TE,TINCR, 

Y60RY(2,5),NBX(5), 

1,5) 

YE(5),YINCR<5) ,NY(5) 

0(4,5),UVWM1N,PQRMIN 

,AMUC,XIPS, 

RWHJE,DRWHJ,INDCRB, 


EQUIVALtNCE 


EQUIVALENCE 


COMMON 


1 

2 
3 
4 
5 
6 
7 
8 
9 


(R,VAR(6 
(DEL2D,V 
(PHIR,VA 
(PHITPjV 
(YCP,VAR 
(PSIFID, 
(DU,DER( 
(OQ,DER( 
(DDEL2,D 
(DDEL3D, 
(DTHTTP, 
(OXCP,DE 
(DPSIFI, 
(VAR(9), 
(DER(IO) 
(VAR(13) 
(DER(14» 
/DIMV/X1P,X2P 
PHI2,PH 
CGYW(4) 
STG(4), 
XLM1(4) 
YGPP(4) 
CGR(4) , 
CTXG(4) 
SPYG(4) 
FCXU(4) 


,YC1P) 

T,VAR(50),DER( 

)),(V,VAR(2) ), 

))  ,(DEL1,VAR(7 

AR(10)),(DEL3, 

R(  13)  ),(PHIRD, 

AR(16)), (PSITP 

(19)  ),(ZCP,VAR 

VAR( ZZ) ) 

1)  ),  (DV,DER(2) 

5)  ),  (DR,DER(6) 

ER(9}  ),(DDEL2D 

DER( 12)),(DPHI 

.DFR(15)  ),  (DPHI 

R(18)),(DYCP,D 

DER(21)),(DDPS 

PHIF),IVAR(10) 

,DPHIFD) 

,DEL4),(VAR(14 

,DDEL40) 

,X3P,X4P,YIP,Y 

13,PHI4,PSI1,P 

,ZPGU4),THGI( 

CAGZ(4),CBGZC4 

,XLM2(4),XLM3( 

,ZGPP(4),DMATX 

FR(4),HI(4),FC 

,UG(4),STXG(4) 

,VG(4),PSIIP(4 

,FCYU(4),FCZU( 


),(0W,DbR(3)), (DP,DER(4) ), 

) ,(DDEL1,DER(7)) , (DD ELID ,DER(8) 

,OER( 10) ), {DDEL3,0ER(11) ) , 

R,DERtl3)), (DPHIRD,DERC14)), 

TP,DER( 16) ) ,(DPSITP,DER(17)), 

tR(19)),(DZCP,DER(20)), 

FI,DER(22) ) 

,PHIFD) ,(DER(9),DPHIF), 


) ,DEL4D ) , ( DER( 13 ) ,DDEL4) , 


2P,Y3P, 
SI2,PSI 
4),PHGI 
),CGGZ( 
4),AMTX 
(10,11) 
(4),T1( 
,  AY ( 4  )  , 
),PHICI 
4),FS(4 


Y4P,Z1P,Z 
3,PS14,CA 
(4) ,CPG(4 
4),D1(4), 
(3,3),CMT 
,DELTA(4) 
4),AX(4), 
BY(4),CY( 
(4) ,CAC(4 
) ,CAXW(4) 


2P,Z3P,Z 
YW(4),CB 
),SPG(4) 
D2(4),D3 
X(3,4),X 
,CAR(4), 
BX(4),CX 
4),CPYG( 
),CBC(4) 
,CBXW(4) 


4P,PHI1 

YW(4), 

,CTG(4) 

(4), 

GPP(4), 

CBR(4), 

(4), 

4), 

,CGC(4) 

,CGXW(4 


VGOROGIO 
VG  OR  00  20 
VGOR0030 
VG  OR  00  40 
VG0R00  50 
VG  OR  00  60 

fVG0R0070 
VG0R00  60 
,VGOR00  90 
VGOROIOO 
VG  OR  01  10 
VG  OR  01 20 
V&0R0130 

,VG0R0140 
VG0R0150 
VG  OR  01 60 
VG  OR  01 70 
VG0R0180 
VG0R0190 
VG  OR  02  00 
VG  OR  02  10 

)VG0R02  20 

,VG0R02  30 
VG0R0240 
VG0R0250 
VG  OR  02  60 
VG  OR  02  70 
VG0R02  80 
VG0R0290 

)VG0R0300 
VG0R0310 
VG0R03  20 
VG0R0330 
VG0R0340 
VGDR03  50 
VG0R0360 
VG  OR  03  70 
VG0R0380 
VG0R03  90 

,VGOR0400 
VG0R0410 

,V&OR0420 
VG0R0430 
VGCIR0440 
VGOR04  50 
VG  OR  04  60 
VG  OR  04  70 

,VGGR04  80 

)VG0R0^90 


270 
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TIME       1729 


UPDATE    RECORD 


COMMON    /DIMV/AS(4),BS(4) ,CS(4) ,CAS ( 4) ,CBS ( 4) ,CGS (^ ) ,BETP (4 ) , 

1  BETBR(4)»FSXU(4),FSYU(4),FSZUC4) ,FRXU ( ^) , FRYU( 4) , 

2  FRZU(4) ,FXU(4),FyU(4I ,FZU(4) ,SI ( 4> .FlFl (2 ) , FIRK 2 ) , 

3  F2FI(2)  ,F2RH2),CAH(4),CBH(4),CGH(^) 
DIMENSION   XP(4),YP(4),2P(4),PHII(4),PSII(4) 

EQUIVALENCE     (XP(l) ,X1P),  ( YP (1 ) , YIP ) , ( ZP ( 1  I .ZIP) , (PHII ( 1),PHI1), 
1  (PSIKl)  ,PSI1) 

COMMON    /C0MP/SUMM»THETN,PHIN»PSINfPI,RAD,GAMl.GAM2tGAM3fGAM4,GAM5 

1  GAM6,GAM7,GAM&,GAM9,THETT,PHIT,PS1T,ZR0,TR02, 

2  TF02,TIZ»RH0  2,RH0MUR.AMUF,BMUR,ZPR.TM4,RHMR2tAQ2APBt 

3  B02APB,RFTF,TS02,RRTS,BR0MURtXMUF02,AXMF0  2.XMTF04, 

4  XIZR.RTR,RHMR2I,XIXP»XIZP.XIXZP.XIYZP,D1PD2,D1MD2, 

5  ZRD3,ZRD3Rt  ZFD3R, ZFD12 tTI Z2t TG61 ,DD1P2 ,DD1M2,RPR , PHR 

6  ,TANTP,SPHTP,CPHTP.SECTP,SFXS.SFYS»SF2S,SNPS.SNTS, 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYU,SFXU,SFYUF, 

8  SFYUR.SFZU,C0STH,SINTH,C0SPS,SINPS,COSPH,SINPH,ANGl. 

9  ANG2,CPHI,SPHI,CPSI.SPSItPl.P7,P3.P4,P5,P6,TX,TY,TZ 
COMMON    /C0MP/TRHtDISTX,DISTY,DISTD,DISTS,D21,ZETA^,ZETA^D,ZETA3, 

1  ZETA3D,SFZl ,SNPU,SNTU,HCGHI,HCGH2 »HCGH3,HCGH4,TERM1 , 

2  TERM2,SNPSU,SNPR,HCBHl,HCBH2tHCBH3fHCBH4,HCAHl,HCAH2 

3  HCAH3,HCAH4,UQ,WP,UR,QRf VPf PR,P2,02,R2tVR,WQ,P0,PHlR 

4  ,PHIKD2,RPHRD,&CTH,GSTH,GCTSP,GCTCP,XXX,YYY,IX,IY,XX1 
b  XX2,YYl,YY2,THGl,THG2,PHGl,PHG2,ZZl,ZZ2tLLL 

DIMENSION   HCAH(4) ,HCBH{4) ,HCGH(4) 

EQUIVALENCE  (HCAHd)  ♦HCAHl)  ,  (  HCbH(  1 )  ♦HCBHl )  .  (  HCGH(  1 )  ,HCGH1  ) 

COMMON  /CDMPN/  FRSP( 4) ,FRCP(4 ) , ICBHI7 , JCBHIT, 

1  DPSINT,TANPClfTANPC2,PHIClRtPHIC2R,AMUCMP,PHIlD» 

2  PHI2D,LCBl(4),LCB2(4),IHIT,AJMTX(3,3)tBMTX(3,3)t 

3  SFRX(4) ,SFRY(4>,SFRZ(4),T1PSI,T2PSI ,XMU&I(4) 
LOGICAL    LCB1,LCB2 

COMMON/ADTNL/ 


DIMENS 
EQUIVA 
DIMENS 
EQUIVA 

COMMON 


Ul,U2fU3,U4,Vl,V2fV3tV4,Wl,W2»W3,W4, 
XIYP,SPHlCtCPHlC.APTCHl,APTCH2,APTCH3,APTCH4, 
SL0PEl.SL0PE2fXTRA(300) 
ION    UI(4) ,VI(4>tWI C4) 

LENCE     (UI(l)tUl)t(  VKDtVD*  (W1(1),W1) 
ION    APITCH(4) 
LENCE     (APITCH( 1) ,APTCH1) 
/TIRIN/    AK.T(4)tSIGT(4),XLAMT(4),A0(4)  f  Al  (  4)  ,  A2  (  4  )  ,  A3  (4)  , 
A4(4) ,0MEGT<4),AMU(4),RW(4) ,F JP ( 35, 4) ,A234(  4 ) , 
A12(4),0MT2A2(<t),0MT2Ml(4)  ,  A23(  4)  ,1  TIR(  A) 
XIF,RriUF,TSF,PHlF0,PHIF0D»0EL40TDEL40D,ISUS, 
AKDS,AKDSl,AK0S2,AKDS3tPHIRC(50) , DTHF{50) tDTHR (50 ) 
NCAMF  ,NCAMR,NDTHF ,NDTHR 
COMMON    /SUSCMP/    XMUR02 ,BXMR02 .XMTR04,ZF0,TSF02,RH0F2,RHFMUF, 
RHF2MF,RF2MF1,RTF,RRTR,D3PD4,D3MD4,D43,DD3P4, 
DD3M4,ZFDlRF,ZRD34,RFPF,RPF2M,WFMF,PHFP,PHIF2t 
PHIFD2,RPHFDf ZFOlf ZFD2.ZRD4,TPF,SL0PE3fSL0PE4, 
PHI3D,PHl4D.DTHFl,DTHF2tOTHR3,DTHR4,DTDDl, 
DTDD2,DTDD3,0TD04,FJF(4),SNPF 
COMMON/NEWCRB/    YC3P , YC4P , YC5P ,YC6P,YCLP, 
ZC3P,ZC4P,ZC5P.ZC6P,ZCLP. 


COMMON    /INSUS/ 


VGOR05  00 
VG  OR  05  10 
V6  OR  05  20 
VG0R0530 
VG  OR  05  40 
VG  OR  05  50 
VG0R05to0 
,VG0R05  70 
VGOR05  60 
VG  OR  05  90 
VG  OR  06  00 
VG  OR  06  10 
PVG0R06  20 
VG0R06  30 
VG  OR  06  40 
VG0R06  50 
VG  OR  06  60 
VG0R06  70 
VG0R06  80 
,VG0RO690 
2VG0R0700 
,VG0R07  10 
VG0R0720 
VG0R0730 
VG0RG7  40 
VG0R07  50 
VG OR  0760 
VG0R07  70 
VGOR07bO 
VG  OR  07  90 
VGCff(0b00 
VG  OR  08  10 
VG0R08  20 
V&0R08  30 
VG  OR  0840 
VGCR08  50 
VG  OR  08  60 
VG0R08  70 
VG0R06  80 
VG  OR  08  90 
VG0R0900 
fV&0R09  10 
VG  OR  09  20 
VG0R09  30 
VG  OR  09  40 
VG  OR  09  50 
VG0R0960 
VG  OR  09  70 
VG0R09  80 
VG  OR  09  90 
VG  OR  10  00 
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UPDATE  RECORD 


31 
32 


30 


2  PHIC3 

3  TANPC 

4  PHIC3 

5  YCMP( 
COMMON  /RUFNES/  DELG 

L  DO  17   1=1,'^ 

XCPHI  =  COS(PHII(I)) 
XSPHI  =  SINIPHIKD) 
XCPSI  =  COS(PSII(I)) 
XSPSI  =  SIN(PSII(I)) 
TMP4  =  XCPHI  *  XCP 
TMP3    =         XSPHI    ♦    XCP 

>    CAYWd  )    =-AMTX(l,l)* 
CBYW(l)    =-AMTX(2,l)* 
CGYW(I)    =-AMTX(3,U* 
IF(INOCRB.LE.O)    GO    T 
LCBKI  >    =    RW(I  )«GT«Y 
LCB2n  )    =    RW(I  )-LE.Y 
IFdCbHlT.EQ.O)    GO    T 
PHGKI  )    =    0,0 
THGK  I)    =    0,0 
ZPGI (1  )    =    0.0 
SPGd  )     =-    0.0 
CPG(l)    =    1.0 
STG(I)    =    0.0 
CTG(I)     =    1.0 
1F( .N0T,LCB2<I))    GO 
ZPGKI  )    =    ZCLP  +  CYPd 
PHGKI  >    =   PHICLR 
SPG(I)     =    SIN(PHGI(I> 
CPG(1>    =   COS(PHGI(I> 
GO    TO    30 

INTRP5    LOOKS    UP 

J    IFdRUF.EQ.O)    GO    TO 
IF(XPd  )+RW(I).LT.O. 
CALL    RUFFRC(I»ZGP) 
XMUG1(I»    =    AMUd) 
GO    TO    33 
CALL    INTRPSd) 


,PHIC4,PHIC5,PHIC6,NCRBSLt 
3,TANPC4,TANPC5,tANPC6tTANPCL, 
R, PH 1C4R,PH I C5R, PHI C6R, PHICLR, 
6),ZCMP(6),PHICM(6) 
,DGMAX,NEND,IRUF 


SI 

SI 

XSPSI*   AMTX(1,2)*TMP4 

XSPSI*    AMTX(2,2)*TMP4 

XSPSI*   AMTX(3,2)*TMP4 

C    3 

ClP-YPd) 

P(  1)-VCLP 

0    3 


*  AMTXd,3l*TMP3 

*  AMTX(2,3)*TMP3 

*  AMTX(3,3)*TMP3 


TO   4 
)-YCLPl*TANPCL 


THGIt  PHGI,  ZPGI,  AND  XMUGI  FOR  EACH  WHEEL, 

31 

O.OR.XPd)-RW(  D.GT.DGMAX)  GO  TO  31 


CPG(l) 
SPG (I) 
CTGd) 
STGCI) 
CAGZd  ) 
CBGZd) 
CGGZd  ) 


■■  COS(PHGI(I) 
=  SIN(PHGld) 
=  C0S(THGI(1) 
=    SIN(THGId) 

=   CPG{ I)*STG 

=   -SPG( I) 

=   CTG( I)*CPG 


» 
) 
) 
) 
<I  ) 


(I) 


PI  =  CBYW<I)*C6GZ(I) 
P7  =  CBGZd)*CGYWd) 
P3  =  C6YW(  I)*CAGZd) 
P4  =  CGGZ( I)*CAYW(I) 
P5    =    CAYWd)*CBGZ(I) 


VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 


1010 
1020 
1030 
1040 
10  50 
10  60 
10  70 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
12  00 
1210 
12  20 
12  30 
12  40 
12  50 
1260 
1270 

12  80 
1290 
1300 
1310 

13  20 
1330 
1340 
13  50 
1360 
13  70 
13  80 

13  90 
1400 
1410 

14  20 
1430 
1440 
1450 
1460 
1470 
14  80 
14  90 
1500 
1510 
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UPDATE  RECORD 


INTRP& 

LCbl(I)  AND  LCB2(I)  BOTH 
THIS  INTERVAL.  RETAINS  LAST 
TERRAIN.    (RADIAL    SPRING    TIRE 


FALSE,       XMUGI(I) 
VALUE,     SHOULD    BE 
MODE    IN    CRBIMP 


TERRAIN      PREVIOUS    TO    CURB    HIT.) 


TO    30 


P6    =    CAGZ(I)*CBYW(I) 

Dl(I)    =    PI-P7 

D2(I)    =    P3-P4 

D3( I)    =    P5-P6 

CALL    GCPCI) 
C  XMUGKI)    IS    SET    IN 

C  IF    ICBHIT.NE.O    AND 

C  IS    NOT    SET    IN 

C  FOR    FLAT 

C  REQUIRES    FLAT 

GO    TO    5 

4  IFC.NOT.LCBKI)  )G0 
CALL    CKblMP(I) 
XMUGKI)    =    AMUC*AMU(I) 

33    CAGZ(I)    -   CPGCI )*STG(I) 
CBGZ(I)    =   -SPG(I) 
CGGZd  )    =   CTG(I)*CPG(I) 
PI    =    CBYW(I)*CGGZ(I) 
P7    =    CB&Z( I)»CGYW(I) 
P3    =    CGYW( I)*CAGZ(I) 
P4    =    CGGZ(1)*CAYW{I) 
P5    =    CAYW( I)*CBGZ(I) 
P6    =    CAGZ(I)*CBYW( I) 
Did)     =    P1-P7 
D2(I)    =    P3-P4 
D3(  I)    =    P5-P6 

5  CAHd)  =  AMTXt  l,l)*CAR(I)+AMTX(2,l)*CBRd)+AMTX(3,l)*CGR(I) 
CBHd)  =  AMTX(  1,2)*CAR(I  )+AMTX(2,2)*C6R(I  )+AMlX(3,2)*CGR(I) 
CGH(I)  =  AMTXd,3)*CARd  )+AMTX(2,3)*CBR(I  )+AM7X(3,3)*CGR(I) 
TId)     =    12.0*TI(I)/HI(I) 

HCAHd  )  =  HI  (I)»CAH(  I) 
HCBHd  )  =  Hl(I)*CbH(  I) 
HCGHd)    =    HKI  )*CGH(I) 

17    CONTINUE 
C 

IF( ISUS.NE.O)    GO    TO    90 

VI    =    V-»-A*R-ZFDl*P-HCGHl*(P+PHIlD)+DTDDl*DELlD 
V2    =    V+A*R-ZFD2*P-HCGH2*(P+PHI2D)-0TDD2*DE.L2D 
V3    =    V-B*R-ZRD3*P-(RH0+TPR+HCGH3)*(P+PHIRD) 
V<^    =    V-B*R-ZRD3*P-(RH0-TPR*HCGH4)*(P*PH1RD) 
Wl    =    W-A*Q+(TF02+DTHFl)*P*DELlDfHCBHl*(P+PHIlD) 
W2    =    W-A*Q-(TF02+DTHF2)*P+DEL2D+HCBH2*(P+PHI2DI 
W3    =    W+B*Q+DEL3D-(RPR-TR02-HCBH3)*(P+PHIRD) 
W4    =    W  +  B*Q  +  DEL3D-(RPR-»-TR02-HCBH4)*(P-6-PHlRD) 
GO    TO    95 

90    IFdSUS.EQ.2)    GO    TO    91 

VI  =  V+A*R-ZFD1*P-HCGH1*(P+PHI1D)+DTDD1*DEL1D 
V2  =  V+A*R-ZFD2*P-HCGH2*(P+PHI2D)-DTDD2*DEL2D 
V3  =  V-B*R-ZRD3*P-HCGH3*(P+PH13D)+DTDD3*DEL3D 
V4  =  V-B*R-ZRD4*P-HCGHA*{P-t-PHI4D)-DT0D4*0EL4D 
Wl    =    W-A*0+(TF02+DTHFl)*P+DELlD+HCBhl*<P+PHIlD) 


VG OR  1520 
VG0R1530 
VGOR  15  40 
VG0R15  50 
VG0R15fc0 
VGOR  15  70 
VGOR 1560 
VGOR  15  90 
VGOR  16  00 
VGOR 16 10 
VGOR  16  20 
VGOR  16  30 
VGOR  16  AO 
VGCR1650 
VGOR  16  60 
VGOR  16  70 
VGOR  16  to 
VGOR  lb 90 
VGOR  17  CO 
VGOR  17  10 
VGOR 1720 
VGOR  17  30 
V&OR17A0 
VGOR 17  50 
VGOR 1760 
VGOR  1770 
VGOR  1780 
VGOR  17  90 
VGORlbOO 
VGOR  18  10 
VG0R1820 
VGOR  18  30 
VGOR  16  40 
VGOR  18  50 
VGOR  18  60 
VGOR  16  70 

vGORieeo 

VGOR  18  90 
VG0R1900 
VGOR  19  10 
VG0R19^0 
VGOR  1930 
VGOR  19  40 
VG0R1950 
VGOR 1960 
VGOR  19  70 
VGOR 1980 
VGOR  1990 
VGOR  20 00 
VGOR  20 10 
VGOR  20  20 
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W2  =  W-A*0-(TF02+DTHF2)*P+DEL2D+HCBH2*CP*PHI2D) 

W3  =  W*B*Q+(TR02+DTHR3 J*P+0EL3D*HCBH3*(P+PHI3D) 

W4  =  W  +  B*Q-{TR02  +  DTHR4)*P+DEL4D-»-HCBH4*(P+PHI4D) 

GO  TO    95 

91    VI  =  V-»A*R~ZFD1*P-(RH0F+TPF+HCGH1)*(P  +  PHIFD) 

V2  =  V*A*R-ZFD1*P-(RH0F-TPF+HCGH2)*(P+PHIFD) 

V3  =  V-B*R-ZRD3*P-(RH0+TPR*HCGH3)*(P+PHIRD) 

V4  =  V-B*R-ZRD3*P-(RH0-TPR+HCGH4)*(P+PHIRD) 

Wl  =  W-A*Q+DEL1D-(RFPF-TF02-HCBH1)*(P+PHIFD) 

W2  =  W~A*0+DEL1D-(RFPF+TF02-HCBH2)*(P+PHIFDJ 

W3  =  W*B*0+DEL3D-(RPR-TRb2-HCBH3)*CP+PHIRD) 

W4  =  W+B*Q-t-DEL3D-(RPR+TR02-HCBH4)*(P+PHlRD) 

95    DO    170    1=1,4 

10  AX(I)  =  CBY*C&GZ(I)-CGY*CBGZU) 
BX(l)  =  C&Y*CAGZ(I)-CAY*CGGZ(I) 
CX(I)    =    CAY*CBGZ(I)-CBY*CAGZ(I) 

DISTX    =    SQRT(AX(I)**2*BX(I)**2+CX( I)**2) 
CTXGd)    =    (CAX*AX(I)+CBX*BX(I)*CGX*CX(I)  )/DISTX 
CTXG(I)    =    SI6N(AMIN1(ABS(CTXG(I) ),  1.0),CTXG(I)) 
STXG(I)    =    SIGN(SORT(  1.0-CTXG(I)»*2)  ,CGX*DISTX-CXa)  ) 
UG(I)     =    UKI  )*CTXG(I  )-Wl(I)*STXG{I) 

11  AY(I)  =  CGX«CBGZ{I)-CBX*CGGZ(I) 
BY(I)  =  CAX*CGGZ(I)-CGX*CAGZ(1) 
CY(l)    =    CBX*CAGZa)-CAX*CBGZ(l) 

DISTY    =    SQRT(AY{1}**2+BY(I)**2+CY(I)**2) 

12  CPYGd)    =    (CAY*AY{I)+CBY*BY(I)+CGY*CY(I)  )/DlSTY 
CPYG(I)    =    SIGN(AMIN1(ABS(CPYG(I) )tl.O),CPYG(I)) 
SPYG(I)    =   SIGN(SORT(  l.0-CPYG(I)**2),CGY*DISTY-CYn)) 
VG(T)     =    VI(I)*CPYG(I )-WI (I)*SPYG(I) 

DISTD    =    SQRTCDK  I)**2+D2(1)**2  +  D3(I)**2) 

13  CAZW  =  -  AMTX( 1,2)*XSPHI  +  AMTX ( 1, 3 )*XCPHI 
CBZW  =  -  AMTX(2,2)*XSPHI  •»■  AMTX  {  2,  3  )*XCPHI 
CGZW    =    -    AMTX(3,2)*XSPHI    +    AMTX ( 3t 3 )*XCPHI 

PSIIP(I)    =    PSIl{I)*(CAGZ(I)*CAZW+CBGZ(I)*CBZW-»-CGGZ(I)*CGZW> 

14  CAC{  I)  =  DKD/DISTD 
CBC<I)  =  D2(II/DIST0 
CGC(I)    =   D3(I)/D1STD 

CAXW(I) ,CBXW<I) ,CGXW(1)       NO    LONGER    USED 

15  AS<I)    =    CGC(I)*CBGZ(I)-CBC(I)*CGGZ(I) 
BS(I)    =    CAC( I)*CGGZ( I)-CGC(II*CAGZ(I) 
CS(I)    =    CBC(I)*CAGZ(I)-CAC(I>*CBGZ{I) 
DISTS    =    SQRT(AS(I)**2+BS(I)**2+CS( I)**2) 
CAS(1>    =   AS(I)/DISTS 

CBS( I)    =   BS(I)/0ISTS 
CGS(l)    =   CS(I)/DISTS 

16  CALL    TIRFRC(l) 
170    CONTINUE 

RETURN 
END 


VG  OR  20  30 
VG  OR  20  40 
VG  OR  20  50 
VG  OR  2060 
VG0R20  70 
VG  OR  20  80 
VG0R20  90 
VG  OR  21 00 
VG0R2110 
VG  OR  21 20 
VG0R2130 
VG0R2140 
VG0R2150 
VG0R2160 
VG  OR  2170 
VG0R2180 
VG  OR  21  90 
VG0R220a 
VG  OR  22  10 
VG  OR  22  20 
VGCR2230 
VG  OR  22  40 
VG0R22  50 
V60R22  60 
VG0R22  70 
VG  OR  22  80 
VG  OR  22  90 
VG OR  2300 
VG OR  23 10 
VG OR  2320 
VG  OR  23  30 
VG0R2340 
VGOR2350 
VG  OR  23  60 
VG  OR  23  70 
VG0R2380 
VG  OR  2390 
VG  OR  2400 
VG0R2410 
VG OR 2420 
VG OR  2430 
VG  OR  2440 
VG OR 24 50 
VG OR  2460 
VG  OR  24  70 
VG  OR  24  80 
VG OR  2490 
VGOR2500 
VG0R2510 
VG  OR  25  20 
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SUBROUTINE    VPOS  VPOSOOIO 

C  HV0SM-RD2    VERSION  VPGS0020 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION  VP0S0030 

COMMON/INPT/PHIO,THETAO,PSIO,PO,QO,RO,XCOP,YCOP,ZCOP»UO,VO,WO,  VPOSOOAO 

1  A,B,DEL10,DEL20,DEL30,PHIR0,D£L10D,DELZ0D,DEL30D,  VPQSOOSO 

2  PHIROD»TF,TR,ZF.ZR,RHO,AKRStXMUK»  VPOS0060 

3  XMSfXMUF,XlXtXIY,XlZfXIXZtCFf AKF,XLAMF,0MEGF,CFP,EPSF,VPCS0070 

4  RF,CRf AKR,XLAMR,DMEGR,CRPf EPSR,RRtTStTHMAX,DTCOMP,TOt    VP0S00  60 

5  Tl,DTCMPl,DTPRNTfMODttEBAR,EM,AAA,HMAX»HMIN,BET,&,  VP0S0090 

6  HED(36),DADE{3) ,XIR,Xl,YLf Z1,X2,Y2,Z2,PH1C(50) tDELB,       VPOSOIOO 

7  D£LE,DDEL,NDtL,PSIF(5O),T0F(5O),TCR(50),TB,TE,TlNCRt       VPOSOllO 

8  NZTAB,NZ5fXBDRY(4,5) ,PSBDRY(4,5), YbDRY(2t5 ),NbX(5),  VP0S0120 

9  NBY(5) ,NTBLl,NTBL2,NTBL3,ZGP(21t21,5)  VP0S0130 
C0MM0N/1NPT/XB(5),XE(5),XINCRI5) ,NX (5) tYB ( 5) , YE( 5 ) , YINCR ( 5 ) »NY( 5 ) ♦VPOSOIAO 

1  XXZGP5(21  )tYYZGP5(21)  ,AMUG(5)  ,PSBDR0(4,5)  ,UV WMIN  ,PQRM1N    VPGS01i)0 

C0MM0N/INPTl/YClP»YC2P,ZC2P,DELTC,PHICl,PHIC2,AMUCfXIPS,  VP OS 01 60 

1  CPSP,0MGPS, AKPS,EPSPS»XPS,RWHJB,RWHJE,DRWHJ,INDCRB,       VP0S0170 

2  PSIFIOtPSlFDO  VPOSOltO 
DIMENSION  YCIP(2)  VP0S0i90 
EQUIVALENCE  ( YC IP( 1 ) » YCl P )  VP0S0200 
COMMON  /INTG/NE0»T,DT,VAR(50) fDER( 50)  VP0S0210 
EQUIVALENCE     (U,VAR(1))  ,(  V,VAR(2)  ),(W,VAR(3))  ,(P,VAR(4)  ),  {g,VAR(5>)  )VPOS02  20 

1  ,(R,VAR(6)) ,(DEL1»VAR(7) ) t (DELID, VAR ( 8) ) , ( DEL2, VAR (9 ) )»VPOS02  30 

2  (DEL2DtVAR(10))f (D£L3,VAR(11) ),(DEL3D,VAR( 12)1 ♦  VP0S02^0 

3  (PHIR,VAR( 13)  ),(PHIRD,VAR(14)  ),(THETTP,VAR(15) ),  VPDS0250 

4  (PHITP,VAR(16)), (PSITP,VAR( 17) ), (XCPtVAR(18) ),  VP0S0260 
£)  (YCP,VAR(19)  )  ,(ZCPtVAR(20))  t(PSIFl,VAR(21)  ),  VPCS0270 
6                                  (PSIFID,VAR(22) )  VP0S0280 

EQUIVALENCE    (DU,DERt 1) )t (DV,DER{2) ) t(DWiDER(3) ),(DP,DER(A) ),  VPDS02  90 

1  (DQ,OER( 5) )» (DR,DER(6) ) , ( DDEL l.DER (7) ) , (DDEL1D,DER( 8 ) )VP0S0300 

2  , (DDEL2tDER(9) ),(DDKL2D,DER(10)), (DDEL3,DER(11) ) ,  VP0S0310 

3  (DDEL3D,DER( 12) ) t(DPHlR,DER(13)), (DPHIRD,DER(14)),  VP0S03Z0 

4  (DTHTTP,DER( 15))t (DPHITP,DER( 16) ) , (DPS ITP, DER( 17 ) ) ,  VPOS 03 30 

5  {DXCP,DER(18)  ),(DYCP,DER(  19)),(DZCPfDtR(20)),  VP0S03^ 

6  (DPSIFI,DER(21)),(DDPSFI,DER(22) )  VP0S0350 
EQUIVALENCE    (VAR (9 ) , PHIF  )  , ( VAR( 10) , PHIFD ) t (DER( 9 ) , DPHI F) ,                          VP0S03  60 

1  (DER(10),DPHIFD)  VP0S0370 

EQUIVALENCE     (VAR(13)  ,DELA  )  , ( VAR ( 14 ) ,DEL4D ) , ( DER ( 13 ) ,DDEL4) ,  VPOS 03 80 

1  (DER(14),0DEL4D)  VP0S03V0 

COMMON    /DIMV/XlP,X2PtX3PfX4PfYlP,Y2P,Y3P,Y4P,ZlPtZ2P,Z3Pf Z4P,PHI1,VP0S0400 

1  PHI2tPH13,PHI4,PSIlfPSI2,PSI3,PSI4,CAYW(4),CBYW(4),       VP0S0410 

2  CGYW(4) ,ZPG1(4),THGI(4),PHGI(4) ,CPG(4) ,SPG(4 ) ,CTG(4) tVP0S0^20 

3  STG(4),CAGZ(4),CbGZ(4),CGGZ(4),Dl(4),D2(4)TD3(4),  VP0S0430 

4  XLM1(4) ,XLM2(4),XLM3(4),AMTX(3f3),CMTX(3.4),XGPP(4),  VP0S0440 
f>  YGPP(4) fZGPP(4)tOMATX(10f 11),DELTA(4) ,CAR(4),CBR(4),    VP0S0450 

6  CGR(4),FR(4),HI(4),FC(4),TI(4),AX(4),BX(4),CX(4),  VPOS0460 

7  CTXG(4)  ,UG(4),STXG(4),AY('t)fBY{4),CY(4),CPYG(4),  VPOS0470 

8  SPYG(4) ,VG(4),PSIIP(4),PHICI(4),CAC(4) ,CBC(4) ,CGC (4) ,VP0S04 80 

9  FCXU(4)  ,FCYU(4)tFCZU(4),FS(4)|CAXW(4),CBXW(4),CGXW(4)VPClS0490 
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COMMON    /DIMV/AS(4) ,BS( 4) ,CS (4) ,CAS U) tCBS(4) t C6S(4) ,BETP (A ) , 
1  BETBR(4)»FSXU(4),FSYU(4),FSIU(4),FRXU(4),FRYU(4}, 

■L  FRZU(4)  ,FXU(A),FYU(4)  ,FZU(  4)  ,  SI(  Hi  ,F1F1  C2  )  ,F1RI  (2  )  , 

3  F2FI(2»,F2RI(2),CAH(4J,CBH{4l,CGH<4» 

DIMENSION    XP<4),YP(4),ZP(4),PHII(4),PSII{4) 

EQUIVALENCE     (XP ( 1) ,X IP ) ,  ( YP ( 1) , YIP ) ,(  ZP ( 1 ) ,ZIP) , (PHII ( 1 ) ,PHI1 ) , 
1  (PSII(1),PSI1) 

COMMON    /C0MP/SUMM,THETN»PHIN,PSIN,PI,RAD,GAMltGAM2,GAM3,GAM4,GAM5 

1  &AM6,GAM7,GAM8,GAM9,THETTfPHlT,PSlT,ZR0,TR02, 

2  TF02,TIZfRH02,RH0MUR,AMUF,BMURtZPR»TM4,RHMR2»A02APb, 

3  B02APB,RFTF,TS02,RRTS,BR0MURtXMUFD2fAXMF02»XMTF04, 

4  XlZR»RTR,RHMR2IfXIXP,XIZPfXIXZPfXlYZP,DlPD2,DlMD2, 

5  ZRD3f  ZRD3R, ZFU3R t ZFD12 tTIZ2 ,TG61 tDDlP2,DDlM2 t RPR,PHK 

6  ,TANTPfSPHTP,CPHTP,SECTPtSFXStSFYS,SFZSfSNPStSNTSt 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYU,SFXUtSFYUF, 

8  SFYURtSFZU,COSTH,SlNTH,COSPStSlNPSfCOSPH,SINPH,ANGl, 

9  ANG2,CPHI,SPHI,CPSI,SPSItPl»P7,P3,P4,P5,P6,TX,TY,TZ 
COMMON    /C0MP/TRH,DISTX,DISTY,DlSTD,DISTS,D21,ZETAH,ZtTAHD,ZETA3t 

1  ZETA3D,SFZ1,SNPU,SNTU,HCGH1,HCGH2,HCGH3,HCGH'4^,TERM1, 

2  TERM2tSNPSU»SNPR»HCBHl,HCBH2fHCBH3,HCBH4,HCAHl,HCAH2 

3  HCAH3,HCAH4flX)fWP»UR,0R,VP,PR,P2,g2,R2,VR,WQ,P0,PHIR 

4  ,PHIRD2,RPHRD,GCTH,GSTHfGCTSP,GCTCPtXXX,YYY,lX,IY,XXl 

5  XX2,YYl,YY2,THGl,THG2»PHGlfPHG2,ZZl»ZZ2,LLL 
DIMENSION    HCAH(4),HCbH(4)  ,hCGH(4) 

EQUIVALENCE     (HCAH(l) ,hCAHl ) , ( HCBH( 1 ) , HCBHl ) , ( HC6H( 1) ,HCGH1 ) 
COMMON    /COMPN/    FRSP( 4) ,FRCP(4 ) , ICBHIT , JCBHIT  , 

1  DPSINT,TANPCl,TANPC2,PHIClR,PHlC2RtAMUCMP,PHllD, 

2  PHI2D,LCB1(4I,LCB2(4),IHIT,AJMTX(3,3),BMTX(3,3), 

3  SFRX(4)  ,SFRY(H),SFRZ(*f),TlPSl,T2PSI,XMUGI(4) 
LOGICAL    LCB1»LCB2 

COMMON/ ADTNL/    Ul tU2.U3 tU4,Vl» V2 t V3 ,V4, Wl t W2. W3 ,W4, 

1  XlYP.SPHICfCPHICf APTCH1,APTCH2,APTCH3,APTCH4, 

2  SL0PEl,SL0PE2tXTRA(300) 
DIMENSION    UI(4),VI(4),WI (4> 

EQUIVALENCE     (UI(l)tUl)f(VI(l)»Vl)t(WI(l),Wl) 

DIMENSION   APITCH(4) 

EQUIVALENCE  ( APITCH ( 1) ,APTCH1 ) 

COMMON  /INSUS/  XIF tRHOF,TSF,PHlFO, PHIFOD,DEL40,DEL40D, ISUS, 

1  AKDS,AKDSlfAKDS2,AKDS3,PHIRC{50),DTHF(50),DTHR(50) 

2  NCAMF,NCAMR,NDTHF,NDTHR 

COMMON    /SUSCMP/    XMUR02 .BXMR02 t XMTR04t ZFOf TSFC2,RH0F2 tRHFMUF, 

1  RHF2MF  ,RF2MF1,RTF,RRTR,D3PD4,D3HD4,D43,DD3P4, 

2  DD3M4,ZFDlRF,ZRD34,RFPF,RPF2M,WFMF,PHFP,PHIF2f 

3  PHIFD2fRPHFDtZFDl,ZFD2,ZRD4,TPF,SL0PE3fSLOPE4, 

4  PHI3D,PHI4D,DTHFl,DlHF2fDTHR3tDTHR4,DTDDl, 

5  DTDD2,DTDD3fDTDD4,FJF{4),SNPF 


TI(l) 

IF(NTB 

TI(2) 

TI(3) 

IF(NTB 


=    0.0 
L2  J^E.O) 
=    TI(l) 
=    0.0 
L3.NE.0) 


CALL    INTRPL(TQF,TB,TE,TINCR,T,TI(1) ) 


CALL    INTRPL(TQR,T&,TEfTINCRfT,TI(3>) 


VP  OS  05  GO 
VPOS0510 
VP0S05  20 
VP0S0530 
VP  OS  05  40 
VP0S05  50 
VP0S05  60 

,VP0S0570 
VP  OS  05  80 
VP  OS  05  90 
VP  OS  06  00 
VP0S0610 

PVP0S06  20 
VP OS 06 30 
VP  OS  06  40 
VP0S06  50 
VP0S0660 
VP OS  0670 

vposo6eo 

tVP0S0690 
2VP0S07O0 
,VP0S0710 
VPGS0720 
VP0SG730 
VP0SC740 
VP  OS  07  50 
VP0S0760 
VP0S0770 
VP  OS  07  60 
VP0S0790 
VP  OS  08  00 
VP  OS  08  10 

vposoe2o 

VP0S0830 
VP  OS  08  40 
VP0S0850 
VP  OS  0860 
VP  OS  08  70 
,VP0S0b80 
VP  OS  08  90 
VP0S0900 
VP  OS  09  10 
VP0S0920 
VP0S0930 
VP0S0940 
VP  OS  09  50 
VP  OS  09  60 
VP0S0970 
VP0S09  80 
VP  OS  09  90 
VPOSIOOO 
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TI(4)    =    TI(3l  VPOSIOIO 

C  VP  OS  10  20 

ISl    =    ISUS*1  VP0S1030 

C  VP0S1040 

C       LONGITUDINAL    WHEEL    CENTER    VELOCITIES  VP0S1050 

C  VP0S1060 

GO    TO     (10,lltl2),ISl  VP0S1070 

C  VPCS108C 

C      SUSPENSION    OPTION    Ot    INDEPENDENT    FRONT    AND    SOLID    AXLE    REAR  VP0S1090 

C  VPOSllOO 

10  IF(NDTHF.EQ.O)  GO  TO  101  VPOSlllO 
CALL  INTRPC(DTHF,DELB, DELE, DDEL, DELI, DTHF1,DTDD1)  VP0S1120 
CALL    INTkPC(DTHF,DELB, DELE, DDEL, DEL2,DTHF2,DTDD2)  VPOS1130 

101    Ul    =    U-(TFa2+DTHFl)*R+ZFDl*U  VP0S1140 

U2    =    U+(TF02+DTHF2)*R+ZFD2*Q  VPOSlli.0 

U3    =    U-<TR02-RPR)*R-»-(ZRD3R+TPR)*Q  VP0S1160 

U4   =    U+(TR02+RPR)*R-»-(ZRD3R-TPR)*Q  VPGS1170 

GO    TO    13  VPOSllfcO 

C  VPGS1190 

C       SUSPENSION    OPTION    1,     INDEPENDENT    FRONT    AND    REAR  VP0S1200 

C  VPCS12  10 

11  IF(NDTHF.EQ.O)  GO  TO  111  VPOSi220 
CALL  1NTRPC(DTHF,DELB, DELE, DDEL, DELI, DTHF1,DTDD1)  VP0S1230 
CALL    INTRPC(DTHF,DEL6, DELE, DDEL, 0EL2,DTHF2,DTDD2)  VP0S1240 

111  IF(NDTHR.EQ.O)  GO  TO  112  VP0S1250 
CALL  INTRPC(DTHR, DELE, DELE, DDEL, DEL3,DTHR3,DTDD3)  VP0S1260 
CALL     INTRPC(DTHR,DELB, DELE, DDEL, DELA,DTriR4,DTDD4)  VPCS1270 

112  Ul  =  U-(TF02+DTHF1)*R+ZFD1*Q  VPCS12b0 
U2  =  U+(TF02+DTHF2)*R+ZFD2*0  VP0S1290 
U3  =  U-(TR02+DTHR3)*R  ♦  ZRD3*0  VP0S1300 
U4  =  U+(1R02+DTHR4)*R  ♦  ZRD4*Q  VP0S13  10 
GO    TO    13  VP0S1320 

C  VPCS1330 

C       SUSPENSION    OPTION    2,    SOLID    FRONT    AND    REAR    AXLES  VP0S1340 

C  VP  OS  13  50 

12  Ul  =  U-(TF02-RFPF)*R  +  (ZFDlRF-»-TPF)*Q  VP0S1360 
U2  =  U+(TF02-»-RFPF)*R  +  (ZFDlRF-TPF)*Q  VP0S1370 
U3  =  U-(TR02-RPR)*R  ♦( ZR D3R+TPR ) *Q  VPOS1380 
U4    =    U+(TR02+RPR)*R    >( ZRD3R-TPR ) *Q  VP0S1390 

13  CONTINUE  VPOSIAOO 
SFYU  =  0,0  VP0S1410 
SFXU  =  OJ)  VP0S1420 
SFYUF  =  0.0  VP0S1430 
SFYUR    =    0.0  VPOS1440 

C                             SFYUF    AND    SFYUR    NO    LONGER    USED  VP0S14  50 

SFZU    =    0.0  VP0S1460 

2    AMTX(1,1)    =    C0STH*C0SPS  VP0S14  70 

AMTX(2,1)    =    COSTh*SINPS  VP OS  14 80 

AMTX(3,1)    =    -SINTH  VP  OS  1490 

AMTX{1,2)    =    -COSPH*SINPS+SINPH*SINTH*COSPS  VPOS1500 

AMTX{2,2)    =    COSPH*COSPS+SINPH*SINTH*SINPS  VP0S1510 
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DATE   01/12/76 


TIME       1729 


UPDATE    RECORD 


1,2)*YTMP+AMTX 
2,2)*YTMP+AMTX 
3,2)*YTMP+AMTX 


AMTX(3t2)    =    COSTH*SINPH 

AMTX(1,3)    =    SINPH*SINPS*COSPH*SINTH*COSPS 

AMTX(2»3)    =    -COSPS*SINPH*COSBH*SINTH*SINPS 

AMTX(3f3>    =    COSTH*COSPH 

CAY    =    AMTX( 1,2) 

CBY    =    AMTX(2,2) 

CGY    =    AMTX(3,2) 

CAX    ^    AMTX(1,1) 

CBX    =    AMTX(2tl) 

CGX    =    AMTX(3,1) 

IF(ISUS.E0.2)    GO    TO    21 
YTMP    =    TF02+DTHF1 
2TMP    =    ZHDl 
GO    TO    31 
2  1    YTMP    =    TF02-RFPF 

ZTMP    =    ZFO+DELl+TPF 

31  XIP    =    XCP+AMTX(1,1)*A+AMTX( 
YIP    =    YCP+AMTX(2,1)*A+AMTX( 
ZIP    =    ZCP+AMTX(3,1)*A+AMTX( 
IF(ISUS.EQ.2)    GO    TO    22 
YTMP    =    -TFL2-0THF2 
ZTMP    =    ZFD2 
GO    TO    32 

22  YTMP    =    -TF02-RFPF 
ZTMP    =    ZF0+DEL2-TPF 

32  X2P    =    XCP+AMTX( 1,1)*A+AMTX( 
Y2P    =    YCP*AMTX(2,1 l*A+AMTX( 
Z2P    =    ZCP+AMTX(3,1)*A+AMTX( 
IF( ISUS.EQ.l)    GO    TO    23 
YTMP    =    TR02-RPR 
ZTMP    =    ZR0+DEL3+TPR 
GO    TO    33 

23  YTMP    =    7R02+DTHR3 
ZTMP    =    ZRD3 

33  X3P    =    XCP-AMTX(1,1)*B+AMTX( 
Y3P    =    YCP-AMTX(2,1)*B+AMTX( 
Z3P    =    ZCP-AMTX(3,1)*B+AMTX( 
IF( ISUS.EQ.l )    GO    TO    24 
YTMP    =    -TR02-RPR 
ZTMP    =    ZR0+DEL3-TPR 
GO    TO    34 

24  YTMP    =    -TR02-DTHR4 
ZTMP    =    ZRD4 

34  X4P  =  XCP-AMTX( 1,1)*B+AMTX( 
Y4P  =  YCP-AMTX(2,1)*B+AMTX( 
Z4P    =    ZCP-AMTX(3,1)*B+AMTX( 


(lt3 
(2,3 
(3,3 


)*ZTMP 
)*ZTMP 
)*ZTMP 


1,2)*YTMP+AMTX 
2,2)*YTMP+AMTX 
3,2)*YTMP+AMTX 


(1.3 
(2,3 
(3,3 


)*ZTMP 
»*ZTMP 
)*ZTMP 


1,2)*YTMP+AMTX 
2,2)*YTMP+AMTX 
3,2)*YTMP+AMTX 


(1.3 
(2,3 
(3,3 


)*ZTMP 
)*ZTMP 
)*ZTMP 


1,2)*YTMP+AMTX 
2,2)*YTMP+AMTX 
3,2)*YTMP+AMTX 


(1,3 
(2,3 
(3,3 


)*ZTMP 
)*ZTMP 
)*ZTMP 


QUADRATIC    INTERPOLATION    SUBROUTINE    INTRPL, ADDITIONAL    ENTRY    INTRPC 


VP  OS  15  20 
VP0S15  30 
VPOS1540 
VP  OS  15  50 
VP0S1560 
VP  OS  15  70 
VP0S15  80 
VP  OS  15  90 
VP  OS  16  00 
VP OS  16 10 
VP0S1620 
VP0S163O 
VP  OS  1640 
VP  OS  16  50 
VP0S1660 
VP0S16  70 
VP  OS  16  60 
VP  OS  1690 
VPDS1700 
VP  OS  17  10 
VP  OS  1720 
VP  OS  17  30 
VP OS  1740 
VP  OS  17  50 
VP0S1760 
VPCS1770 
VP0S1780 
VP  OS  17  90 
VP0S1800 
VP  OS  18  10 
VP0S18  20 
VP0S18  30 
VP OS  1840 
VP0S18  50 
VP0S1860 
VP  OS  18  70 
VP  OS  18  80 
VP  OS  16  90 
VP0S1900 
VP0S1910 
VP  OS  19  20 
VP  OS  19  30 
VP  OS  1940 
VP  OS  19  50 
VP  OS  19  60 
VP  OS  1970 
VP0S1980 
VP0S1990 
VP0S2000 
VP  OS  20  10 
VP OS  20 20 
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DATE       01/12/76            TIME  1729                                                  UPDATE    RECORD 

IF(ISUS.EQ.2)    GO    TO    50  VP0S2030 

CALL     INTRPC(PHICfDELB,DELEtDDELfDELl,PHIl, SLOPED  VP0S204O 

PHIl    =    PHI1*RA0  VPOS2O50 

SLOPEl    -    SLOPtl*RAD  VPGS2060 

PHIID    =    SL0PE1*DEL1D  VP0S2070 

CALL    INTRPC{PHlC,DfcLB,DELE,DDEL,DEL2,PHI2,SL0PE2)  VPOS2080 

PHI2    =    -PHI2*RAD  VP0S209G 

SL0PE2    =   -SL0PE2*RAD  VP0S2100 

PHI2D    =    SL0PE2*DEL2D  VP0S2110 

GO    TO    51  VPOS2120 

50  PHIl  =  PHIF  VP0S2130 
PHI2  =  PHIF  VPDS21A0 
PHIID  =  PHIFD  VP0S2150 
PHI2D    =    PHIFD  VP0S2160 

51  IFdSUS.EQ.l)  60  TO  52  VPi:jS2i70 
PHI3  =  PHIR  VP0S21b0 
PHI^  =  PHIR  VP0S2190 
PHI3D  =  PHIRD  VPGS2200 
PHIAD  =  PHIRD  VP0S2210 
GO    TO    53  VPOS2220 

52  CALL  INTRPC«PHIRC,DELB,DELEfDDELtDEL3,PHl3,SLDPE3)  VPOS2230 
PHIS  =  PHI3»RAD  VP0S2240 
SL0PE3  =  SL0PE3*RAD  VP0S2250 
PHI3D  =  SL0PE3*DEL3D  VP0S2260 
CALL  INTRPC(PHlRCfDELBtDELEtDDEL.DEL4,PHl4,SL0PE4)  VP0S2270 
PHIh  =  -PHI4*RAD  VP0$2280 
SL0PE4  =  -SL0PE4*RAD  VP0S2290 
PHI4D    =    SL0PE4*DEL4D  VP0S2300 

53  CONTINUE  VP0S23L0 
C  VP  OS  23  20 

40    IFdNDCRB.EQ.O)    GO    TO    5  VPCS2330 

IF( IHIT.ttt.l.OR.INDCRB.LT.O)    GO    TO    6  VP0S2340 

5  CALL  DKIVER(PSICON,PSISLPtJ)  VPGS2350 
1F(J.NE.0)  GO  TO  5001  VP0S2360 
PSICON  =  0.0  VP0S2370 
PSISLP  =  0,0  VPDS2380 
IF(NTBLl.NL.O)  CALL  INTRPC( PSIFf TB ,TE tTINCRf T t PSICON,PS ISLP )  VPGS2390 
PSICON  =  PSICON*RAD  VP0S24G0 
PSISLP=PSISLP*RAD  VPOS2^10 

5001    CONTINUE  VP0S2420 
C               FORMERLY    PSIFP=PSIlfNO    LONGER    USED. FORMERLY    PSIFID=(PSI 1-PSIFP)/DTVP0S 2430 

PSIl    =    PSICON  VP0S2440 

PSIFID    =    PSISLP  VP0S2450 

PSIFI    =    PSll  VP0S2460 

GO    TO    7  VP  OS  24  70 

6  PSIl    =    PSIFI  VP0S24b0 

7  PSI2    =    PSIl  VP0S2490 
C  VP  OS  25  GO 

IFdSUS.EQ.l)    GO    TO    54  VPOS2510 

PSI3    =    AKRS*PHIR  VP0S2520 

PSI4    =    PSI3  VP0S2530 
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DATE  01/12/76            TIME       1729                                                UPDATE    RECORD 

RETURN  VP0S2540 

54   PSI3    =  AKDS+AKDS1*DEL3+AKDS2*DEL3**2+AKDS3*DEL3**3                                          VP0S2550 

PSI4   =  -<AKDS*AKDSl*DEL4+AKDS2*DtL4*»2+AKDS3*DEL4**3)                                   VP0S2560 

RETURN  VP OS 25 70 

END  VP0S25  80 
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DATE       01/12/76  TIME       1729  UPDATE    RECORD 


SUBROUTINE    WHEEL (/AKT/ ,/SIGT/ , /XLAMT/ , /RWHJb/,/RWH Jt/, /DRWH J/,  WHEEOOIO 

1    /NlFJP/,/RW/,FJP,/NO/)                  *  WHEEOCLG 

C                                      HVQSM-RD2    VERSION  WHEECiOJO 

C                                     REVISED    OCTObER    1V75         CALSPAN    CORPORATION  WhEEOO^O 

DIMENSION    FJP(50)  WhEEGO^O 

1    DA    =    4.0»0.017A3  WMEE00  60 

FJP(  1  )    =0.0  rtriEE00  70 

N    -    NFJP  WhEEOObO 

IF     (N.LE.NO)    GO    TO    2  WHEEOOSO 

PRINT    ZfNtNO  WHEEGIGO 

2  FORMAT    (  'ODIM.    FDR    F JP     TOD    SMALL ,', lb . »    NEEDED. •,     l6,'     PRUVI DE D  .WH £E 0110 
1     •)  WHEEGU-O 

STOP  WhEEGl^O 

3  CONTINUE  WHFEG14G 
NL  =  N-1  WHttOl^O 
DD  =  (  kWHJL-RWHJB)/FLOAT  (NL)  ^nt?Gli^,G 
DDK  =  DD*AKT  WHEtG170 
K  -  0  WhcEClfcO 
L  =  0.0  hHEEGIvO 
00  10  J=2tN  WhttO^OO 
FJP(J)  =  FJPCJ-D+DOK  WhLEOIiO 
D  =  D+DD  ^.HEFO^^G 
IF  (K.NE.O)  GO  TO  10  WHEL('230 
IF  (D.LT.Sl&TJ  GO  TU  10  WHEEGv^O 
X  =  DDK  WHfcEGZ^O 
DDK  =  [;DK*XLAMT  WHEEG2  60 
FJP(J)  =  FJP(J)+(DDK-X)*(D-SIGT)/DD  WhEt0^70 
K    =     1  WHEEOZ^O 

10    CONTINUE  WHUG290 

15    R    =    RW  WK'EEG3G0 

DO    Iv       J=2,N  WHEEC3i0 

B    =    1.0  WhEE03^0 

DDK    =    DD/R  WhEEG3  30 

Z=DDK  wHEtC3*tO 

200  ANG  =  0.0  WHtEG3tO 
F    =    Z*b  WHEE03eG 

201  ANG  =  ANG+DA  WHELG3  7G 
Y=l-2  WHEEG3  60 
X  =  CDSIANG)  WriEE  03V0 
IF(X.LE.Y)  GO  TO  16  WHEEGIGO 
F  =  F*2.0*(X-Y)*e  WHEEOAIO 
GO    TO    201  WriEEGs^20 

lb    B    =    FJP(J)/F  WHEE0430 

FJP(J)     =    DDK*B  WHEEG^AO 

IF     (J.EG.N)     GO    TO    IVOI  WHEEG^f>0 

I=J+1  WHEtO^fO 

DO    lb       L=I,N  WHEEO^TG 

Z=Z+DDK  WHEEG4EG 

300    ANG    =0.0  WHEEG^SG 


DATE       01/12/76 


TIME   1729 


UPDATE  RECORD 


F    -    2*B 
301    ANG    =    ANG+DA 
Y  =  l-Z 

X    =    COS(ANG) 
IF(X,LE.Y)    GC    TO    18 
F    =    f-+2,0*(X-Y)*B 
GO    TO    301 

18  FJP(L)    =    FJP(L)-F 

19  R    =    R-DD 
1901       DD    =0,0 

DO    20    J=2tN 
DD=DD+FJP(J) 
20  FJP(J)=FJP(J-l)-»-DD 

RETURN 
END 


WHEE0500 
WHEE05  10 
WHEE05  20 
WHEE05  30 
WHEE0540 
WHEEO5  50 
WHEE0560 
WHEE05  70 
WHEt05  80 
WHEE0&90 
WHEE0600 
WHEE0610 
WHEE06  20 
WHEE06  30 
WHEE0640 
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3, 2       Vehicle  Dynamics  Version 

A  description  of  each  computational  subroutine  of  the  HV0SM-VD2  is 
provided  in  this  section.   Included  is  a  brief  description  of  the  purpose  of 
the  subroutine,  a  description  of  the  linkages  to  the  rest  of  the  program  in 
the  forms  of  subroutines  called,  calling  arguments,  common  blocks  appearing, 
variables  within  the  common  blocks  that  are  the  result  of  a  computation,  and, 
the  subroutine  size.   Also  included  is  a  description  of  the  computational 
procedure  employed  either  in  the  form  of  a  verbal  listing  of  the  computational 
steps  or  an  annotated  flowchart  illustrating  the  logical  sequence  of 
computations.   Since  this  part  of  the  subroutine  description  is  intended  to 
illustrate  the  procedure,  it  does  not  always  illustrate  each  individual  line 
of  coding.   When  a  detailed  investigation  of  the  coding  is  required,  the 
computational  procedure  should  be  used  in  conjunction  with  a  subroutine 
listing. 

An  overall  program  block  diagram  is  shown  in  Figure  3.2-1,  a  matrix 
of  common  blocks  appearing  in  each  subroutine  in  Figure  3.2-2,  and  a  matrix  of 
subroutine  calls  in  Figure  3.2-3. 
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COMMON  BLOCK 
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INPUT 
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3.2.1     HV0SM-VD2  Subroutine  Documentation 
1.        MAIN  ROUTINE 

a.  Purpose: 

1.  Clear  selected  COMMON  blocks 

2.  Obtain  input  and  print  input 

3.  Program  initialization 

4.  Control  computation  o£  constants 

5.  Control  the  integration  loop 

6.  Control  abnormal  program  stops 

7.  Control  indexing  of  coordinate  system 

8.  Control  integration  step  size  for  curb 

9.  Control  output 

b.  Common  Blocks  Required: 

HEAD,  INPT,  INPTl,  INTO,  DIMV,  COMP,  COMPN,  EINDEX, 
ADTNL,  INPT3,  APTBL,  DRIVTT,  DRIVI,  DRIVE,  C0MP4, 
C0MP5,  INPT4,  INPT5,  INTR,  TIRIN,  INSUS,  SUSCMP, 
NEWCRB,  RUFNES 

c.  Subroutines  Required: 

CLEAR,  DVDCHK,  INPUT,  DATE,  IDOUT,  CNSTNT,  PLOTTP, 
PINTl,  OUTPUT,  WHEEL,  RUFRED,  INITEQ,  DRVCNS 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 

DT,  FJP,  NEQ,  ZGP,  DADE,  IHIT,  IRPS,  LCBl ,  LCB2, 
PHIN,  PSIN,  ISTEP,  ISTOP,  PHIBl,  PHIB2,  PHITL, 
PHITP,  PSITL,  PSITP,  TPATH,  XINDL,  XINDN,  DELPTH, 
ICBHIT,  IDRIVE,  ITCHNG,  ITESTT,  JCBHIT,  PQRMIN, 
TCTEST,  THETTL,  THETTP 

f.  Size: 


D92)^^  =  3474)^^  bytes 
Computational  Procedure; 
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2.        SUBROUTINE  ADJTQB 

a.  Purpose: 

1.   To  adjust  braking  torques  at  low  values  of  wheel  rotational 
velocity  to  prevent  sign  reversal 

b.  Common  Blocks  Required: 
DIMV,  INTR,  INPT5,  C0MP5 

c.  Subroutines  Required: 
None 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 
TQB 

f.  Size: 

45E)^^  =  1118)^Q  bytes 

g.  Computational  Procedure: 
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SUBROUTINE  BLKOl 

a.  Purpose: 

1.   Assign  input  values  of  simulation  control  data 

b.  Common  Blocks  Required: 

HEAD,  INPT,  INPTl,  INPT4,  INSUS,  NEWCRB,  DRIVTT 

c.  Subroutines  Required: 
None 

d.  Arguments: 

NBLK  -  Input  data  block  number 

NBCRD  -  Card  number  within  the  block 

NSEQ  -  Table  sequence  number 

NCARD  -  Card  number 

DUM   -  Array  containing  input  values  read  in 
Subroutine  INPUT  to  be  assigned  to  the 
appropriate  variable  names  within  this 
subroutine 

NERR  -  Error  indicator 

e.  Common  Variables  Calculated; 

EM,  TO,  Tl,  AAA,  BET,  HED,  EBAR,  HMAX,  HMIN,  IBUG, 
ISUS,  MODE,  NERR,  DELTC,  NPAGE,  DTCOMP.  DTPRNT, 
IDRVER,  INDCRB,  NCRBSL,  PQRMIN 

£.    4DA),,  =  1242),^  bytes 
Id        iU 
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SUBROUTINE  BLK02 

a.  Purpose: 

1.   Assign  input  values  of  simulation  vehicle  data 

b.  Common  Blocks  Required: 

HEAD,  INPT,  INPTl,  INPT3,  APTABL,  INSUS,  INPT4,  INPT5 

c.  Subroutines  Required: 
TREAD 

d.  Arguments: 

NBLK  -  Input  data  block  number 

NBCRD  -  Card  number  within  the  block 

NSEQ  -  Table  sequence  number 

NCARD  -  Card  number 

DUM   -  Array  containing  input  values  read  in 
Subroutine  INPUT  to  be  assigned  to  the 
appropriate  variable  names  within  this 
subroutine 

NERR  -  Error  indicator 

e.  Common  Variables  Calculated: 

A,  B,  G,  CF,  CR,  GN,  RF,  RR,  TF,  TR,  TS,  XI,  X2 , 
Yl,  Y2,  ZF,  ZR,  Zl,  Z2,  AKF,  AKR,  AKl,  AK2 ,  APF, 
APR,  CFP,  CRP,  RHO,  TCT,  TLF,  TSF,  XIF,  XIR,  XIX, 
XIY,  XIZ,  XMS,  XPS,  AKDS,  AKFC,  AKFE,  AKPS,  AKRC, 
AKRE,  AKRS,  BRPM,  BTLF,  CONE,  CPSP,  CTWO,  DDEL, 
DELB,  DELE,  DRPM,  DTHF,  DTHR,  DTLF,  EPSF,  EPSR, 
ERPM,  ETLF,  NAPF,  NAPR,  NDEL,  NRPM,  NTLF,  PHIC, 
PONE,  PTWO,  RHOF,  TWOT,  VHED,  XIPS,  XIXZ,  XMUF, 
XMUR,  AKDSl,  AKDS2,  AKDS3,  AKFCP,  AKFEP,  AKRCP, 
AKREP,  ARBRF,  ARBRR,  DAPFB,  DAPFE,  DAPRB,  DAPRE, 
DDAPF,  DDAPR,  EPSPS,  FIDJF,  FIDJR,  FIWJF,  FIWJR, 
lAPFR,  IBTYP,  NDTHF,  NDTHR,  NPAGE,  PZERO,  XLAMF, 
XLAMR,  ZETAB,  CTHREE,  OMEGFC,  OMEGFE,  OMEGRC,  OMEGRE 

f.  Size: 

B38),^  =  2872),^  bytes 
lo        iU 
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SUBROUTINE  BLK05 

a.  Purpose: 

1.  Assign  input  values  of  simulation  tire  data 

b.  Common  Blocks  Required: 
HEAD,  INPTl,  TIRIN,  INPT4 

c.  Subroutines  Required: 
T2READ 

d.  Arguments: 

NBLK  -  Input  data  block  number 

NBCRD  -  Card  number  within  the  block 

NSEQ  -  Table  sequence  number 

NCARD  -  Card  number 

DUM   -  Array  containing  input  values  read  in 
Subroutine  INPUT  to  be  assigned  to  the 
appropriate  variable  names  within  this 
subroutine 

NERR  -  Error  indicator 

e.  Common  Variables  Calculated: 

AO,  Al,  A2,  A3,  A4,  CT,  RW,  AKT,  AMU,  ITIR,  RRMC, 
SIGT,  THED,  XMUM,  DRWHJ,  OMEGT,  RWHJE,  XLAMT, 
NXFRCP,  NXUGMU,  XMUMAT,  XMXPMT,  XMXSMT,  XXFRPD, 
XXUGMU 

f.  Size: 

A16),,  =  2582),^  bytes 
lb         i(J 
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6.        SUBROUTINE  BLK04 

a.  Purpose: 

1.  Assign  input  values  of  vehicle  control  data 

b.  Common  Blocks  Required: 

HEAD,  INPT,  INPT5,  DRIVI,  DRIVE 

c.  Subroutines  Required: 
TREAD 

d.  Arguments: 

NBLK  -  Input  data  block  number 

NBCRD  -  Card  number  within  the  block 

NSEQ  -  Table  sequence  number 

NCARD  -  Card  number 

DUM   -  Array  containing  input  values  read  in 
Subroutine  INPUT  to  be  assigned  to  the 
appropriate  variable  names  within  this 
subroutine 

NERR  -  Error  indicator 

e.  Common  Variables  Calculated: 

S,  DS,  EN,  TB,  TE,  TL,  BTT,  DTT,  ETT,  TIL,  TPC,  TTR, 
TTS,  BFPl,  BFP2,  CHED,  EMDT,  FKDO,  NTTS,  NTTl ,  NTT2, 
NTT3,  TAUF,  DESSI,  DISTI,  FKSIO,  FKS20,  GEARl ,  GEAR2, 
GEAR3,  GEAR4,  NPAGE,  NTBLl,  NTRAN,  TINCR,  VGR12, 
VGR21,  VGR23,  VGR32,  VGR34,  VGR43,  APDMAX,  FKSKDO, 
TESTBO,  TSTRIO,  TSTR20,  TSTSIO,  TSTS20,  XIMPOR,  YTRANS 

£.    Size: 

788),^  =  1928),^  bytes 
lb         iU 
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7.        SUBROUTINE  BLK05 

a.  Purpose: 

1.  Assign  input  values  of  terrain  and  curb  data 

b.  Common  Blocks  Required: 
HEAD,  INPT,  INPTl,  NEWCRB 

c.  Subroutines  Required: 
TEREAD 

d.  Arguments: 

NBLK  -  Input  data  block  number 

NBCRD  -  Card  number  within  the  block 

NSEQ  -  Table  sequence  number 

NCARD  -  Card  number 

DUM   -  Array  containing  input  values  read  in 
Subroutine  INPUT  to  be  assigned  to  the 
appropriate  variable  names  within  this 
subroutine 

NERR  -  Error  indicator 

e.  Common  Variables  Calculated: 

NX,  NY,  XB,  XE,  YB,  YE,  NBX,  NBY,  NZ5,  AMUG,  DELG, 
GHED,  IRUF,  NEND,  YClP,  YC2P,  YC3P,  YC4P,  YC5P,  YC6P, 
ZC2P,  ZC3P,  ZC4P,  ZC5P,  ZC6P,  DGMAX,  NPAGE,  NZTAB, 
PHICl,  PHIC2,  PHIC3,  PHIC4,  PHIC5,  PHIC6,  XINCR, 
YINCR 

f.  Size: 

65A),,  =  1626),-  bytes 

ID  iU 
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8.        SUBROUTINE  BLK06 

a.  Purpose: 

1.  Assign  input  values  of  simulation  initial  conditions 

b.  Common  Blocks  Required: 

HEAD,  INPT,  INPTl,  INSUS,  INPT5 

c.  Subroutines  Required: 
None 

d.  Arguments: 

NBLK  -  Input  data  block  number 

NBCRD  -  Card  number  within  the  block 

NSEQ  -  Table  sequence  number 

NCARD  -  Card  number 

DUM   -  Array  containing  input  values  read  in 
Subroutine  INPUT  to  be  assigned  to  the 
appropriate  variable  names  within  this 
subroutine 

NERR  -  Error  indicator 

e.  Common  Variables  Calculated: 

PO,  QO,  RO,  UO,  VO,  WO,  PHIO,  PSIO,  SHED,  TAUA,  TAUO, 
XCOP,  YCOP,  ZCOP,  DELIO,  DEL20,  DEL30,  DEL40,  PHIFO, 
PHIRO,  DELIOD,  DEL20D,  DEL30D,  DEL40D,  PHIFOD,  PHIROD, 
PSIFDO,  PSIFIO,  THETAO 

£.    Size: 

368)^^  =  872)^^  bytes 
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9.        SUBROUTINE  CLEAR (A, B) 

a.  Purpose: 

1.   To  set  a  block  of  storage  to  zero 

b.  Conunon  Blocks  Required: 
None 

c.  Subroutines  Required: 
None 

d.  Arguments: 

A  -  beginning  address  to  be  cleared 

B  -  end  of  the  full -word  address  to  be  cleared 


Common 

Variables 

;  Calcu 

[lated 

None 

Size: 

'''he 

=   386)^^ 

bytes 
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10.       SUBROUTINE  CNSTNT 

a.  Purpose: 

1.  Evaluate  program  constants 

2.  Initialize  dependent  variables  and  derivatives  to  input 
initial  conditions 

b.  Common  Blocks  Required: 

HEAD,  INPT,  INPTl,  INTG,  COMP,  COMPN,  EINDEX,  TIRIN, 
C0MP4,  C0MP5,  INPT4,  INPT5,  INTR,  INSUS,  SUSCMP,  NEWCRB 

c.  Subroutines  Required: 
None 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 

P,  Q,  R,  U,  V,  W,  TT,  A12,  A23,  RAD,  RTF,  RTR,  TAU, 
TIZ,  TM4,  XCP,  YCP,  ZCP,  ZFO,  ZPR,  ZRO,  AMUF,  BMUR, 
DELI,  DEL2,  DEL3,  DEL4,  GAMl ,  PHIF,  PHIN,  PHIR,  PI02, 
PI04,  PSIN,  RFTF,  RH02,  RRTR,  RRTS,  TR02 ,  TS02,  XI ZR, 
YCLP,  YC3P,  YC4P,  YC5P,  YC6P,  ZCLP,  ZC3P,  ZC4P,  ZC5P, 
ZC6P,  ARBRI,  DELID,  DEL2D,  DEL3D,  DEL4D,  JDEND,  NPAGE, 
PHIFD,  PHIRD,  PHITL,  PHITP,  PSIFI,  PSITL,  PSITP, 
RHMR2,  RH0F2,  RPSFA,  RPSFB,  RPSFC,  RPSFD,  RPSFE, 
THETN,  TLAMB,  TRPME,  TSF02,  TWOPI,  XINDN,  A02APB, 
ARFACl,  ARFAC2,  ARFAC3,  AXMF02,  B02APB,  BROMUR, 
BXMR02,  0MT2A2,  0MT2M1 ,  PHICLR,  PHICIR,  PHIC2R,  PHIC3R, 
PHIC4R,  PHIC5R,  PHIC6R,  PI015R,  RF2MFI,  RHFMUF, 
RHF2MF,  RHMR2I,  RHOMUR,  TANPCl ,  TANPC2,  TANPC3,  TANPC4, 
TANPC5,  TANPC6,  TBRAKA,  TBRAKB,  TBRAKD,  THETTL,  THETTP, 
TWOPIR,  XMTF04,  XMTR04,  XMUF02,  XMUR02 

f.  Size: 

C36),.  =  3126), „  bytes 
16        10 

g.  Computational  Procedure: 

1 .  Compute  program  constants 

2.  Initialize  dependent  variables  converting  degrees 
to  radians 

3.  Initialize  XINDN  =  10,  if  THETN  or  PHIN  are  not  zero 
for  use  in  MAIN  and  TMCNST  to  control  coordinate  system 
indexing 
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SUBROUTINE  CRBIMP(I) 

a.  Purpose: 

1.  Determine  the  radial  tire  force  and  equivalent  ground 
contact  point  when  a  tire  is  in  contact  with  a  curb 

b.  Common  Blocks  Required: 

INPTl,  DIMV,  COMP,  COMPN,  INTG,  TIRIN,  NEWCRB 

c.  Subroutines  Required: 
INTRPL 

d.  Arguments: 

The  argument  I  indicates  the  wheel  number  for  which 
calculations  are  made 

e.  Common  Variables  Calculated: 

FR,  HI,  RW,  CAR,  CBR,  CGR,  CPG,  CTG,  SPG,  STG,  BMTX, 
PHGI,  SFRX,  SPRY,  SFRZ,  THGI,  XGPP,  YGPP,  ZGPP,  AJMTX 

f.  Size: 

F32),  ,  =  3890),^  bytes 
io        lU 

g.  Computational  Procedure: 
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CALCULATE 
SNPSl.CSPSI 
SNPH(.CSI>HI 


SFRXIII-0 
SFRYIII-0 
SFRZIII-0 


INITIALIZE  RADIAL  FORCE  COMPONENTS 


X*  26*  RAD 


DO  11  J-1.  53 


THTJ-4'XJ 


I  CALCULATE  AJMTX   I 


ZL 


D07  L-  IJ 


I 


SMTXIK.LI'O 


I 


-H^006M-1 


■  I        CALCULATE  TRANSFORMATION 

BMTX(K,LI  -  BMTXIK.LI  *  AMTX(K>I|-AJMTX(M.L1  MATRIX  FROM  RADIAL  SPRING  J 

T '       TO  2>ACE  AXES 

J  t 

^  CONTINUE    I 


-^continue  i 
-^  continue! 


CALCULATE  LENGTH  OF  SPRING  J  ASSUMING 
HJ  •-ZP(II/BMTXI3  3I       1        THAT  THE  END  HAS  NOT  REACHED  THE  FIRST 
CURB  SLOPE 


TEST  FOR  LENGTH  LIMITS 


CALCULATE  LATERAL  POSITION  OF 
END  OF  SPRING  T 


TYGP£  YClP 


YClP  <  TYGP  5-  YCZP^       m         PHGMII  •  PHICIR 


YC2P  <  TVGP  <.\C3P> H     PHGIII)  -  PHICZR 


YC3P  <  TYGP  <  YC4P>      W     PHGIII)  -  PHIC3II 


1-* 


YC4P<    TYOP  <  YCSP^       H     PHGIII)  -  PH1C4R 


y-* 


NCRBSL  -  5 


YCSP<    TYGpS  YCSP>— H      ''"°>'>'  -PHKSH 


PHGIIII  -PHICLR 


TEST  IS  TRUE  IF  SPRING  LENGTH  AND  POSITION 
COMPATIBLE.  IE.  SPRING  INTERSECTS  THE  GRO^ 
BEFORE  FIRST  CURB  SLOPE 


IZPtll  '  IYC1P  YPIIl-T ANPC1I 
'bMT  xl2.3r'TANCP1-BMTXI3.3l 


TEST  FOR  LENGTH  LIMITS 


TCI-CARII)*CBVWII)-CBHII|-CAYWIII 
TAI=CBR(l|-CGYY»in-CGR(l)'CB¥Y»(l) 
TBI=CGR(n"CAYWII|.CAR{ll'CGYWIII 


CALCULATE 
DN1.DN2.0N3 
PHGIIII. THGIIII 
SPGID.CPGUI 
STGIII.CTGIIl 


CALCULATE 

XGPPIIl.YGPPIII 

ZGPPIII 


CALCULATE  THE  EQUIVALENT 
GROUND  CONTACT  POINT 


CALCULATE  THE  SLOPES  OF  THE 
EQUIVALENT  GROUND  PLANE 


(  RETURN  J 
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12.       SUBROUTINE  CTQB 

a.  Purpose: 

1.   To  calculate  braking  torques  from  hydraulic  pressure, 
brake  type  and  fade  coefficient 

b.  Common  Blocks  Required: 
INPT5,  C0MP5 

c.  Subroutines  Required: 
Function  PARI 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 
NBTYP,  PP,  TQB 

f.  Size: 

S2C)^^  =  1324) ^Q  bytes 

g.  Computational  Procedure: 
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12.       SUBROUTINE  CTQB 

a.  Purpose: 

1.   To  calculate  braking  torques  from  hydraulic  pressure, 
brake  type  and  fade  coefficient 

b.  Common  Blocks  Required: 
INPT5,  C0MP5 

c.  Subroutines  Required: 
Function  PARI 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 
NBTYP,  PP,  TQB 

f.  Size: 

52C)^^  =  ^^^"^^10  ^^^^^ 

g.  Computational  Procedure: 
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13.       SUBROUTINE  CTQD 

a.  Purpose: 

1.   To  compute  the  driveline  torque  at  the  driving  end  of  the 
vehicle  from  throttle  setting,  transmission  ratio  and 
engine  speed 

b.  Common  Blocks  Required: 

INTG,  INTR,  INPT4,  INPT5,  C0MP5,  DRIVTT,  DRIVI,  DRIVE 

c.  Subroutines  Required: 
Function  PARI 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 
PC,  TQD,  TQE,  RPME,  IGEAR 

f.  Size: 

6DE)^^  =  1758)^^  bytes 

g.  Computational  Procedure: 
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i 

sip  5: 


55S 
«3S 


i  s?  I 

I  it  g 

I  si:  ~  ^ 

-  I? 


/^ 
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14.       SUBROUTINE  DATE 

a.  Purpose: 

1.   Return  the  calendar  date  in  8  byte  form,  e.g., 
23MAR'68 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 
None 

d.  Arguments: 

DADE  -  Array  into  which  the  date  is  loaded 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

D6)^^  =  214) ^Q  bytes 

g.  Procedure: 

This  subroutine  is  written  in  IBM  S/360  Assembler 
Language 
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15.       SUBROUTINE  DAUX 

a.  Purpose: 

1.   Evaluate  the  derivatives  of  the  dependent  variables  for 
subsequent  integration  in  PINTl 

b.  Common  Blocks  Required: 

INPT,  INPTl,  INTG,  DIMV,  COMP,  COMPN,  ADTNL,  C0MP4, 
INPT4,  INTR,  INSUS,  SUSCMP 

c.  Subroutines  Required: 

VPOS,  VGORNT,  MATRIX,  SIMSOL,  CTQB,  SUSFRC,  CTQD, 
TMCNST,  TIRFR,  UMOMNT,  MTRXIR,  MTRXSF 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 

DP,  DQ,  DR,  DU,  DV,  DW,  DXCP,  DYCP,  DZCP,  GAM2,  GAM3, 
GAM4,  GAMS,  GAM6,  GAM7,  GAMS,  GAM9,  XIXP,  XI YP,  XI ZP, 
DDELl,  DDEL2,  DDEL3,  DDEL4,  DPHIF,  DPHIR,  TIPSI,  T2PSI, 
XIXZP,  XIYZP,  DDELID,  DDEL2D,  DDEL3D,  DDEL4D,  DDPSFI, 
DPHIFD,  DPHIRD,  DPHITP,  DPSIFI,  DPSITP,  DTHTTP 

f.  Size: 

B52)  .  =  2898)   bytes 

g.  Computational  Procedure: 

1.  Test  for  abnormal  program  stop  (ISTOPj^O)  and  return  if 
indicated. 

2.  Calculate  time  dependent  variables  by  calling  subroutine 
TMCNST. 

3.  Calculate  time  dependent  inertial  terms:  XIXP,  XIYP, 
XIZP,  XIXZP,  XIYZP,  GAM2,  GAM3,  GAM4,  GAMS,  GAM6,  GAM7, 
GAM8,  GAM9.   Note  that  these  variables  differ  with  the 
suspension  option  in  effect,  thus  branching  to  the 
appropriate  set  of  calculation  occurs  based  on  ISUS. 

4.  Call  subroutines  VPOS  and  VGORNT  to  determine  the  position 
and  orientation  of  the  vehicle. 

5.  Calculate  suspension  displacements  and  velocities  depending 
on  suspension  option. 

6.  Call  subroutines  SUSFRC  to  calculate  suspension  forces, 
and  UMOMNT  to  calculate  moments  acting  on  the  sprung 
mass  and  solid  axles  (if  being  used). 

7.  Depending  on  the  suspension  option  in  effect,  call  either 
subroutine  MATRIX,  MTRXIR  or  MTRXSF  to  evaluate  the 
inertial  matrix  and  forcing  function  stored  in  the  array 
DMATX. 
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8.  Call  subroutine  SIMSOL  to  solve  the  10x10  set  of  simultaneous 
equations  of  motion  for  the  10  derivatives  of  the  dependent 
variables. 

9.  Set  the  solution  vector  from  SIMSOL,  DMATX(I,11),  to  the 
appropriate  variable  names  and  set  the  remaining  10  derivatives 
depending  on  suspension  option. 

10.    Compute  the  derivatives  of  the  steering  degree-of- freedom  if 
in  effect  as  indicated  by  either  1NDCRB<0  or  IHIT=1  and 
1NDCRB>0. 
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16.       SUBROUTINE  DAUXR(NTRA) 

a.  Purpose: 

1.  Calculate  tire  side  and  circumferential  forces 

2.  Calculate  time  derivatives  of  wheel  spin  velocities 

b.  Common  Blocks  Required: 

DIMV,  COMPN,  INPT4,  C0MP4 ,  INPT5,  C0MP5,  TIRIN,  INTR 

c.  Subroutines  Required: 
INTPR,  ADJTQB 

d.  Arguments: 

NTRA  =  1  for  initialization  of  wheel  spin  derivatives 
2  for  integration  of  wheel  spin  derivatives 

e.  Common  Variables  Calculated: 

FC,  FS,  RRM,  UGW,  BETP,  EPSS,  FRCP,  RHOS,  SLIP,  VECS, 
BETBR,  DRPSI,  SLIPP,  SLIPT,  XMUXP ,  XMUXS,  EPSSFC, 
FRCPMU,  FRTEST,  HRTERM,  NXFRCP,  NXUGMU,  RHOMAX,  SLIPMT, 
XMUMAT,  XMXPMT,  XMXSMT,  XXFRCP,  XXUGMU 

f.  Size: 

BBA),^  =  3002),^  bytes 
Id         1(J 

g.  Computational  Procedure: 
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17.       SUBROUTINE  DRIVER 

a.  Purpose: 

1.  Compute  the  front  wheel  steer  angle  and  angular 
velocity  based  on  either  the  path  following  or  skid 
control  modes  of  driver  operation 

2.  Obtain  accelerator  pedal  deflection  or  brake  pedal 
force  for  speed  control  mode  of  operation 

b.  Common  Blocks  Required: 

INPTl,  INTG,  DIMV,  COMP,  EINDEX,  DRIVTT,  DRIVI,  DRIVE 

c.  Subroutines  Required: 
DRIVP 

d.  Arguments: 

PHIFF  -  computed  front  wheel  steer  angle 
PSIFFD  -  computed  front  wheel  steer  angular  velocity 
JJ     -  indicator,  setj^O  when  subroutine  DRIVER  has 
calculated  PSIFF  and  PSIFFD 

e.  Common  Variables  Calculated: 

X,  Y,  AE,  DI,  EI,  ET,  ST,  UT,  APD,  AXP,  AYP, 

EWT,  NPD,  PPD,  QAY,  TPD,  XVP,  YVP,  APSI ,  AREI,  FBRK, 

PSIM,  TITE,  XINT,  APSIM,  PSIJD,  STS02,  TERMX,  TERMY, 

ARCAPE,  DPSILF,  DPSISF,  IDRIVE,  IPATHT,  ISKIDP, 

KCOUNT,  PHIFFD,  PSIFFH,  PSISKD,  SLOPER,  TEMPOR, 

THESKD 

f.  Size: 

C06),^  =  3078), „  bytes 
Id        id 

g.  Computational  Procedure: 
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18.       SUBROUTINE  DRIVID 

a.  Purpose: 

1.  Printout  driver  control  inputs 

b.  Common  Blocks  Required: 

INPT,  HEAD,  DRIVI,  DRIVE,  DRIVTT 

c.  Subroutines  Required: 
None 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

BBO),,  =  2992), _  bytes 
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19.       SUBROUTINE  DRIVP 

a.  Purpose: 

1.  Compute  accelerator  pedal  deflection  or  brake  pedal 
force  for  driver  speed  control 

b.  Conmon  Blocks  Required: 
DRIVTT,  DRIVI,  DRIVE 

c.  Subroutines  Required: 
None 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 

APD,  DESS,  DIST,  FBRK,  DELTV,  DISTC,  DELTAX, 
ISMAIN 

f.  Size: 

24E)^^  =  590) ^Q  bytes 

g.  Computational  Procedure: 
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DESS-DESSHITTTl 
DISTC-DISTIIITTTI 
DIST-DISTC 


OELTAX-(DELTVUTI/OIST 


SET  NEW  DESIRED  SPEED  AND  DISTANCE 


CALCULATE  SPEED  DIFFEREN 


ACCELERATION  REQUIRED 
CALCULATE  ACCELERATOR 
PEDAL  DEFLECTION 


^  1 

(  RETURN  ) 
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20.       SUBROUTINE  DRVCNS 

a.  Purpose: 

1.  Calculate  variables  used  in  subroutine  DRIVER 

2.  Initialize  accelerator  pedal  deflection  for  constant 
speed 

b.  Common  Blocks  Required: 

INPT,  INPTl,  COMP,  COMPN,  DIMV,  INPT4,  INPT5,  C0MP5, 
INTR,  DRIVTT,  DRIVI,  DRIVE 

c.  Subroutines  Required: 
None 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 

DI,  APB,  APD,  FKD,  FKP,  TMT,  TQD,  TQE,  DESS,  DIST, 
FBRK,  FKSl,  FKS2,  RPME,  RPSI,  DISTC,  IGEAR,  OMGPS, 
TESTB,  TPATH,  TRKIN,  CONMPH,  DELPTH,  FKSKID,  IDRIVE, 
ISMAIN,  ITCHNG,  ITESTT,  TCTEST,  TESTRl ,  TESTR2 , 
TESTSl,  TESTS2,  THESKD,  TTPSIT,  WEIGHT 

f.  Size: 

642), ,  =  1602),^  bytes 
Id        IV 

g.  Computational  Procedure: 

1.  Compute  constants  required  by  DRIVER. 

2.  Initialize  accelerator  pedal  deflection  as  shown: 


315 


THIS  LOOP  DETERMINES  THE 
TflANSWISSION  GEAR  RATIO 
FOR  INITIAL  STEADY  STATE  OPERATION 


SET  TRANSMISSION  RATIO  TO 
GEAR  RATIO  AND  CALCULATE 
ENGINE  SPEED 


OO30l-2,NRPM 


« £ 


TTTS-(TOE-TOCTI/)TOWOT-TQCTI 


AMJ-TTTS'APOMAX 


(  RETURN  j 


DETERMINE  THROTTLE  SETTING 
NECESSARY  TO  PRODUCE 
REQUIRED  ENGINE  TORQUE 
AT  CALCULATED  ENGINE  SPEED 


CALCULATE  DRIVELtNE  TORQUE 
AND  ENGINE  TORQUE  REQUIRED 
TO  BALANCE  DRAG 
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21.       SUBROUTINE  DVDCHK 

a.  Purpose: 

1.   This  subroutine  processes  interuptions  caused  by 
arithmetic  instructions 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 
None 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 
None 

£.    Size: 

452)   =  1108),^  bytes 
16       10  ^ 

g.    Procedure: 

A  call  to  DVDCHK  processes  the  following  interruptions: 

1.  fixed  point  divide  exception 

2.  exponent  overflow  exception 

3.  exponent  underflow  exception 

4.  floating  point  divide  exception 

This  subroutine  is  written  in  IBM  Assembler  Language. 
The  services  provided  are  also  given  by  extended  FORTRAN 
error  handling. 
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22.  SUBROUTINE   GCP(I) 

a.  Purpose: 

1.  Compute  the  coordinates  of  the  tire  ground  contact 
point  in  space 

2.  Compute  the  rolling  radius  of  the  tire 

3.  Compute  the  direction  and  magnitude  of  the  tire  radial 
force 

b.  Common  Blocks  Required: 
DIMV,  COMP,  TIRIN 

c.  Subroutines  Required: 
SIMSOL 

d.  Arguments: 

The  argument  I  indicates  the  wheel  number  for  which 
calculations  are  made 

e.  Common  Variables  Calculated: 

CAR,  CBR,  CGR,  CMTX,  DELTA,  FR,  HI,  TRH,  TX,  TY,  TZ, 
XGPP,  XLMl,  XLM2,  XLM3,  YGPP,  ZGPP 

f.  Size: 

36C)^^  =  876) ^Q  bytes 

g.  Computational  Procedure: 

1.  Calculate  the  coordinates  of  the  ground  contact  point  by- 
simultaneous  solution  of  the  intersection  of  three  planes 
the  wheel  plane  (normal  direction  CAYW(I),  CBYW(I), 
CGYW(I)  );  the  ground  plane  (normal  direction  CAGZ(I), 
CBGZ(I),  CGGZ(I)  );  and  a  plane  perpendicular  to  both 
passing  through  the  wheel  center  (normal  direction 
D1(I),  D2(I),  D3(I}  ).   The  simultaneous  solution  is 
performed  by  SIMSOL  with  the  CMTX  array  containing 

the  above  direction  cosines  and  the  target  array 
(XLMl(I),  XLM2(I),  XLM3(I)  )  contained  in  the  fourth 
column  of  CMTX.   The  solution  is  returned  in  the  fourth 
column  of  CMTX  and  set  to  the  coordinates  of  the  ground 
contact  point  (XGPP(I),  YGPP(I),  ZGPP(I)  ). 

2.  Calculate  the  distance  between  the  wheel  center  and 
ground  contact  point,  DELTA ( I) . 

3.  Calculate  the  direction  cosines  of  the  line  of  action  of 
the  tire  radial  force  with  respect  to  the  space  axes 
(CAR(I),  CBR(I),  CGR(I)  ). 

4.  Determine  the  rolling  radius,  HI (I). 

5.  Calculate  the  radial  tire  force,  FR(I),  as  shown: 
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FR(l)=0.0 


TRH=RW(I)-HI(I) 


FR(I)=AKT(I)*(XLAMT(I)*(TRH-SIGT(I))+SIGT<I)) 
(         RETURN         ) 


INITIALIZE  RADIAL  FORCE  TO  ZERO 


TEST  IS  TRUE  IF  TIRE  IS  NOT  DEFLECTED 
FR(I)  IS  ZERO 


CALCULATE  TIRE  DEFLECTION 


TEST  IS  TRUE  IF  DEFLECTION  IS 
NON-LINEAR  PART  OF  TIRE 


FOR  LINEAR  PORTION  OF  TIRE 
CALCULATE  FORCE 


CALCULATE  FORCE  FOR  NONLINEAR 
PART  OF  TIRE 
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23.       SUBROUTINE  I POUT 

a.  Purpose: 

1.   Print  input  values  with  units  and  headings 

b.  Common  Blocks  Required: 

HEAD,  INPT,  INPTl,  COMP,  APTABL,  INPT3,  INPT4,  TIRIN, 
DRIVTT,  NEWCRB 

c.  Subroutines  Required: 
DRIVID,  IDOUTA 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

4548),^  =  17736),^  bytes 
Id         lU 
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24.  SUBROUTINE   IDOUTA 

a.  Purpose: 

1.   Print  input  table  values 

b.  Common  Blocks  Required: 
HEAD,  INPT4,  INPT5 

c.  Subroutines  Required: 
None 

d.  Arguments: 

HDD  -  array  containing  run  title 
DATE  -  array  containing  current  date 

e.  Variables  Calculated: 
None 

f.  Size: 

1176),^  =  4470),^  bytes 
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25.       SUBROUTINE  INITEQ 

a.  Purpose: 

1.   To  perform  calculations  to  situate  the  vehicle  in  initial 
vertical  equilibrium  on  flat,  level  terrain 

b.  Common  Blocks  Required: 

INPT,  COMP,  DIMV,  COMPN,  INSUS,  TIRIN 

c.  Subroutines  Required: 
None 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 
FR,  HI,  ZF,  ZR 

f.  Size: 

324)^^  =  ^04)^^   bytes 

g.  Computational  Procedure: 

If  ZF  and  ZR  are  input  as  zero,  this  subroutine 
calculates  these  variables  based  on  the  requirement 
for  initial  vertical  equilibrium  of  the  vehicle.   Also 
calculated  are  tire  radial  forces  and  rolling  radii. 
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26.       SUBROUTINE  INPUT 

a.  Purpose: 

1 .  Obtain  card  input 

2.  Print  card  images 

b.  Conunon  Blocks  Required: 
None 

c.  Subroutines  Required: 

BLKOl,  BLK02,  BLK03,  BLK04,  BLK05,  BLK06 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

D5E)    =  3422)   bytes 

g.  Computational  Procedure; 
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27.  SUBROUTINE    INTPR(F,XMA,    ALP,    MM,    NA,    XM,    AX,    ANS,    ERR,    NDl) 

a.  Purpose: 

1.   Interpolate  a  two  dimensional  table 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 
None 

d.  Arguments: 

F   -  two  dimensional  array  containing  values  to  be  interpolated 
XMA  -  one  dimensional  array  containing  values  corresponding 

to  the  first  dimension  of  F 
ALP  -  one  dimensional  array  containing  values  corresponding 

to  the  second  dimension  of  F 
NM  -  size  of  the  XMA  array 
NA  -  size  of  the  ALP  array 
XM  -  target  value  along  the  XMA  dimension 
AX  -  target  value  along  the  ALP  dimension 
ANS  -  interpolated  value  of  the  F  array  at  CXM,AX) 
ERR  -  error  flag 
NDl  -  size  of  the  first  dimension  of  the  F  array 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

428)^^  =  1064)^Q  bytes 

g.  Computational  Procedure: 

The  answer  is  obtained  by  linear  interpolation  first  along  the 
XMA  dimension,  then  along  the  ALP  dimension. 
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28.       SUBROUTINE  INTRPL 

a.  Purpose: 

1.   To  obtain  a  quadratic  interpolation  of  a  one-dimensional 
table 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 
None 

d.  Arguments: 

TABLE  -  one-dimensional  array  of  data 

XMIN  -  minimum  abscissa  value 

XMAX  -  maximum  abscissa  value 

DX    -  abscissa  increment 

X     -  abscissa  value  at  which  ordinate  is  desired 

Y     -  ordinate  at  X 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

3C2),,  =  962),-  bytes 

g.  Procedure: 

1.  Quadratic  interpolation  of  the  values  of  TABLE  at  X 

2,  ENTRY  INTRPC  also  includes  the  additional  argument 
SLOPE  which  is  calculated  as  d (TABLE)   at  X 

dx 
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29.       SUBROUTINE  INTRP5(INDX) 

a.  Purpose: 

1,  Calculate  the  elevation  and  slopes  under  the  wheel 
indicated  by  the  argument  INDX 

2.  Set  the  nominal  friction  coefficients  according  to  the 
table  for  the  wheel  location 

b.  Common  Blocks  Required: 

INPT,  INPTl,  INTG,  DIMV,  COMP,  COMPN,  ADTNL 

c.  Subroutines  Required: 
None 

d.  Arguments: 

INDX  -  wheel  number  for  which  calculations  are  to  be  made 

e.  Common  Variables  Calculated: 

IX,  lY,  PHGl,  THGl,  THGl,  XMUGl,  XXX,  XXI,  XX2,  YYY, 
YYl,  YY2,  ZPGl 

f.  Size: 

129C),,  =  4764), _  bytes 
io        lU 

g.  Computational  Procedure: 
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30.       SUBROUTINE  MATRIX 

a.  Purpose: 

1.  Evaluate  the  elements  of  the  inertial  matrix  for  the  ten 
coupled  degrees  of  freedom  CDMATX(I,J),  I  =  1,10, 

J  =  1,10)  for  the  independent  front/solid  axle  rear 
suspension  option 

2.  Evaluate  the  forcing  column  matrix  for  the  ten  coupled 
degrees  of  freedom  (DMATX(I,11) ,  I  =  1,10)  for  the 
independent  front/solid  rear  axle  option 

b.  Common  Blocks  Required: 
INPT,  INTG,  DIMV,  COMP,  ADTNL 

c.  Subroutines  Required: 
CLEAR 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 
DMATX,  GCTCP,  GCTSP 

f.  Size: 

72C)^^  =  1836) ^Q  bytes 

g.  Computational  Procedure: 

1.  Call  CLEAR  to  zero  the  DMATX,   This  is  necessary  since 
the  subroutine  which  decouples  the  equations  of  motion 
also  destroys  the  DMATX  in  the  process  and  may  leave 
meaningless  values  in  array  elements  which  should  be 
zero. 

2,  Calculate  the  elements  of  DMATX. 
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31,       SUBROUTINE  MTRXIR 

a.  Purpose: 

1.  Evaluate  the  elements  of  the  inertial  matrix  for  the  ten 
coupled  degrees  of  freedom  (DMATX(I,J),  I  =  1,10, 

J  =  1,10)  for  the  independent  rear  suspension  option 

2.  Evaluate  the  forcing  column  matrix  for  the  ten  coupled 
degrees  of  freedom  (DMATX(I, 11) ,  I  =  1,10)  for  the 
independent  rear  suspension  option 

b.  Common  Blocks  Required: 

tNPT,  INTG,  DIMV,  COMP,  ADTHL,  SUSCMP 

c.  Subroutines  Required: 
CLEAR 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 
DMATX,  GCTCP,  GCTSP 

f.  Size: 

4C0)^^  =  1216)^Q  bytes 

g.  Computational  Procedure: 

1.  Call  Clear  to  zero  the  DMATX.   This  is  necessary  since 
the  subroutine  which  decouples  the  equations  of  motion 
also  destroys  the  DMATX  in  the  process  and  may  leave 
meaningless  values  in  array  elements  which  should  be 
zero. 

2.  Calculate  the  elements  of  DMATX, 
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32.       SUBROUTINE  MTRXSF 

a.  Purpose: 

1.  Evaluate  the  elements  of  the  inertial  matrix  for  the  ten 
coupled  degrees  of  freedom  (DMATX(I,J),  I  =  1,10, 

J  =  1,10)  for  the  solid  front  axle  option 

2.  Evaluate  the  forcing  column  matrix  for  the  ten  coupled 
degrees  of  freedom  (DMATX(I,11) ,  I  =  1,10)  for  the  solid 
front  axle  option 

b.  Common  Blocks  Required: 

INPT,  INTG,  DIMV,  COMP,  ADTNL,  SUSCMP,  INSUS 

c.  Subroutines  Required: 
CLEAR 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 
DMATX,  GCTCP,  GCTSP 

f.  Size: 

962)^^  =  2402) ^Q  bytes 

g.  Computational  Procedure: 

1.  Call  CLEAR  to  zero  the  DMATX,   This  is  necessary  since 
the  subroutine  which  decouples  the  equations  of  motion 
also  destroys  the  DMATX  in  the  process  and  may  leave 
meaningless  values  in  array  elements  which  should  be 
zero 

2.  Calculate  the  elements  of  DMATX 
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33.       SUBROUTINE  OUTPUT (IND) 

a.  Purpose: 

1.   Print  output  page  titles  and  output  data 

b.  Common  Blocks  Required: 

HEAD,  INPT,  INTO,  DIMV,  COMP,  COMPN,  ADTNL,  INSUS, 
SUSCMP,  BARSTR 

c.  Subroutines  Required: 
None 

d.  Arguments: 

If  IND  =  0,  an  output  line  counter  is  initialized  to  zero. 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

40E0),^  =  16608),^  bytes 
lo         iU 

g.  Computational  Procedure: 

Each  time  a  call  to  this  subroutine  is  executed,  an  output 
line  of  data  is  written  to  FORTRAN  devices  11  through,  at 
most,  29.   The  number  of  devices  actually  written  to  is 
dependent  on  the  indicators  contained  in  the  NPAGE  array. 
These  indicators  are  set  either  by  the  user  on  input  card 
104  or  by  the  program  depending  on  the  options  in  use. 

On  either  the  first  call  to  the  subroutine  with  IND  j^  0  or 
after  50  lines  of  data  have  been  written,  page  headings 
are  written  for  each  page  of  data. 

An  entry  point,  THPLOT,  is  provided  to  write  static  and 
dynamic  data  to  FORTRAN  device  3  for  the  purpose  of 
subsequent  plotting  of  time  history  data. 
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34.  FUNCTION  PARI(NN,IA,    TSEC,X,Y) 

a.  Purpose: 

1.   Lagrangian  interpolation 

b.  Coiimion  Blocks  Required: 
None 

c.  Subroutines  Required: 
None 

d.  Arguments: 

NN  -  size  of  X  and  Y  arrays 

lA  -  subscript  of  first  tabular  point 

TSEC  -  target  value  of  the  X  dimension 

X  -  array  containing  values  of  the  abscissa 

Y  -  array  containing  values  of  the  ordinate 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

234)^^  =  564) ^Q  bytes 
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35.  SUBROUTINE  PINT  1(IN,  MODE,  N,  X,  H,  Y,  YP.  A) 

a.  Purpose: 

1.  To  integrate  a  system  of  N  ordinary  differential  equations 

of  the  first  order 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 
DAUX 

d.  Arguments: 

IN  is  the  control  word  (=   1  or  2)  for  initialization  or  to 
integrate  one  step-size; 

IN  =   1  -  to  set  up  the  routine  for  integration; 
IN  =  2  -  to  integrate  one  step-size; 

MODE       is  the  option  word  {=  0,    1  or  2)  for  using  one  of  the 
three  modes  of  integration.     When  MODE  equals 

0  -  the  Adams-Moulton  variable  step-size  is  used; 

1  -  the  Runge-Kutta  fixed  step-size  is  used; 

2  -  the  Adams-Moulton  fixed  step-size  is  used; 

N  is  the  number  of  first  order  differential  equations; 

X  is  the  independent  or  source  variable; 

H  is  the  step-size  or  increment  in  the  source  variable; 

Y  is  the  array  of  dependent  or  target  variables  updated 

by  PINTl; 
YP  is  the  array  of  first  derivatives  of  the  target  variables 

Y(N)  connputed  in  the  subroutine  DAUX; 
A  is  an  array  of  6  cells  containing  the  parameters 

(e  ^Jh  ^  DC  ,M,m^^  A^,w^    f!>)       needed  for  the  variable 

mode  only; 
A(l)  (  =  H      )  is  an  upper  bound  on  the  truncation  error  (the 

number  of  significant  digits  which  the  user  desired  to 

preserve  locally)  for  the  variable  Adams-Moulton 

method,    normally  10-8   <   A(1)    <  10"^; 
A(2)  ( ^  /W      )  is  a  positive  number  from  which  the  lower 

bound  on  the  truncation  error  is  computed.     In  particular, 

when  A(2)  is  zero  the  routine  used  the  normal  value  of 

100  and  in  all  other  cases  the  lower  bound  is  computed 

as  the  quotient  of  A(l)  by  A(2); 
A(3)  (       <^     )  is  a  positive  number  used  to  prevent  unnecessary 

reduction  in  the  variable  step-size  when  the  dependent 

variables  are  sufficiently  small.     When  A(3)  is  zero  the 

routine  uses  the  normal  value  of  one; 
A(4)  (  hrvy^^   )  is  a  positive  upper  bound  for  the  magnitude  of 

the  variable  step-size.     If  A(4)  is  zero  the  routine 

assumes  there  is  no  upper  bound; 
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A(5)  (  "^  flf„,yt)  is  positive  lower  bound  for  the  magnitude  of 

the  variable  step-size.     The  routine  assumes  there  is 

no  lower  bound  when  A(5)  is  zero; 
A(6)  (  =  /^     )  is  a  positive  number  between  zero  and  one 

used  to  increase  or  decrease  the  variable  step-size. 

When  A(6)  is  zero  the  routine  assumes  the  value  of 

one-half. 

IN,    N  and  MODE  are  integers  while  X,    H,    Y,    YP  and  A  are  all 
single  precision  floating  point  numbers. 

The  arguments  X,    H,    Y,    YP,    of  the  PINTl  calling  sequence 
must  be  in  a  COMMON  type  statement. 

Before  executing  the  first  PINTl  call,    the  user  must  initialize 
X,    H  and  each  of  the  Y(N)  variables.     The  first  call  must  use 
control  word  (IN  =  I)  to  set  up  the  routine  for  integration. 
The  control  word  (IN  =  2)  may  be  used  any  number  of  times  after 
the  first  to  integrated  one  step-size,   provided  X,    H  and  Y  have 
not  been  redefined  between  integration  steps. 


e,  Common  Variables  Calculated; 

None 
Size: 


f. 


1B2C),,     =    6956),^  bytes 
io  lU 

Computational  Procedure: 

In  this  routine  the  user  is  allowed  an  option  of  using  either  the 
Runge-Kutta  classical  fourth-order  method  as  modified  by 
E.   K.    Blum  or  the  Adams-Moulton  predictor-corrector  method 
using  the  Runge-Kutta  method  for  starting  the  process. 

Let  the  system  of  equations  to  be  solved  be  given  in  the  form 

Let     '2/l>l     be  the  value  of    y^      at     >^       =    Xn-     and    fcvx,  the 
derivative  of     yi     B.t    X        -     %y\.    .     If     "A,      is  the  increment 
(step-size)  of  the  independent  variable      ;k    ,    the  classiccd 
Runge-Kutta  fourth-order  method  uses  the  formulas 
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^a  =    ^  h  ^'^n^  V2A^,    Ij,^  /  7/^  /C,^)  (1.2) 

where       l      =   1,    2,    ...    A/ 

The  E.    K.    Blum  Modification; 

The  following  recursive  form  of  the  E.    K.    Blum's  exact  modification  of  the 
Runge-Kutta  is  used  in  this  routine: 


X^Xc 


oct    X--%at  k/^ 


(2.1) 


(2.2) 


at    1--  Xo^  V^  (2.3) 


(2.4) 


(2.5) 


(we  omit  the  subscript      l       from  each  of  the  vectors     £  ■  ,      (Z, 
for  reasons  of  economy) 


and 


fj 
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The  main  advantage  of  the  modified  Runge-Kutta  formulas  is  that  they  reduce 
considerably  the  rounding  error  arising  from  the  unavoidable  use  of  digital 
numbers  and  pseudo-operations. 

Adams-Moulton  Predictor-Corrector  Method: 


The  routine  uses  the  following  formulas  for  the  system  (1.  1): 

[fj 

y.>./   -'   ^Ifiti  =  }JL,rt  +  kA4[9f,%,  ^  19-f^^rL  -  5fi,n-i    ^fc.n-1  )  (3.2) 

The  starting  values  needed  in  the  predictor  formula  (3.  1)  are  obtained  using 
the  Runge-Kutta-Blum  (RKB)  method.     In  the  evaluation  of      U ^    at 

^  ~  y^fi-ti  the  predictor  and  corector  formulas  are  applied  only  once  so 

that  only  two  derivative  evaluations  (     /^-   ^^,  and      fc  ^^    )  are  needed 

for  each  Adams-Moulton  (variable  or  fixed  step-size)  integration  step. 

The  Variable  Adams-Moulton; 

The  step-size     4.     to  be  used  in  the  variable  mode  is  determined  mainly  by: 

Eri^^  -     /VIA/       "^  ^  '  (3.3) 

/4  Z). 

D,    -        MAX  Tjc^tl     ;     o<  ^i=    1^2^... ,  hi 

i 

where 

Bn.-fi      is  the  local  truncation  error  estimate  in  the  actual  evaluation  of 
"^nti        ;      oc      (>  0)  is  a  constant  used  to  prevent  unnecessary  reductions 

in    /-A./    whenever   ly-^^^^-i  I        is  small  (normally  the  routine  will  set    oc    =  1, 

unless  otherwise  specified  by  the  user). 

Let 

£  be  the  upper  bound  on  the  truncation  error  estimate,    specified  by  the 

user,    that  is  the  number  of  significant  digits  which  the  user  desires 
to  preserve  locally  throughout  the  integration.     Normally     B     should 
be  in  the  range  10-8   ^       ^      -^    lOJ^     and  in  double  precision        £ 
should  be  in  the  range  10"  1^     -      H"  -     /5  ; 

/l/|         (>  0)  be  a  constant,    specified  by  the  user,   from  which  a  lower  bound 
£  -  M'''^         is  obtained  (normally    A4      range  from  50  to  150  and 
in  double  precision  from  1000  to  1500); 
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/5         be  a  constant  between  0  to  1  used  to  increase  or  decrease  the  step- 
size.     The  routine  will  take     p>      =1/2  unless       6     is  otherwise 
specified  by  the  user. 

The  step-size     A,      will  be  then  increased  or  decreased  according  to  the 
following  inequalities: 

If 

(4.  1)  E-ru+'j    ^    B  the  step-size  is  reduced  to    An.      , 

where  0  <     5      <  \;  ^ 

{4.Z)  A/1    £   "^   Bnti  ^  B  the  step-size  remains  unchanged; 

(4.3)  ^^.-r?    ^    M     E  for  3  successive  integration  steps 

the  step-size  is  increased  to    A//5 

Increasing  and  Decreasing  the  Step-Size: 

The  starting  values,    the  first  three  successive  points  after  the  initial  point 
j^o     ,    for  the  Adams-Moulton  formulas  are  always  obtained  using  the  RKB 
method  whenever  the  interval  size  is  changed,   just  as  at  the  beginning  of  an 
integration. 

In  the  variable  mode  if  the  starting  values,    the  first  three  successive  points, 
have  been  obtained  using  the  RKB  method  then  the  next  point  is  computed 
using  the  Adams- Mo uton  predictor-corrector  formulas  (3.  1)  and  (3.2). 
Whenever  the  truncation  error  at  this  point  calls  for  a  decrease  in    ^        the 
routine  returns  to  the  initial  point    /'o       and  computes  new  starting  values 
with  the  decreased  value  of    rt      .     However,    if  the  step-size  is  to  be  decreased 
at  a  point     p,,       ,    where  the  preceeding  point    />{^-i       was  computed  in  the 
variable  mode  and  the  inequality  (4.2)  held  at  /'c-i     »    then  a  new  start  is 
initiated  at     A-/       with  decreased  value  of  /A  / 

K  for  three  successive  variable  integration  steps     /'t-'-?     ,      Pi      and     /i-i-i 
inequality  (4.3)  holds,    then  a  new  start  is  initiated  at     /?^>y       with  the  increased 
value  of     IW     „     After  an  interval  is  increased,    the  routine  prevents  increasing 
again  until  6  more  points  have  been  complete.     However,    the  routine  may 
decrease  the  interval  as  often  as  necessary.     The  truncation  error  test  based 
on  (3.3)  will  guarantee  that  the  local  error_does  not  exceed       £      ,    however 
the  cumulative  error  will  usually  exceed      E       .     Hence      E      should  be  chosen 
sufficiently  small  to  allow  for  an  accumulation  of  truncation  error. 

The  user  must  always  provide  a  starting  value  for       n.     and  he  may,    if 
desired,    specify  a  maximum  value  of    /^/    ,   hmax'       beyond  which  the  routine 
will  not  increase     Ik/      and  a  minimum  value  of  /ft/    ,   ilmm      »    below  which  it 
will  not  decrease  .     K  no  value  is  specified  for     ^^v,^^    and     ^Miy^     the 

routine  will  set  the  values  at  103  and  10"  1^,    respectively. 

Negative  values  of     %    may  be  used  for  backward  integration. 
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Control  and  DAUX; 

There  are  two  entries  to  this  routine.     The  first  (control  word  =   1)  must  be 
used  once  at  the  beginning  to  set  up  the  routine  for  integration  of  a  given 
set  of  N  differential  equations.     The  second  entry  (control  word  =  2)  may  be 
used  any  number  of  times  after  the  first  to  integrate  all      Vt      from      X    to 

Whenever  the  control  word  is   1  the  routine  uses  the  auxiliary  subroutine 
DAUX  to  evaluate  the  derivatives  at  the  initial  point       X    =    Xo       and  returns 
with  all      V^      unchanged.     The  routine  also  checks  and  sets  up  the  six 
parameter  words      £     ,     /V1       ,       oi.     ,    kma-x.     .    ^rfiir^     and    y3      needed  in  the 
variable  mode  of  operation.     Before  executing  the  initialization  entry,    the 
user  must  have  already  set  up  the  appropriate  values  for      x     ,    Pl       and      -u^ 

L,     =   1,    2,    ..  .     A/       „     Ordinarily,    after  an  execution  of  the  second  entry 
all      %        assume  new  values,     X       will  have  been  advanced  to  the  value 

)C  +  k      and      h,      will  be  unchanged,    unless  in  the  variable  mode.     On  exit 
the  values      "%       are  always  these  which  correspond  to  the  point  'X-i-h,    and 

Whenever  an  integration  step  involves  RKB  integration,   four  derivative 
evaluations  are  needed,    mainly 

k(  zn^^/ik;  y.n-  ^//2  I::;\il) 

where  the      ^i;      are  given  by  (1.2)  and  modified  by  (2„  1)-  '2,5).     In  the 
fixed  predictor-corrector  mode,    the  first  three  integration  entries 

involve  RKB  integration  and  subsequent  ones  iTivolve  AM  integration^     Es.ch 
AM  integration  step  requires  two  derivative  evaluations. 

(^''^  r  r         i  ^J     N 


i   (- 


^l,^f,     =     h   ^l^r^^-^,     ljn.i   )  <5.2) 


A  particular  integration  set  up,   in  the  variable  mode,    may  involve  either 
AM  or  RKB  or  both. 

References: 

(1)  SHARE  Write-Up  No.    0602  (D2RWINT) 

(2)  SHARE  Write-Up  No.    0450  (D2RDE2F) 

(3)  Blum,  K.  E.  ,  A  Modification  of  the  Runge-Kutta  Fourth 
Order  Method,  Mathematics  of  Computation,  April  1962, 
pp.    176-187 
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36.       SUBROUTINE  PLOTTP(IPLT) 

a.  Purpose: 

1.   Write  output  to  FORTRAN  device  1  for  post-processing 
graphic  displays 

b.  Common  Blocks  Required: 

INPT,  INTG,  DIMV,  COMP,  COMPN,  TIRIN 

c.  Subroutines  Required: 
None 

d.  Arguments: 

IPLT  controls  the  type  of  record  written;  static,  dynamic  or 
end  of  data,  for  values  of  IPLT  of  1,  2  and  3,  respectively 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

324)   =  804) ^Q  bytes 

g.  Computational  Procedure: 

1.  If  IPLT  =  1  a  static  header  record  is  written  to  device  1 
consisting  of  the  following  variables:   HED,  DADE,  A, 

B,  TS,  ZR,  RHO,  ZF,  RW,  TF,  TR 

2.  If  IPLT  =  2  a  dynamic  record  is  written  consisting  of: 
T,  XCP,  YCP,  ZCP,  PHIT,  THETT,  PSIT,  DELI,  DEL2,  DEL3, 
PHIR,  PSIl,  PHI2,  (XGPPCI),  YGPP(I),  ZGPP(I),  I  =  1,4), 
(ICONTW(I),  I  =  1,4)  • 

Note:   ICONTW  is  an  indicator.   If  1,  wheel  I  is  rolling; 

if  -1,  wheel  I  is  skidding;  if  0,  wheel  I  is  off  the  ground. 

3.  If  IPLT  =  3,  an  end  of  data  record  consisting  of  30 
words  of  -9999.0  is  written. 
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a.  Purpose: 

1,  To  determine  an  equival( 
contact  point  from  the  ( 
when  the  road  roughness 

b.  Common  Blocks  Required: 
INPTl,  DIMV,  COMP,  COMPN,  T: 

c.  Subroutines  Required: 
INTRPL 

d.  Arguments: 

I   =  wheel  number  for  whicl 
ZGM  =  single  dimensioned  an 
roughness  data 

e.  Common  Variables  Calculated 

FR,  HI,  CAR,  CBR,  CGR,  CPG, 
PHGI,  SFRX,  SFRY,  SFRZ,  XGPl 

f.  Size: 
DC4)^^  =  3524) ^Q  bytes 

g.  Computational  Procedure: 
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CALCULATE   EQUIVALENT  RADIAL  FORCE 


y- 


CALCULATE  THE  FIRST  AND  LAS1 
NUMSERS  TO  8E  SCANNED  FOR 
CONTACT  WITH  THE  RADIAL  SPRI^. 


BEGIN  RADIAL 


CALCULATE  EQUIVALENT 

POINT  CONTACT  ROLLING  RADIUS 


CALCULATE  EQUIVALENT  GROUND 
SLOPES  AND  CONTACT  POINT 


CALCULATE  TRANSFORMATION 
MATRIX  FROM  RADIAL  SPRING  i 
TO  SPACE 
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37.  SUBROUTINE   RUFFRC(I,ZGM) 

a.  Purpose: 

1.   To  determine  an  equivalent  radial  tire  force  and  ground 
contact  point  from  the  distributed  tire  spring  model 
when  the  road  roughness  option  is  being  used 

b.  Common  Blocks  Required: 

INPTl,  DIMV,  COMP,  COMPN,  TIRIN,  RUFNES 

c.  Subroutines  Required: 
INTRPL 

d.  Arguments: 

I   =  wheel  number  for  which  calculations  are  made 
ZGM  =  single  dimensioned  array  containing  the  road 
roughness  data 

e.  Common  Variables  Calculated: 

FR,  HI,  CAR,  CBR,  CGR,  CPG,  CTG,  SPG,  STG,  BNTTX, 
PHGI,  SFRX,  SFRY,  SFRZ,  XGPP,  YGPP,  ZGPP,  AJMTX 

f.  Size: 

DC4)j^  =  3524) jQ  bytes 

g.  Computational  Procedure: 
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CALCULATE  EQUIVALENT  RAOIAL  FORCE 


r 


CALCULATE  THE  FIRST  AND  LASi 
NUMBERS  TO  BE  SCAMNED  FOR 
CONTACT  WITH  THE  RAOIAL  SPRiw 


Till  I 


CALCULATE  EQUIVALENT 

PONT  CONTACT  ROLLING  RADIUS 


^ 


BEGIN  RADIAL  tPRmO  I 


) 


CALCULATE  TRANSFORMATION 
MATRIX  FROM  RADIAL  SPRING  I 
TO  SPACE 


r^ 
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38.       SUBROUTINE  RUFRED (NEND , DELG , DGMAX , ZRTAB) 

a.  Purpose: 

1.   Read  road  roughness  data  from  FORTRAN  device  4 

b.  Common  Blocks  Required: 
None 

c.  Subroutine  Required: 
None 

d.  Arguments: 

NEND  =  the  number  of  road  roughness  points  to  be  read 

from  FORTRAN  unit  4 
DELG  =  the  distance  increment  between  points 
DGMAX  =  (NEND- I)  *  DELG 
ZRTAB  =  a  single  dimension  array  into  which  the  road 

roughness  data  is  read 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

2B8)^^  =  696)^Q  bytes 

g.  Computational  Procedure: 

The  road  roughness  data  is  rear  via  an  unformatted  READ 
statement  into  the  ZRTAB  array.   The  maximum  number  of  points 
allowed  is  2200. 
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39,       SUBROUTINE  SIMSOL 

a.  Purpose: 

This  subroutine  solves  a  set  of  real  simultaneous  linear 
algebraic  equations  AX  =  B,  with  input,  output  and  internal 
computation  all  in  single  precision 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 

None 

d.  Arguments: 

A   -  is  a  2-dimensional  (NDlxND2)  matrix  of  coefficients 
N   -  is  the  number  of  equations  and  unknowns 
NDl  -  is  the  first  dimension  of  A  in  the  .calling  program 
(NDl.  GE.  N  and  ND2.  GE.  N+1) 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

5E8)^^  =  1^12)^^   bytes 

g.  Computational  Procedure: 

The  routine  will  find  the  solution  X  of  AX  =  B  where  A  is  a 
N  by  N  matrix  and  B(I)  is  stored  in  A(I,  N+1). 
The  solution  X(I)  is  returned  in  A(I,  N+1). 

Note:   The  Matrix  A  is  destroyed  by  the  subroutine. 

Example:   REAL  A (20, 25) 

CALL  SIMSOL(A, 10,20) 

The  solution  is  obtained  by  elimination  using  the  largest 
pivotal  divisor  of  each  column.   Each  stage  of  elimination 
consists  of  interchanging  rows  when  necessary  to  avoid 
division  by  zero  or  small  numbers, 

The  forward  solution  to  obtain  variable  N  is  done  in  N  stages 
The  back  solution  for  the  other  variables  is  calculated  by 
successive  substitutions.   The  final  solution  values  are 
developed  in  column  N+1  of  matrix  A,  with  variable  1  and  A 
(1,  N+1),  variable  2  in  A  (2,  N+1),...,  and  variable  N  in  A 
(N,  N+1). 
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38.       SUBROUTINE  RUFRED (NEND , DELG , DGMAX , ZRTAB) 

a.  Purpose: 

1.   Read  road  roughness  data  from  FORTRAN  device  4 

b.  Common  Blocks  Required: 
None 

c.  Subroutine  Required: 
None 

d.  Arguments: 

NEND  =  the  number  of  road  roughness  points  to  be  read 

from  FORTRAN  unit  4 
DELG  =  the  distance  increment  between  points 
DGMAX  =  (NEND-1)  *  DELG 
ZRTAB  =  a  single  dimension  array  into  which  the  road 

roughness  data  is  read 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

2B8)^^  =  696) ^Q  bytes 

g.  Computational  Procedure: 

The  road  roughness  data  is  rear  via  an  unformatted  READ 
statement  into  the  ZRTAB  array.   The  maximum  number  of  points 
allowed  is  2200. 
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39.       SUBROUTINE  SIMSOL 

a.  Purpose: 

This  subroutine  solves  a  set  of  real  simultaneous  linear 
algebraic  equations  AX  =  B,  with  input,  output  and  internal 
computation  all  in  single  precision 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 

None 

d.  Arguments: 

A   -  is  a  2-dimensional  (NDlxND2)  matrix  of  coefficients 
N   -  is  the  number  of  equations  and  unknowns 
NDl  -  is  the  first  dimension  of  A  in  the  .calling  program 
(NDl.  GE.  N  and  ND2.  GE.  N+1) 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

5E8)^^  =  ISU)^^   bytes 

g.  Computational  Procedure: 

The  routine  will  find  the  solution  X  of  AX  =  B  where  A  is  a 
N  by  N  matrix  and  B(I)  is  stored  in  A(I,  N+1). 
The  solution  X(I)  is  returned  in  A(I,  N+1). 

Note:   The  Matrix  A  is  destroyed  by  the  subroutine. 

Example:   REAL  A(20,25) 

CALL  S1MS0L(A, 10,20) 

The  solution  is  obtained  by  elimination  using  the  largest 
pivotal  divisor  of  each  column.   Each  stage  of  elimination 
consists  of  interchanging  rows  when  necessary  to  avoid 
division  by  zero  or  small  numbers. 

The  forward  solution  to  obtain  variable  N  is  done  in  N  stages, 
The  back  solution  for  the  other  variables  is  calculated  by 
successive  substitutions.   The  final  solution  values  are 
developed  in  column  N+1  of  matrix  A,  with  variable  1  and  A 
(1,  N+1),  variable  2  in  A  (2,  N+1),...,  and  variable  N  in  A 
(N,  N+1). 
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40.       SUBROUTINE  SUSFRC(DISP,VEL) 

a.  Purpose: 

1.  This  subroutine  calculates 
between  the  sprung  and  unS 
corners 

b.  Common  Blocks  Required: 

INPT,  INPT3,  INTG,  DIMV,  COMP, 
INSUS,  SUSCMP 

c.  Subroutines  Required: 
INTRPL 

d.  Arguments: 

DISP  -  a  four  element  array  cc 
displacements 

VEL  -  a  four  element  array  c 
velocities 

e.  Common  Variables  Calculated: 
SI,  FJF,  FIX,  F2I,  SFZl,  APITC 

f.  Size: 

7BC),,  =  1980),-  bytes 
Id        iU 

g.  Computational  Procedure: 
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40.       SUBROUTINE  SUSFRC(DISP,VEL) 

a.  Purpose: 

1.   This  subroutine  calculates  the  suspension  forces  acting 
between  the  sprung  and  unsprung  masses  at  the  four  vehicle 
comers 

b.  Common  Blocks  Required: 

INPT,  INPT3,  INTO,  DIMV,  COMP,  ADTNL,  APTABL, 
INSUS,  SUSCMP 

c.  Subroutines  Required: 
INTRPL 

d.  Arguments: 

DISP  -  a  four  element  array  containing  the  suspension 

displacements 
VEL  -  a  four  element  array  containing  the  suspension 

velocities 

e.  Common  Variables  Calculated: 
SI,  FJF,  FlI,  F2I.  SFZl,  APITCH 

f.  Size: 

7BC)j^  =  1980)l0  ^y^^^ 

g.  Computational  Procedure: 
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CALCULATE  REAR 
ANTI-f>ITCH  FORCE 


ABAR-'ABAR 


zi4iimsia»*tiai*$JHi  swx  suspension  forces 
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41.       SUBROUTINE  THREAD 

a.  Purpose: 

1.   This  subroutine  reads  terrain  table  input  cards 

b.  Common  Blocks  Required: 
INPT 

c.  Subroutines  Required: 
None 

d.  Arguments: 

I  -  Terrain  table  number 

NNBX  -  Number  of  X'  boundaries 

NNBY  -  Number  of  Y'  boundaries 

NNX  -  Number  of  X'  terrain  entries 

NNY  -  Number  of  Y'  terrain  entries 

NZ5T  -  Indicator  for  variable  increment  table 

NERR  -  Error  indicator 

e.  Common  Variables  Calculated: 

ZGP,  XBDRY,  YBDRY,  PSBDRO,  XXZGP5,  YYZGPS 

f.  Size: 

626)^^  =  1574)^Q  bytes 
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42.       SUBROUTINE  TIRFR 

a.  Purpose: 

1.  Control  integration  step-size  for  wheel  spin  degrees-of- 
freedom 

2.  Integrate  wheel  spin  degrees-of-freedom 

3.  Calculate  brake  temperatures 

4.  Calculate  time  averages  of  tire  forces  over  DT 

b.  Common  Blocks  Required: 

INPT,  INTG,  DIMV,  COMP,  COMPN,  INPT4,  C0MP4,  INTR, 
INPT5,  C0MP5 

c.  Subroutines  Required: 
DAUXR 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 

FC,  FS,  DTR,  FXU,  FYU,  FZU,  TAU,  UGW,  FCAV,  FCXU,  FCYU, 
FCZU,  FRCP,  FRXU,  FRYU,  FRZU,  FSAV,  FSXU,  FSYU,  FSZU, 
IRPS,  lUVB,  lUVS,  RPSI,  SFXU,  SFYU,  SFZU,  TERM,  DTINT, 
ISTEP,  ISTOP,  RPSSM,  SRHOS,  SSLIP,  STEPD,  TERMB,  TERMP, 
ABSUGW,  CPHICI,  DELTAE,  DISTEP,  DTTEST,  FCSLSM,  FCXFAC, 
FCYFAC,  FCZFAC,  FRCPAV,  FRXFAC,  FRYFAC,  FRZFAC,  FSXFAC, 
FSYFAC,  FSZFAC,  IDTCNT,  PSITEM,  RHOSAV,  SFCDTR,  SFRCPR, 
SFSDTR,  SLIPAV,  SLPFAC,  SPHICI 

f.  Size: 

816)    =  2838)    bytes 

g.  Computational  Procedure: 
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(  RETURN  ) 


•     DO  21  1-1.4 


I 
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-~C^  CONTINUE 


SFXU  •  0 
SFVU  •  0. 
SFZU  -  0. 


I 


CALCULATE  CAMBEl 
TO  THE  GROUND  FC^ 


ISTEP  IS  ZEROED  IN 


PERFORM  CALCUL* 
HALF  STEP  AND  SEC 
INTEGRATION  STEP 


STEPO  IS  5  FOR  RUI 


INITIALIZE  TIRE  FO 
AVERAGES  TO  ZERC 


INITIALIZE  TOTALU 


IF  ALL  TIRES  ARE  C 
NO  BRAKING  TORO 


RPSIIII  -  RPSHI}»DRPSIII|-DTR 


INTEGRATE  WHEEL  SPIN  DERIVATIVES 


UG36  »  0  0 

ABSUG  =  ABSIUGIIIl 


UG36-  ABSUG"  36 


CALCULATE  BRAKE  ASSEMBLY  TEMPERATURE 


IDTCNT  =  IDTCNT1 


CALCULATE 
SFCDTRdl.SfSDTRdl 
SFRDTRIII.SSLIPII) 
SRHOSdI.RPSSMIII 


TEST  FOR  ABNORMAL 
PROGRAM  STEP 


CALCULATE  SUMMATIONS  FOR 
AVERAGING  OVER 
INNER  LOOP  TIME. 


FCAVIII.FCIIIRHOSAVIII 

FSAVIII.FSIIl.FRCPAVIII 

FRCPIII.SLIPAVIII  FSXUIII 

FSYUIII.FSZUIII.FHXUdI 

FRYUdl.FBZUIIl.FCXUdI 

FRYUIII.FCZUIII.FXU(I) 

FYUIII.FZUIIIFXU 

SFYU.SFZU 


-^ 


i 


IF  IDTCNT  IS  ZERO  OR  NEGATIVE 
DONE  WITH  INNER  LOOP  INTEGRATION 
FOR  OUTER  INTEGRATION  LOOP  STEP 


CALCULATE  AVERAGES 
OVER  INNER  LOOP. 


(  RETURN  ] 
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ndent  variables  that  are  required  in 
coordinate  system  if  necessary 

EX,  C0MP4,  INPT5,  INSUS, 


ilated: 

,  uq,  ur,  vp,  vr,  wp,  wq,  d21, 
;th,  gsth,  phfp,  phit,  phrp, 
,  tiz2,  wfmf,  zfdl,  zfd2,  zrd3, 
isph,  cosps,  costh.  cphtp,  cpstp, 
)d3p4,  d1md2,  d1pd2,  d3md4, 

>HIR2,  RPF2M,  RPHFD,  RPHRD,  SECTP, 
;PHTP,  SPSTP,  TANTP,  THETT,  XINDL, 
:RD34,  COSPHN,  COSPSN,  COSTHN, 
,  SINPHN,  SINPSN,  SINTHN,  STHETP, 


-e: 

ident  variables 

:e  system  indexing;  if  required  as 
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SUBROUTINE  TMCNST 

a.  Purpose: 

1.  Evaluate  time  dependent  variables  that  are  required  in 
other  subroutines 

2.  Test  for  and  index  coordinate  system  if  necessary 

b.  Common  Blocks  Required: 

INPT,  INTG,  COMP,  EINDEX,  C0MP4, 
SUSCMP,  NEWCRB        i 
I 

c.  Subroutines  Required: 

None 

d.  Arguments: 
None 

e.  Common  Variables  Calculated: 


INPT5,  INSUS, 


VP,  VR,  WP,  WQ,  D21, 
PHFP,  PHIT,  PHRP, 


PQ,  PR,  P2,  QR,  Q2,  R2 .  UQ,  UR, 
D43,  RPR,  TPF,  TPR,  GGTH,  GSTH, 
PSIT,  RFPF,  SFXS,  TG61 ,  TIZ2,  WFMF,  ZFDl ,  ZFD2,  ZRD3, 
ZRD4,  BNMTX,  CNMTX,  COSPH,  COSPS,  COSTH,  CPHTP,  CPSTP, 
DD1M2,  DD1P2,  DD3M4,  DD3P4 ,  D1MD2 ,  D1PD2,  D3MD4, 
D3PD4,  ISTOP,  PHIF2,  PHIR2,  RPF2M,  RPHFD,  RPHRD,  SECTP, 
SINPH,  SINPS,  SINTH,  SPHTP,  SPSTP,  TANTP,  THETT,  XINDL, 
ZFD12,  ZFD3R,  ZRD3R,  ZRD34 ,  COSPHN,  COSPSN,  COSTHN, 
CTHETP,  PHIFD2,  PHIRD2,  SINPHN,  SINPSN,  SINTHN,  STHETP, 
ZFDIRF 

Size: 


096;) 


16 


Computational  Procedure: 

1.  Compute  time  dependent  variables 

2.  Test  for  coordinate  system  indexing;  if  required  as 
shown  below 
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44.       SUBROUTINE  TREAD 

a.  Purpose: 

1.   This  subroutine  reads  a  one-dimensional  card  input 
table 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 
None 

d.  Arguments: 

NCARD  -  Input  card  number 

NCRDS  -  Number  of  cards  to  be  read 

NT    -  Number  of  elements  to  be  read  into  the  table 

NDIM  -  Maximum  table  dimension 

ARRAY  -  Table  array 

NERR  -  Error  indicator 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

258),,  =  600), _  bytes 
lb        lU 

g.  Computational  Procedure: 

1.  Read  table  input  cards  checking  to  insure  that  the 
table  sequence  number  increases  with  each  card. 

2.  Load  the  variables  into  the  table  array. 
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45.       SUBROUTINE  T2READ 

a.  Purpose: 

1.   This  subroutine  reads  a  two-dimensional  input  table 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 
None 

d.  Arguments: 

NCARD  -  Input  card  number 

NDl  -  Row  dimension  of  the  input  table 

NI  -  Number  of  rows  to  be  read 

NJ  -  Number  of  columns  to  be  read 

ARRAY  -  Table  array 

NERR  -  Error  indicator 

e.  Common  Variables  Calculated: 
None 

f.  Size: 

2C4)^^  =  708)^Q  bytes 

g.  Computational  Procedure: 

The  input  table  is  read  rowwise  with  the  second  subscript 
varying  most  rapidly. 
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46.       SUBROUTINE  UMOMNT(IS) 

a.  Purpose: 

1.   This  subroutine  calculates  the  moments  acting  on  the 
sprung  and  unsprung  masses 

b.  Common  Blocks  Required: 

INPT,  DIMV,  COMP,  INSUS,  SUSCMP 

c.  Subroutines  Required: 
None 

d.  Arguments: 

IS  -  suspension  option  indicator 

e.  Common  Variables  Calculated: 

SNPF,  SNPR,  SNPU,  SNTU,  SNPSU,  TERMl ,  TERM2 ,  TERMS 

f.  Size: 

822),^  =  2082),^  bytes 
Id        iU 

g.  Computational  Procedure: 

1.  For  IS=0  (independent  front,  solid  axle  rear  suspension) 
calculate  the  sprung  mass  roll,  pitch  and  yaw  moments 
(SNPU,  SNTU,  SNPSU)  and  the  rear  axle  roll  moment  (SNPR). 

2.  For  IS=1  (independent  front  and  rear  suspension)  calculate 
the  sprung  mass  roll,  pitch  and  yaw  moments  (SNPU,  SNTU, 
SNPSU) . 

3.  For  IS=2  (solid  front  and  rear  axles)  calculate  the  sprung 
mass  roll,  pitch  and  yaw  moments  (SNPU,  SNTU,  SNPSU) 

and  the  front  and  rear  axle  roll  moments  (SNPF,  SNPR). 
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47.       SUBROUTINE  VGORNT 

a.  Purpose: 

1.   Determine  the  orientation  of  the  vehicle  wheels  with 
respect  to  the  ground. 

b.  Common  Blocks  Required: 

INPT,  INPTl,  INTG,  DIMV,  COMP,  COMPN,  ADTNL,  TIRIN, 
INSUS,  SUSCMP,  NEWCRB,  RUFNES 

c.  Subroutines  Required: 
INTRP5,  GCP,  CRBIMP,  RUFFRC 

d.  Arguments: 
None 

e.  Variables  Calculated: 

AS,  AX,  AY,  BS,  BX,  BY,  CS,  CX,  CY,  Dl,  D2,  D3, 
PI,  P3,  P4,  P5,  P6,  P7,  UG,  VG,  VI,  V2,  V3,  V4,  Wl , 
W2,  W3,  W4,  CAC,  CAH,  CAS,  CBC,  CBH,  CBS,  CGC,  CGH, 
CGS,  CTG,  STG,  CAGZ,  CAYW,  CAZW,  CBGZ,  CBYW,  CBZW, 
CGGZ,  CGYW,  CGZW,  CPYG,  CTXG,  HCAH,  HCBH,  HCGH,  LCBl, 
LCB2,  PHGI,  SPYG,  STXG,  THGI,  TMP3,  TMP4,  ZPGI,  DISTX, 
DISTY,  PSIIP,  XMUGI 

f.  Size: 

1002),,  =  4098) _  bytes 
io        lU 

g.  Computational  Procedure: 
For  wheels  1  =  1  to  4 

1.  Calculate  the  direction  cosines  of  the  normal  to  the 
wheel  plane. 

2.  Determine  the  direction  cosines  of  a  normal  to  the  ground 
plane  and  direction  components  of  the  intersection  of  the 
wheel  plane  and  ground  plane  as  follows: 
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LCBIIIl'HW.GTYCIP  yPlll 
LCB2II]"R»V  LE  YPIII  YCLP 


INDCRB  >  0  INDICATES  POSSIBLE  CURB  CONTACT 


LCB1  SET  TO  TRUE  IF  WHEEL  CENTER      IS 
WITHIN  ONE  WHEEL  RADIUS  FROM  1ST  CURB  SLOPE 
LCB2  SET  TO  TRUE  IF  WHEEL  CENTER  IS  GREATER 
THAN  ONE  WHEEL  RADIUS  FROM  END  OF  1ST  CURB 
SLOPE 


TEST  IS  TRUE  IF  WHEEL  tENTER  IS  NOT  ONE 
WHEEL  RADIUS  BEVOND  END  OF  FIRST  CRU8 
SLOPE 


KXPIIl  •  HWIII  -0 
OR 
XPdl  -  RWdl    -DGMAX 


CALL  RUFFRC 


XUUGIII)  '  AMUIII 


CALL INTRP5 


32 


CPGIII  =  COSIPHGIIIII 
SPGIII-SINIPHGIIIII 
CTGIII  COSITHGIIIII 
STG(II  =  SIN(THGHIH 


ZPGIII1  =  2CLP>IVPI11  YCLPITANPCL 
PHGHII    PHICLR 
SPGIII-SINIPHGIIIII 
CGPIII'COSIPHGIlin 


iALiULATE 

CAGZIII.  CBOeill    CGGZIII 
PI.  P7,  P3,  P4,  P5,  P6 
01III.  02III.  D3III 


CALL  GCPIII 


XMUGKI)  ^  AMUC'AMUll) 


__w I , 

CALCULATE. 

CAGZdI.  CBGZIll.  CGGZIII 
PI.  P7.  P3   P4.  P5,  P6 
Dim,  DZIIi,  D3I1I 


CONTINUE  WITH 

SEQUENTIAL 

CALCULATIONS 


DETERMINE  TERRAIN 
ELEVATION  AND  SLOPES 
FROM  INPUT  TERRAIN  TABLE 


WHEEL  IS  ON  LAST  CURB  SLOPE.  BEYOND 
SLOPE  CHANGE     REVERT  TO  SINGLE  POINT 
CONTACT  TIRE  MODEL 


TEST  IS  TRUE  IF  WHEEL  HAS  NOT  REACHED 
CURB     DEFAULT  TO  LEVEL  TERRAIN  IS  STMT  30 
TEST  IS  FALSE  IF  WHEEL  IS  ON  FIRST  CURB 
SLOPE     CALLCR8IMP 


CALCULATE  DIRECTION  COSINES  OF  NORMAL 
TO  GROUND  PLANE  AND  DIRECTION  COMPONENTS 
OF  LINE  OF  INTERSECTION  OF  WHEEL  AND 
GROUND  PLANE 


CRBIMP  DETERMINES 
CHARACTERISTICS  OF 
EQUIVALENT  GROUNDPLANE 


CALCULATE  DIRECTION  COSINES  OF  NORMAL 
TO  EQUIVALENT  GROUND  PLANE  AND 
DIRECTION  COMPONENTS  OF  LINE  OF  INTER 
SECTION  OF  WHEEL  PLANE  AND  EQUIVALENT 
GROUNDPLANE. 


356 


i 


HV0SM-VD2 

3.  Calculate  the  direction  cosines  of  the  line  of  a,ction  of 
the  radial  tire  force  with  respect  to  the  vehicle  axes, 
CAH(I),  CBH(I),  CGH(I), 

4.  Calculate  the  lateral  and  vertical  velocities  of  the  tire 
at  the  ground  contact  point  with  components  resolved  in 
the  vehicle  axes,  (VI, Wl);  (V2,W2);  (V3,W3);  (V4,W4). 

5.  Calculate  the  direction  components  of  the  vehicle  x  axis 
projected  into  the  ground  plane,  AX(1),  BX(I),  CX(I). 

6.  Calculate  the  sine  and  cosine  of  the  angle  between  the 
vehicle  x  axis  and  its  projection  into  the  ground  plane 
STXG(I),  CTXG(I). 

7.  Calculate  the  longitudinal  velocity  of  the  tire  contact 
point  parallel  to  the  ground  plane  UG(I). 

8.  Calculate  the  direction  components  of  the  vehicle  y  axis 
projected  into  the  ground  plane,  AY(I),  BY(I),  CY(I). 

9.  Calculate  the  sine  and  cosine  of  the  angle  between  the 
vehicle  y  axis  and  its  projection  into  the  ground  plane 
SPYG(I),  CPYG(I). 

10.  Calculate  the  lateral  velocity  of  the  tire  contact  point 
parallel  to  the  ground  plane,  VG(I). 

11.  Calculate  the  direction  cosines  of  the  steering  axis  of 
the  wheel. 

12.  Calculate  the  steer  angle  in  the  ground  plane,  PSIIP(I). 

13.  Calculate  the  direction  cosines  of  the  line  of  action  of 
the  circumferential  tire  force  (CAC(I),  CBC(I),  CGC(I)  ) 
and  of  the  tire  side  force  (CAS(I),  CBS(I),  CGS(I)  ). 
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48.        SUBROUTINE  VPOS 

a.  Purpose: 

1.  Compute  positions,  orientations  and  velocities  of  the 
vehicle  wheels 

2.  Calculate  directions  of  the  x  and  y  axis  in  space 

b.  Common  Blocks  Required: 

INPT,  INPTl,  INTG,  DIMV,  COMP,  COMPN,  ADTNL,  INSUS, 
SUSCMP 

c.  Subroutines  Required: 
INTRPL,  DRIVER 

d.  Arguments: 
None 

e.  Variables  Calculated: 

Ul,  U2,  U3,  U4,  CAX,  CAY,  CBX,  CBY,  CGX,  CGY,  XIP,  X2P, 
X3P,  X4P,  YIP,  Y2P,  Y3P,  Y4P,  ZIP,  Z2P,  Z3P,  Z4P,  AMTX, 
PHIl,  PHI2,  PHI3,  PHI4,  PSIl,  PSI2,  PSI3,  PSI4,  DTDDl, 
DTDD2,  DTDD3,  DTDD4,  DTHFl,  DTHF2,  DTHF3,  DTHF4,  PHI ID, 
PHI2D,  PHI3D,  PHI4D,  PSIFI,  SFYUF,  SFYUR,  PHIFID,  SLOPEl , 
SL0PE2,  SLOPES,  SL0PE4 

f.  Size: 

AA4)^^  =  2724) ^Q  bytes 

g.  Computational  Procedure: 

1.  Calculate  longitudinal  velocities  of  wheel  centers  along 
the  vehicle  axes,  Ul ,  U2,  U3,  U4.   Note  that  for 
independent  suspension  options,  INTRPC  is  called  to 
obtain  the  track  change  and  rate  of  track  change  as  a 
function  of  suspension  position, 

2.  Zero  forces  acting  on  the  unsprung  masses 
SFYU  =  SFXU  =  SFYUF  =  SFYUR  =  SFZU  =  0. 

3.  Calculate  AMTX,  the  transformation  matrix  from  vehicle 
to  space  coordinate  systems. 

4.  Calculate  direction  cosines  of  the  vehicle  x  and  y 
axis  in  space  (CAX,  CBX,  CGX  and  CAY,  CBY,  CGY), 

5.  Calculate  positions  of  the  wheel  centers  in  space 
(XIP,  YIP,  ZIP);  (X2P,  Y2P,  Z2P) ;  (X3P,  Y3P,  Z3P) ; 
(X4P,  Y4P,  Z4P). 
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6.  Call  INTRPC  (entry  point  in  INTRPL)  to  obtain  wheel 
camber  angles  and  rates  of  change  of  camber  angles  with 
deflection  by  interpolation  of  the  input  camber  tables 
with  respect  to  suspension  deflection  for  independent 
suspension  options.   Note  that  since  the  input  table  of 
camber  is  in  units  of  degrees,  a  conversion  in  radians 
is  also  made, 

7.  Determine  the  front  wheel  steer  angle  with  the  following 
logic. 
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INOCRB^O  INDICATES  STEER  DEGREE  OF 
FREEDOM  MAY  BE  IN  EFFECT 


IHIT=1  OR  INDCRB  <  0  INDICATES 
STEER  DEGREE  OF  FREEDOM  IS  IN 
EFFECT 


DRIVER  IS  A  DUMMY  SUBROUTINE 
WHICH  RETURNS  0  FOR  STEER 
ANGLE  (PSICON),  STEER  VELOCITY 
(PSISLP),  AND  J 


PSICON=0.0 
PSISLP=0.0 


5001     n 


CALLINTRPCiPSIF,  TB, 

TE,  TINCR,  T,  PSICON,  PSISLP) 


INTERPOLATE  INPUT 
StEER  ANGLE  TABLE 
(PSIF)  WITH  RESPECT  TO 
TIME  TO  OBTAIN 
PSICON  AND  PSISLP 


PSICON=PSICON*RAD 
PSISLP=PSISLP*RAD 


CONVERT  TO  RADIANS 


CONTINUE 


PSI1=PSICON 
PSIFID=PSISLP 


CALCULATE  APPROXIMATION  OF  STEER  ANGLE  & 
VELOCITY  AS  INITIAL  CONDITION  TO  POSSIBLE 
SUBSEQUENT  STEER  ANGLE  DEGREE  OF  FREEDOM 


PSI1=PSIFI 


PSIFI=PSI1 


SET  RF  STEER  ANGLE 
TO  INTEGRATED 
ANGLE  WHEN  A 
DEGREE  OF  FREEDOM 


E 


PSI2=PSI1 


SET  LF  STEER  ANGLE  TO  RF  STEER  ANGLE 


CONTINUE 
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HVOSM-VDl 
49,       SUBROUTINE  WHEEL 

a.  Purpose: 

1.   To  calculate  equivalent  tire  radial  mode  spring  rates 

b.  Common  Blocks  Required: 
None 

c.  Subroutines  Required: 
None 

d.  Arguments: 

AKT   -  Point  contact  model  tire  spring  rate 

SIGT  -  Point  contact  model  tire  deflection  at  which  spring 

rate  increases 
XLAMT  -  Spring  rate  increase 

RWHJB  -  Beginning  deflection  for  radial  spring  table 
RWHJE  -  Ending  deflection  for  radial  spring  table 
DRWHJ  -  Deflection  increment  for  radial  spring  table 
NFJP  -  Number  of  radial  spring  table  entries 
RW    -  Undeflected  tire  radius 
FJP   -  Radial  spring  force  table 
NO    -  Maximum  number  of  entries  in  radial  spring  force 

table 

e.  Common  Variables  Calculated: 
None 

£,    Size: 

4FA)^^  =  121  A)  ^^   bytes 

g.    Computational  Procedure: 
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3.2.2 


HV0SM-VD2  Program  Stops  and  Messages 


Program  stops  include  both  normal  and  abnormal  stops.   Normal  stops 
occur  when  the  cumulative  simulated  time  (T)  exceeds  the  desired  final  time 
(Tl)  as  input  in  field  2  of  card  101,  or  when  the  magnitudes  of  both  the 
linear  and  angular  velocities  of  the  vehicle  sprung  mass  are  less  than  or 
equal  to  the  input  minimums  (UVWMIN  and  PQRMIN,  card  101,  fields  6  and  7). 
When  these  stops  occur,  no  message  is  output  and  the  program  attempts  to  read 
another  set  of  data  cards. 

Abnormal  stops  occur  when  a  condition  is  encountered  that  the  program 
is  not  designed  to  handle  or  an  unresolvable  error  has  occurred.   The  first 
type  of  abnormal  stop  occurs  when  rollover  of  the  vehicle  is  immenent.   That  is, 
when  the  vehicle  has  rolled  to  an  angle  of  90°  in  either  direction, 

Abnormal  stops  are  also  indicated  by  a  non-zero  value  for  the  variable 
ISTOP.   The  following  codes  identify  the  type  and  location  of  the  error. 

ISTOP  =  1  Subroutine  TIRFR.  An  error  has  occurred  in 
determination  of  the  wheel  spin  integration 
interval . 

ISTOP  =  4    Subroutine  TMCNST.   The  denomenator  of  the 

expression  used  to  calculate  the  value  of  PSIT 
after  indexing  of  coordinate  system  is  zero. 

ISTOP  =  5    Subroutine  TMCNST.   The  logic  associated 

with  coordinate  system  indexing  has  been  usable 
to  determine  the  correct  quadrant  for  PSIT, 
PHET  or  THETT. 
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ISTOP 


Subroutine  TMCNST.   The  numerator  in  the 
expression  for  calculation  of  THETT  after 
coordinate  system  indexing  is  zero. 


ISTOP  =  7  Subroutine  TMCNST.  The  numerator  in  the 
expression  for  calculation  of  PHIT  after 
coordinate  system  indexing  is  zero, 

ISTOP  =  30   Subroutine  TMCNST.   One  of  the  recalculated 
Euler  angles  (PSIT,  THETT,  PHIT)  has  been 
computed  as  being  very  large  (>3000  radians) 
after  coordinate  system  indexing,   A  probable 
error  has  occurred. 

When  an  ISTOP  i   0  condition  is  encountered,  the  program  prints  ajl 
output  up  to  the  time  of  the  error,  prints  the  value  of  ISTOP,  terminates 
execution  of  the  current  run  and  attempts  to  read  another  set  of  data  cards. 

In  subroutine  CTQD,  a  message  will  be  printed  if  the  tabular  time 
range  of  the  TTS,  TTR  and  TPC  tables  is  exceeded.   The  program  continues 
execution  with  the  last  entries  in  the  tables. 

Similarly,  in  subroutine  CTQB,  a  message  is  printed  if  the  temperature 
range  of  the  FLF  table  is  exceeded.   The  program  again  continues  execution 
using  the  last  value  in  the  table. 

In  subroutine  INPUT,  the  following  messages  are  printed  if  difficulties 
are  encountered  in  reading  the  card  data  deck. 


UNEXPECTED  END  OF  FILE  ENCOUNTERED  IN  STMT  NO.  1  OF 
SUBROUTINE  INPUT.   LAST  CARD  READ  WAS  XXXX, 

A  CARD  NUMBERED  LESS  THAN  OR  EQUAL  TO  ZERO  WAS 
ENCOUNTERED  IN  SUBROUTINE  INPUT.   CARD  IMAGE 
PRINTED  ABOVE. 
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THE  NUMBER  OF  CARDS  READ  IS  ZERO. 

A  BLOCK  NUMBER  OF  LESS  THAN  OR  EQUAL  TO  ZERO  HAS 
BEEN  OBTAINED, 

A  BLOCK  NUMBER  LARGER  THAN  THE  ALLOWED  NUMBER  HAS 
BEEN  OBTAINED. 

AN  ERROR  HAS  OCCURRED  IN  STORING  INPUT  VALUES  IN  ONE 
OF  THE  BLKXX  SUBROUTINES.   THE  CALLING  ARGUMENTS 
FROM  INPUT  ARE:   NBLK  =  XXXX   NBCRD  =  XXXX 
NSEQ  =  XXXX   NCARD  =  XXXX, 


In  subroutine  RUFRED,  two  messages  may  be  printed  if  difficulties 
are  encountered  in  reading  road  roughness  data  from  FORTRAN  device  4.  They 
are: 


END  OF  FILE  ENCOUNTERED  IN  READ  OF  ROUGHNESS  DATA 
BEFORE  NEND  POINTS  WERE  READ. 

NUMBER  OF  LAST  ROUGHNESS  DATA  POINT  IS  GREATER  THAN 
THE  ALLOWED  2200.   PROGRAM  TERMINATED. 
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3.2.3     HV0SM-VD2  Program  Listing 
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DATE   01/14/76 


TIME   1725 


UPDATE  RECORD 


HIGH 

MA 

HVOSM 

RE 

COMMON/HEA 

L 

COMMON/INP 


COMMCN/INP 
COMMON/INP 


DIME 
EUUI 
COMM 
EOUI 


NSION 
VALtNC 
ON  /IN 
VALtNC 


1 
2 
3 
4 

5 
6 
I 
1 
2 
3 
4 
5 
6 


EQUIVALENCE 


EQUIVALENC 

L 
EQUIVALENC 

I 

COMMON    /DI 


WAY    VEHICL 

IN    ROUTINE 

-VD2    VERSI 

VISED    OCTO 

D/    VHED(20 

NPA&E(2 

7/PHlO,THb 

A, B, DELI 

PHI  ROD,  T 

XMS  ,XMUf- 

RF,CR,AK 

T1,DTCMP 

H6D(36), 

DELE, DDE 

NZTABtNZ 

NbY(5>»N 

T/XP(f>),XE 

XXZ&P.5(21) 

T1/YC1P,YC 

CPSPtOM 

PSIFIO, 

YCIP(2) 

E     (YCIP(l) 

TG/NEQ,T,D 

E     (UrVARCl 

, (R,VAR(6 

{DEL2DtV 

(PHlRjVA 

(PHITP,V 

(YCPfVAR 

(PSIFID, 

(DU,DER( 

(DO,DER( 

, (DDEL2,D 

{DDEL3D, 

(DTHTTP, 

(DXCP,DE 

(DPSIFI, 

E     (VAR(9), 

(DER(IO) 

E     (VAR(13) 

(DER(14) 

MV/X1P,X2P 

PHI2,PH 

CGYW(4) 

STG(4), 

XLM1(4) 

YGPP(4) 

CGR(4) , 


E    OBJECT    SIMULATION    MODEL 


ON 

BER    1 

)»CHE 

0) 

TAO.P 

0,DEL 

F,TR, 

,X1X, 

R.XLA 

It  DTP 

DADE  ( 

L,NDE 

3,XBD 

TBLl, 

(5),X 

,YYZG 

2P,ZC 

GPS,  A 

PSIFD 

,YC1P 
T,VAR 
)}  ,(V 
) )  f  (  L 
AR  (10 
R(13) 
AR(16 
(19)  ) 
VAR(  2 
1)  ),  ( 
5)  ),  ( 
ER(9) 
DtRd 
DER(  1 
R(  18  ) 
DER(2 
PHIF) 
,DPHI 
,DEL4 
,DDEL 
fX3P, 
13, PH 
,ZPGI 
CAGZ( 
,XLM2 
,ZGPP 
FR(4) 


975)       CALSPAN    CORP 
D(20),GHED(20) ,SH 


ORATION 

ED(20)  ,THED(20), 


SIO,PO 
20,LifL 
ZF,ZR, 
XIY,XI 
MR.OME 
(<NT,MO 
3)  ,XIR 
I  ,  P  S  I F 
RY(4,!> 
N7bL2, 
INCR(5 
P5(21) 
^P,DEL 
KPS,EP 
0 

) 


tQO, 
30, P 
RHO, 
Z,XI 
GR,C 
DE,E 
,X1, 
(50) 
),PS 
NTbL 
)  ,NX 
,AMU 
TCP 
SPS, 


RO,XCOP 
HIRO,DE 
AKRS,XM 
XZ,CF,A 
RP,EPSR 
BAR, EM, 
Y1,Z1,X 
,TQF(50 
BURY(4, 
3,ZGP(2 
(5),YB( 
&(5),PS 
HlCl ,PH 
XPS,RWH 


,YCOP,ZC 

L10D,DtL 

UR, 

KF,XLAMF 

,RR,TS,T 

AAA,HMAX 

2,Y2,Z2, 

),T0R(50 

5),YbDRY 

1,21,5) 

5),Y£(5) 

BDR0(4,5 

IC2,AMUC 

JB,RWHJE 


0P,UO,V0,WO, 
20D,nEL30D, 

,OMEGF,CFP,EPS 
HMAX,DTCOMP,TO 
,HMIN,EET,G, 
PHIC(50) ,DtLB, 
),7B,TE,TINCR, 
(2,5 ),NBX(5), 

♦YINCR(5),NY(5 
)  ,UVWMIN,PORMI 
,XTPS, 
,DRWhJ,INDCRB, 


(50) ,DER( 

,VAR(2)  ), 

EL1,VAR(7 

)  ),(DRL3, 

),(PHIRD, 

)),(PS1TP 

, (ZCP,VAR 

2)) 

DV,DER(2) 

DR,DER(6) 

),(DDEL2D 

2)), (DPHI 

5)  )  ,  (DPHI 

),(DYCP,D 

D),  (DDPS 

,(VAR( 10) 

FD) 

),(VAR(  14 

40) 

X4P,Y1P,Y 

14,PS11,P 

(4) ,THGI{ 

4) ,CbGZ(4 

(4),XLM3( 

(4),DMATX 

,HI  (4)  ,FC 


50) 

(W,VAR(3 
)  ), (DELI 
VAR(ll) ) 
VAR( 14) ) 
,VAR( 17) 
(  20  )  )  ,  (  P 

)  ,(DW,L)E 
),(DDEL1 
,DER( 10) 
R,DEH( 13 
TP,DER(  1 
ER( 19)  ), 
FI,DER(2 
,PHIFD)  , 


) ) ,(P,VAR(4) ),(g,VAR(5 
D,VAR(8) ),(DEL2,VAR(9) 
, (DEL3D,VAR( 12)  )  , 
,(THETTP,VAR( 15)  )  , 
), (XCP,VAR(18)  ), 
SIFI,VAR(21)  ), 

R(3) ), (DP,DER(4)  ), 
♦DER(7)) ,(DDEL1D,DER{8 
), (DDEL3,DER(11)  ), 
) ) ,(DPHIRD,DER(14)) , 
6) ) , (DPSITP,DER( 17)  ), 
(DZCP,DER(20)) , 
2)  ) 
(DER(9),DPHIF), 


) ,DEL4D) ,(DER( 13)  ,DDEL4), 

2P,Y3P,Y4P,Z1P,Z2P,Z3P,Z4P,PHI 
SI2,PSI3,PSI^,CAYW(4),CBYW(4), 
4),PHGI (4) ,CPG(4),SPG(4) ,CTG(4 
),CGGZ(4),D1(4),D2(4),D3(4), 
4),AMTX(3,3),CMTX(3,4) ,XGPP(4) 
(10,11) , DELTA (4)  ,CAR(4),CBR(h) 
(4),TI(4),AX(4),bX(4) ,CX(4) , 


MA  IN 00  10 

MA  IN  00  20 

MAIN00  30 

MA  IN  CO  40 

MAIN00  50 

MAIN0060 

MA  IN  00 70 

MA1N0080 

MAIN00  90 

F,MAIN0100 

,    MAIN(.I10 

MA1N0120 

MAIN0130 

MA  IN  01  40 

MAINCl 50 

MA  IN  01  60 

)  ,MA1N0170 

N    MA  IN  01 80 

MAIN0190 

MAIN0200 

MAIN0210 

MA  IN  02  20 

MA  IN 02 30 

MAIN02  40 

)  )MAIN02  50 

),MAIN0260 

MAIN02  70 

MAIN02eO 

MA  IN  02  90 

MA1N0300 

MAIN0310 

MAIN0320 

))MAIN0330 

MAIN03^0 

MAIN03  50 

MAIN0360 

MAIN0370 

MA1N0380 

MA  IN  03 90 

MAINO^OO 

MA  IN  04  10 

MAIN04  20 

1,MAIN04  30 

MAIN0440 

),MAIN0450 

MA1N04  60 

,    MAIN04  70 

,    MA  IN  04  60 

MAIN0490 

DATE       01/14/76  TIME       H2t  UPDATE    RECORD 

7  C1XG(4)  ,UG(4),S1XG(4)  ,AY(4),bY{4)  ,CY(A),CPYG{4),  MAIN0500 

8  SPYG(A),VG(4),PSTIP(4)»PHICI(4),CAC(4),CBC(A),CGC(4),MA1N05  10 

9  FCXU(4) ,FCYU(4),FCZU(4),FS(4),CAXW(4) ,CBXW(A) ,CGXW( 4 ) MA IN05 20 
COMMON    /DIMV/AS(4) ,B S( 4)  ,CS (4 ) ,C AS ( 4 ) tC BS { 4) ,CGS (4 ) ,bETP (4 ) ,  MA  IN 05 30 

1  BETBR(4) ,FSXU(4) »FSYU(4) ♦FS2U(4) ,FRXU(4),FRYU(4),  MAING540 

2  FRZU(4),FXLK4),FYU(4),F2U(4),SI(4),F1FI(2),F1R1(2>,  MA1N05  50 

3  F2F1(2) ♦F2R1(2),CAH(4) ,CBH(4) ,CGH(4)  MAIN0360 
DIMENSION  XP(4)  ,YP(4)  ,ZP14)  tPHlI  (4)  .PSTUA)  MA1N0570 
tQUIVALcNCt     (XP(  1)  ,X1P),  (YP(  1),Y1P)  ,(ZP(  DtZlF),  (PHIK  1),PHI1),  MA  IN  05  60 

1  (PSlI(l)  ,PSI1)  MAINC5S0 
COMMON     /COMP/SUMM,THETN, PHIN, PS  IN, PI t RAD, GAMl , GAM2 ,GAM3, GAM4 ,G AM5 ,MA IN  06  00 

1  GAMt.,GAK7,GAM&,GAM9,THETT,PHIT,PSiT,ZR0,TR02,  MAINO^iO 

2  TFD2,TIZ,RHG2,RH0MUR, AMUF,BMUR,ZPR,TM4,RHMR2,AC2APB,  MA  IN  06 20 

3  E02APB,RFTF  ,  lSCi2  ,RRTS  ,  BROMUR  ,XMUFn2  ,AXMF0  2  ,XMT  FOh,  MA  IN 06 30 

4  X IZR,RTR,RHMR2I,XIXP,XIZP,XIXZP,XIYZP,D1PD2,D1MD2,  MAIN06  40 
b                                     ZRD3,ZRD3R, ZFD3R,ZFD12,TIZ2,TG61,DD1P2,DD1M2,RPR,PHRPMAIN06^0 

6  ,TANTP,SPhTP,CPHTP,SECTP,SFXS,SFYS,SFZS,SNPS,SNTS,  MAIN0t;60 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYU,SFXU,SFYUF,  MAlN0fc70 
6  SFYUR,SFZU,C0STH,SINTH,C0SPS,SINPS,C0SPH,SINPH,ANG1 ,  MA  IN 06 tO 
9                                      ANG2,CPHI,SPhI,CPSI ,SPSI , PI ♦ P7, P3,P4, Pb ,P6 ,TX ,TY ,TZ  MA  IN 06 90 

COMMGN    /C0MP/TRH,DTSTX,DISTY,DISTD,DISTS,D21,ZtTA4,ZLTA4D,ZtTA3,  MA  IN  07 00 

1  ZETA3D, SFZl , SNPU , SNTU ,HCGH1 , HCGH2,HCGH3 ,HCGH4 , TERMl  ,  MA  IN 07 10 

2  TtRM2 ,SNPSU,SNPR,HCbHl,HCfc'H2,HCEH3,HCBH4,HCAHl,HCAH2,MAIN07  20 

3  HCAH3,HCAH4,UO,WP,UR,QR,VP,PR,P2,Q2,R2,VR,Wfr,PO,PHlR2MAIN07  30 

4  ,PHIRD2,RPHRD,&CTH,GSTH,GCTSP,GCTCP,XXX,YYY,IX,IY,XX1,MAIN07  4G 

5  XX2,YY1,YY2,THG1,THG2  tPHGl,PHG2,ZZl,ZZ2,LLL  MA1N075>0 
DIMENSION  HCAH(4) ,HCBH(4) ,HCGH(4)  MAIN0760 
EQUIVALLNCE  (HCAH( 1 )  ,HCaH1 ) , (HCbH( 1 ),HCBH1) , < mCGH( 1),HCGH1 )  MA  IN  07 70 
COMMON    /COMPN/     FRSP ( 4 ) ,F RCP ( 4 ) , ICBHIT , JCB HI T ,  MAIN0760 

1  DPSINT,TANPC1,TANPC2,PHIC1R,PHIC2R,  AMUCMP,PHHD,  MAIN0790 

2  PHI2D,LCB1 (h) ,LCB2<4),IHIT ,AJMTX(3,3),BMTX(3,3),  MAINOfcOC 

3  SFRX(4) ,SFRY(4),SFRZ(4) ,T1PSI,T2PSI ,XMUGI (4)  MAINOCIO 
LOGICAL    LCB1,LCB2  MAIN0b20 

COMMON/EINDLX/    FOR     LULER    ANGLE     IN DEXING , Ma  IN  ,  CNSTNT , DAUX, TMCNST  MAlNOeSO 

COMM ON/ E INDEX/     TWOPI , P 10 2 ,PI04, X INDN, X INDL ,THETTL, PHiT L, PS  I TL ,  MA  IN  OS  40 

1  COSTHN,SINTHN,COSPSN,SINPSN,COSPHN,SlNPHN,CTHETP,  MAIN0850 

2  SIHETP,CPSTP,SPSTP,BNMTX(3,3) ,  CNMTX(3, 3 ) , ENDEIN  MAlN0b60 
CGMMON/ADTNL/    U 1 ,U2 , U3 ,U4  ,V1 , V2 , V3 , V4, Wl , W2 , W3 , W4,  MAIN0870 

1  X1YP,SPHIC,CPhIC,APTCH1 ,APTCH2,APTCH3,APTCH4,  MAINOLbO 

2  SLOPEl ,SL0P£2,XTRA(300)  MAIN0690 
DIMENSION  UI (4),VI (4),WI (4)  MAINOVOO 
EOUIVALENCE  (UI ( I ) ,U 1 ) , < VI ( I ) ,V 1 ) ,  { WI I  I ) , Wl )  MAIN0910 
DIMENSION  AP1TCH(4)  MAIN0920 
EQUIVALENCE  ( AP  ITCH (  1 )  ,APTCH1 )  MAINO930 
COMMON/ INPT3/    AKFC  ,  AKFC  .-, OMEGFC  ,  AKFE  ,  AKFE  P  ,  CM  E  GFE,  AKRC  ,  AKRCP,  MA  IN 09 40 

1                                       0MtGRC,AKRE,MKRtP,0MEGRE,END3  MAlN09f:o 

COMMON/APTABL/    APFR ( 21 ,2  )  ,  I APFR ( 2 )  , DA PFB , DAPFE , DDAPF,N APF,  MA  IN 09 60 

1                                            DAPRB,DAPRE,DDAPR,NAPR  MAIN09  70 

DIMENSION    APF(21  ),APk(21  )  MAIN09fc0 

EQUIVALENCE     < APFR( 1 , 1 ) ,A PF( 1 ) ) , ( APFR<  1  ,2 )  ,  APR { 1 )  )  MAIN0990 

COMMON    /TIRIN/    AKT (4 ) , SI GT ( t ) ,XL AMT (4 ) , AO (4 ) , Al( 4)  ,  A2( 4 ) , A3 ( 4  )  ,  MAINIOOO 
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DATE       01/14/76  TIME       1725  ,  UPDATE    RECORD 

1  A4U)  ,GMEGT(4)  ,AMUU),RW(4),FJP(35,4)  ,A234(4)  ,  MA  IN  10  10 

2  A12(^),0MT2A2(4)  ,0MT2M1(4)  ,A23(<t)  ,ITIR(A)  MAIN1020 
COMMON    /1NPT4/    FIDJ(  i:)  ,FIWJ(2)  tARBR(2)  ♦NXUGMU,NXFRCPfXXUGMU(6)  ,  MAIN1030 

A                                            XXFRCP(6)  ,X^"4MAT(6,6,4  ),XMXPMT(6,6,A),  MAINIOAO 

B                                            XMXSMT(6,  6,'t}  ,SLIPM7(6,6,4)  ,C7  (A)  ,XMUM(4)  ,  MA1M030 

C                                            XMUXP (A ),XMUXS (4) ,RRMC (4) tRRM(A) .COMENA  MAlNi060 

FQUlVALtNCE     (FIDJ(1),F1DJF),(HDJ(2),FIDJR),(F1WJ(  1),FIWJF)  MA  IN  10  70 

EQUIVALENCE     (  F  IWJ  (  2  )  ,  F  IW  JR  )  ,  (  ARf  R  (  1  )  ♦  ARBRF  )  ,  (  aH  BR(  2  )  ,ARBRR  )  MA  IN  10  60 

COMMON    /C0MP4/FIDAR(^ )  ,FIDIW(2 ) tFlUWR2(2) ,SPHICI  (4  )  ,CP Hi  CI  ( 4 )  ,  MA  IN  10 VO 

1  TIHKh  )♦  ARBKK'f),     PSIT£M(4)  ,SLPFAC{H),DTSTEP,0TTtS7,MAlNll  CO 

2  L.TINT,TWUP1R,FRTEST(4)  ,XMU1  (  4)  ,  F  RCPMU  ( 't )  ,  HR  7  ERM  t  SLI  P  (  A  )  ,  MA  IN  11  10 

3  SLIP7( A)  »RHnS(A),EPSS(A) ,7ERMP( A)  ,7ERMb(4) ,7ERM(4)  ,  MAIN1120 

4  EPSSFC  tFSXf-AC(A)  tFSYFAC  (A)  ,FSZFAC(A)  ,FRXFAC(  A)  ,  MA1N1130 

5  l-RYFAC(A),FRZFAC(  A),FCXFAC(A)  ,FCYFAC  (A),FCZFAC(4),  MAINllAO 

6  SFCDTR (A  ),SFSDTR(A),SFPCPR(A),SSLIP{ A) ,FCAV1 A) ,  MAIN1150 

7  l-SAV(A)  ,FRCPAV(  A)  ,SLIPAV(  A)  ,RPSSM(A)  ,FCSLSM(  A),  MAINlitO 

8  ARTQ6(A)  ,7C.FAC(A)»ARFACl(2)fARFAC2(^),RPSFA(2)tRPSFb(2),MAIN1170 

9  RPSFC(2),RPSFDl2),HRPSFA(^),HRPSFe(H),HRPl>FC(4),STEPU  MAINllhO 
COMMON  /C0MP4/  XBRAKi  lis  ),IUVS(A)»IUVE(^  )  ,IRPS,ID7CN7»ISlbP,Ii>7CP  MAINll'/O 
LOGICAL  lUVSf lUVB.lRPC  Ma  IN  12 00 
COMMON/ 1NP7 5/    I B7 YP ( ? ) , A K 1 , AK 2 , PON L , P7 Wb , PZb R 0 ( 2  5 » GN { 1 6 , 2 ) , Z E7 AB  »  MA  IN  12  10 

1  C0NE,CTWC,C7hReE,TAUA,TAUU(4)  ,7LF(51  ),T7  AU(51  J»  MAIM^^O 

2  TRPME( 12  ),TW0T(12)  ,7 CT ( 12 ) , TT ( 1 0  1 ) ,T PC ( 1 0 1  )  , TTR ( 10 1 ) MA  IN  12 50 

3  iT7S{  101),67LF,E7lF  tD7LF,N7LF,BRPM,ERPM,NRPM,  MAINlZ'^O 

4  [iTT»LT7,D77,N771,N772,N773,N7TS,XINP73(V)  MAlN12tO 
COMMON /COM  P5/    7  AU  ( 't )  »  7  QO  <  1)  » 1  QB  <  4)  »  PP  (  2  )  ,  7  LAM  b  (  2  )  ,  PC  t  R  WDR  I V  ,  JDEND  ,  MA  Ihj  12  tO 

1  NL7YP, AK FAC3(2)  ,RPSFE<2  ),RHUSMX (3)  ,SL1PMX(3) ,SLIPP,  MAINI^TO 

2  RHOMAX tRHOSAVJA) ,SRH0S(4) ,UCW(A ) , ABSUGW(4) ,VECS,  MAIN12fcO 

3  DEL7AE  ♦PI01i;R,CrJMEN5,7QbtRPMF  MAIN12V0 
COMMON  /INTR/  NEOR , 7 IM R, U7R t VAR R ( 1 2  )  t DERR (  1 2 )  MAIN1300 
DIMENSION  RPbl (4) ,D^PSI(4  )  MA  IN  13 10 
EQUIVALENCE (VARR(l) ,PPSI( 1) ) f (DERR (1) tDRPSH 1 ) )  MA  IN  13  20 
COMMON    /INSUS/    XIF  ,  RhUF  ,  TSF  ♦  Phi  F  0,  PHI  FOD  ,  DELAC  ,  ljfcL40D,  ISUS  ,  MAIN13:'C 

1  AKDi,»  AKOS  1,AKLS2  ,  AKDS3,PHIRC{50)  ,07HF(50)  ♦D7HR  (50)  ,MAIN13^0 

2  NCAMF ,NCAMR,ND7HF,ND7HR  MAIN135G 
COMMON    /SUSCMP/    XMUR 02 »B XMR02 ,X M7RG4 , ZFD t TSFC2 , RH0F2 ,RhFMUF ,  MA1N1360 

1  RHF2MF ,kF2MFI ,R7F,RRTR,D3PDA,D3MD4,D43 ,DD3P4,  MAIN1370 

2  DD3M^,ZFD1RF,ZRD34,RFPF,RPF2M,WFMF  ,PHFP,PHIF2»  MAIN13t0 

3  PHIFi;2,RPHFD,ZFDlt  ZFD2,ZRD4,7PF,SLCPE3  ,SL0P£4t  MA1N139G 

4  PH13D,PHl4D,D7HFl,D7hF2T07HR3,DTHR4,LTDDI»  MAIN1400 

5  D7DD2,D7DD3,DTDD4,FJF(4),SNPF  MAlNlnlO 
COMMON/DRIVTT/TPATH,DELPTH,TCTEST(6),17ES7  7,I7CHNG,IPA7H7»IDRIVE,  MA  IN  1^20 

1                                        IUPVER,IBUG  MAIN1A30 

C                     IPATH7    -    STOP    FOR    DRIVER    MODEL  MAIN1440 

C                     IDRIVF    -    NOT     ZERO,     SAMPLE    TIME    FOR    DRIVER    MODEL  MAIN1450 

C                     ITChNG    -    NOT     ZERO,     CHANGE    DESIRED    SPEED     AND    DISTANCE  MAINlntO 

C                    I7ES77,7CTES7(6)    -    INDEX    AND    INPUT    TIMES    FOR    SPEED    CHANGES  MAIN1470 

C0MM0N/DRIVI/NEN,EMD7,ES ,DS , APDMAX , FKDC ,F KPO , FKS 10 , FKS20 ,FKSKDO,  MAIN 1h 60 

1  TESTBO,TSTSlO,TSTS20,TS7R10,7S7P2O,0MEGA0,7AUF,TIL,  MAIN149C 

2  TL,S<5, 2) ,NTRAN,YTRANS(6) ,GEAR1,GEAR2  ,GEAR3tGEAR4,  MAIN1500 

3  VGR12,VGR23,VGR34,VGRA3,VGR32,VGR21  ,  MAIN1510 
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4  TESTT(5),DESSI (b) ,D1ST1(5) ,PSIFH0,X1MP0R(9),  MA1NI520 

5  BFP1,BFP2,DR1END  MAINlb30 
C0MM0N/DKIVE/EN,FK0,FKP,FKSl,FNS2,FKSKID,TE.STE,TESTSl,TtSTS2,  MA  IN  15  40 

1  TESTRl,TbSTR2,THESKD,FPRK,Arb,DS0ES,  MAlNlbbO 

2  TRKIN,TMT,DESS,DlSTtDISTCfCUNKPH,UT,UTMPH,  MAIN1560 

3  APDtDELTAX, DtLTV,TJ,TTtM,TTPSlT,PSISKD,ST,SlSC2,0AYt    MA  IN  15 70 

4  AXP,AYP,D1, UP, XVPtYVP, SLOPE, SLOPE R,PSIJ,XINT,X,Y,  MAIN  1560 

5  TERMX,TERMY,TEMPOR,AE  ,  EI  , E WT , ARE  I ( 7  ) , ARCAP E ( 7  )  , ET ,  MA  IN  15 VO 

6  PSIFFH,TITE,CPSISF,DPSILF,PS1M,APSI,APSIM,1PD(10),  MAIN1600 

7  PPD(IO)  ,NPD,K.C0UNT,ISKIDP,ISMAIN,IGEAR,WE1GHT(10),  MA  IN  16  10 
B                                      DENQ  MAIN1620 

COMMON/NEWCRfa/    YC3P  ,  YC  4P  ,  YC5P  ,  YC6P  ,  YCLP  ,  MAIM630 

1  ZC3P,2C4P,2C5P,ZC6P,ZCLP,  MAIN164C 

2  PriIC3 ,PHIC4,PHIC5,PHIC6,NCRbSL,  MAIN1650 

3  TANPC3,IANPC4,lANPC5,TANPC6,TANPCL,  MAIM660 

4  PHIC3R,PHIC4R,PHIC5R,PHIC6R,PHTCLR,  MAIN1670 

5  YCMP{6)  ,ZCMP(6),PHICM(6)  MAINKSfcC 
COMMON  /RUFNES/  DELf-- ,DGM  A  X  ,NEND  ,  IRUF  MAIN169C 
DIMENSION    FJPP(35)  MAINi700 

C  MA  IN  17  10 

C                   VARIAbLES    NO    LONGER    USED    INCLUDI    TQF  (  50  )  ,1  ^>R  (  50  )  ,  T  I  (  4  )  ,  I  IH  I  (4  )  MAIN1720 

C  MAIN17j>0 

C  MA  IN  17  40 

C  SUbRLUTINES    DVDCHK    AND    DATE    Akt    RELATED    TO    THE    OPERATING    SYST  EMMA  IM7  5C 

C                                     AT    OUR     INSTALLATION  MAIN17t0 

C                    SUBROUTINE    DVDChK    CAN    CAUSE    HALT    CN    ATTEMPTlD    DIVID'E    BY    ZERO,  MA1N1770 

C                                 FXPONENT    OVERFLC'W,     AND    MESSAGE    ON    EXPONENT    UNDERFLOW.  MAINl/fcO 

C                           THE    SERVICES    GIVEN    BY    SUbROUTINE    DVDCHK    CAN    NOW    GIVEN    BY  MAIN179G 

C                                       FORTRAN    EXTENDED    ERROR    HANDLING  MAINlbCO 

C                     SUBROUTINE    DATE    RETURNS    THE    CURRENT    DATE    IN    EIGHT       CHARACTERS.  MAlNlblO 

C  MAlNlb2C 

CALL    CLtAR( VHED( 1) ,NPAGF (20) )  MA  IN  18 30 

CALL     CLtAR( TPATH,I&UG)  MAlNlt40 

CALL    CLEAR( PHI0,PQRMIN)  MAINltbO 

CALL    CLEAR(YC1P,PSIFD0)  MAIN1860 

CALL    CLEAR(     AKFC,END3)  MAIN1&70 

CALL    CLtAR(  APFR  (1,  1)  ,NAPR  )  MAIN18J:>0 

CALL    CLtAR(AKT ( 1),FJP(35,4) )  MAINlfc^O 

CALL     CLEAR(  ITlRd)  ,ITIR(4))  MAIN1900 

CALL    CLEAR     ( F I D J ( 1 ) , COMEN^ )  MAIN19iC 

CALL    CLEAR(IbTYP(l),XINPT5(V)  )  MAIM92C 

CALL    CLEAR(X1F,NDThR)  MAIN1V30 

CALL    CLEAR(NEN,DRIEND)  MAINly40 

CALL    CLEAR( YC3P,PHICM(6) )  MA1N1950 

CALL    CLEAR(DELG,IRUF  )  MAIN196C 

C  MA  IN  19  70 

ARBRF    =    1.0                                                                                                                                     ,  MA  IN  19  80 

ARBRR     =     1.0  MAIN1990 

CALL    DVDCHK  MAlN2o00 

I    CALL    CLEAR(NEQ,DER(50) )  MA1N2010 

CALL    CLEAR(SUMM,LLL)  MA1N2O20 
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CLEAR(  FRSP( 1),FRCP( 4))  MAIN2030 

CLEAR(DPSINTtXMUGI(4))  MAIN2040 

CLEAR(XINDN,ENDEIN)  MAIN2050 

CLEAR(U1,XTRA(300))  MAI\2060 

CLEAR(XlPtCGH(4)  )  MAIfsJ2070 

CLEAR(  A234(1),A23(4)  )  MAIN2O80 

CLEAR     (FIDAKC 1) jISTOP)  MAIN2090 

CLLAR(TAU( 1),RPME)  MAIN2100 

CLEAR(NEOR,DERR ( 12) )  MAIN2110 

CLEAR(XMURD2,SNPF)  MA1N2120 

CLtAR( EN,DEND)  MAIN2130 

MA1N2I40 

IDRIVE    =     1    IN    DRVC^S    AT    BEGINNING  OF    COMPUTATION                                   MAIN2150 

ITESTT    =     2    IN    DRVCNS    AND     INITIALIZE    DESS    AND    DIST  MAIN2160 

TCTESTd ),1=1,^      TO    INPUT    VALUES.  TCTEST(6)SET    LARGE    VALUE.    MAIN217G 

ITCHNG    =    0    FOR    FIRST    l.VlERVAL  MAIN^IEO 

C                     SUBROUTINE    DRIVER    WILL     DETERMINE     PS  1 1  DURING    FIRST    INTERVAL                MAIN2190 

DO    99    1=1,6  MAIN220O 

99    TCTESKl)    =     1.0E20  MAIN2210 

TPATH    =     1.0E20  MAIN2220 

DElPTH     -    0.0  MAIN2230 

C                    SET    TPATh    AND    DELPTH    TO    INPUT    VALUES    IN    DRVCNS  MAIN22AO 

C                     TPATH    AND    DELTPH    ARE    CONTROLS     FOR    DRIVER    SAMPLING    USED    TO  MAIN2250 

C                    RESET    THE     INDICATOR    IDRIVE.  MAIN2260 

C  MAIN2270 

IRPS    =     .FALSE.  MAIN22bO 

CALL    INPUT  MAIN2290 

CALL    DATE(DADE)  MAIN^300 

IF( IRUF.NE.O)    CALL    RUFR6 D ( NtNDf DELG ,DGM AX ♦ ZGP  )  MAIN231G 

IF( INDCRb.NE.l.AND.IRUF.EU.O)    GO    TO    10  MAIN2320 

NFJP    =     (RWHJL-PWHJB)/DRWHJ    ♦    1,2  MAIN2320 

DO    11    1=1,4  MAIN2340 

IF(I.EQ.l)    GO    TO    12  MA1N2350 

IM    =    I-l  MAIN2360 

DO    15    K=1,IM  MAIN2370 

JF{  ITIR(I).E(..ITIR(K  ))    GU    TO    16  MAIN23e0 

15>    CONTINUE  MAIN2390 

12  CALL    WHEEL( AKT( I) ,SIGT (I ) ,XLAMT{ I) ,RWHJB,RWHJ£,DRWhJ,NPJP,  MAIN2400 
1                                RW(  I  ),FJPP,35  )  MAIN2410 

DC    13    J=1,NFJP  MAIN2420 

13  FJP(J,I)    =    FJPP(J)  MAIN2H30 
GO    TO     11  MaIN?440 

16  DO    17    J  =  1,NFJP  MAIN24S0 

17  FJP(J,I)  =  FJPlJjK)  MAlN2t60 
11  CONTINUE  MAIN2470 
10    CONTINUE  MAIN24e0 

IF(2F.EU»0.0.AND,ZR.EQ.0,0)    CALL    INITEQ  MA1N2490 

CALL    CNSTNT  MAIN2500 

IF(IDRVtR.NE.O)    CALL    DRVCNS  MAIN2510 

CALL    IDOUT  MAIN2320 

TCTEST(6)    =    1.0E20  MAIN2530 
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lUO 


101 


41 
40 


DO  1 
LC91 
LCL-.2 
CCNl 
TPHI 
THET 
UVWM 
PgRM 
uvw 

PQR 
ICbH 
JCSH 
IHIT 
INL> 
T    = 
DT    = 
NEtJ 
NEUR 
PSIM 
CALL 
CALL 

1ST 
ISTE 
CALL 
IDKI 
IF  ( 
IF(  1 
CALL 
TP^I 
CALL 
ID=<I 
IF(T 


IDRI 
TPAT 
ITCh 
IF(  1 

ITCH 
ITti. 

A 


CCNT 
ISTE 
CALL 
IF     ( 


THET 
PHIT 


01        1=1 
(I  )     =    . 

( n   =    . 

1  K  U  t 

IMI       :^     TO 

MX     =^    AB 

2  -    UVW 
2    =    PO^ 


SI 
SI 
0 

0 


'^2 
M2 
IT 
IT 

=    0 
=    0 
TO 

DTCUMP 

=    22 

=     4 
AX      :^     13 

PLLTTP 
OinPUT 

EP     FCR 

P    -    0 
PINIl  ( 

VE     =    0 

iSTuP.rM 

PRINT. G 

OUTPUT 
NT     =    TP 

PLCTTP 
VE     =    0 
PATHe&T 
i>ULKOUT 
ID    AVDl 
VE     =    1 
H    =     IPA 
NO    -    0 
CTtSK  I 
\G    =    1 
TT     =    IT 
T    LRIVE 
PEEL    AN 
TO    AND 
INUE 
P    =    0 

PINTK 
ISTDP.N 

ThtTTL 

1  I  ME 

TL    =    TH 

L       =    PH 


»4 

FALSE. 
FALSE. 


S(IHMAX)     *    RAD 

iMIN**2 

M1N*«2 

GN{UVWM2, 

GN( PCRM2 , 


UVWMIN) 

PCRMIN) 


5.0*RAD 
(  1) 
(0) 

CuUNl    OF    OUTER    INTE&RAT 

1,MU0E,NE(.,  T,D1,UiDU,EB 


ION    STEP    FOR    IJSF     IN 
AR) 


E .    0 )    GO 
T.T+.1*DT 
(  1) 

RINT+DTPR 
(2) 

.    T+0.1»0 

INh     DRIVE 
Of     I N I T 1  A 

Th    +    DELP 

TESTT).G1 

ESTT+1 
R    SAMPLE 
D    DISTANC 
FIRST    VAL 


TL    6 

)     GO     10    4 

NT  . 


T)     GO    TO    40 
R    WILL    DEIERMI 
LI2E     IPATH    AbG 


Nl  PSI 1 
VE  AS  T 


DURING  FUSl 
C+DELPTH 


Th 

.(T+0.1»DT) )  GO  TO  41 


TIME,  TEST  THE 
E.  FIRST  VALUE 
UE    OF    DESIRED 


2,M0DEtNE 

E.    0)    GO 

tPHllL.PS 

INTERVAL, 

ETT 

IT 


CrT,Dl,U,DU,Eb 
TO    6 

TTL  ARE  VALUES 
USED  TO  TEST 


TIME  F 
OF  TCT 

SPEED  S 


AR) 

OF  THE 

NEW  ANG 


GR  CHANGING  DESIRED 
EST  iHOULD  EE  E^^UAL  TO 
HCULD  BE  UO. 


MA 
MA 

MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
•NESTED  SUM'MA 
Ht 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 
MA 


INCREMENT 


TT,PHIT,PSIT    FROM    PREVIOUMA 
LPS  IN    SUBROUTINE    TMCMA 

MA 
MA 


IN2b40 

IN  2^ 50 
IN2560 
IN  25.  70 
IN25t<.0 
IN  25  90 
IN  2^00 
IN2t  10 
lN2t>20 
IN  26  20 
IN2640 
IN  26  50 
I N  2  6  6  0 
IN  ^6  70 

IN ^6^0 
1\^7  00 
1\2710 
1\W20 
IN ^7 30 
JN  27-^0 
IN  27  5.0 
IN  27  to 
IN  27  70 
IN  27  60 
IN  27*^0 
IN2f(00 
IN2c'  10 
IN^o20 
IN2&30 
IN2y40 
IN2tb0 
IN  26 60 
IN  2b 70 
IN2bE0 
IN^ti90 
IN  29  00 
IN29I0 
IN2920 
IN2<^30 
IN2910 
IN295G 
IN  2^*60 
IN  2'-' 70 
IN 29  to 
IN2c>90 
IN  30  00 
IN30  10 
IN  30 20 
IN  30  30 
IN  30  40 


372 


DATE       01/14/76  TIME       1725  UPDATE    RECORD 

PSITL       =   PSIT  MAIN3050 

C               CALL    EGYSUM         FORMERLY    USED    IN    SPRUNG    MASS    IMPACT    VERSION  MAIN3060 

IFd.GE.Tl)     GO    TO    6  MAIN3070 

IF(U**2+V**2*W*»2,LE.UVWM2,AND.P2+Q2+R2.LF«PQRM2)    GO    TO    6  MAIN3080 

IF(ABS(  PHIT  )  •GE.PI02)     GO    TO*  6  MA  IN  30  90 

IFdPATHT    .NE.    0)    GO    TO    6  MAIN3I00 

IF( ABS(THETTP) .LT.THETMX)    GO    TO    5  MAIN3110 

C  XINDL    IS    PREVIOUS    VALUE    OF    XINDN.     XINDL    INITIALLY    ZERO    GETS    BNMT XMA IN31 20 

C  XINDN.NE.O.O    FOR    THETAO    OR    PHIO    .NE.O.O,    OR    AFTER    INDEXING    MA1N3130 

C                                  THAT     IS       THETN    OR    PHIN    NOW    .NE.    p.O  MAIN31AG 

C                                  USED    IN    MAIN    PROGRAM    AND    IN    SUBROUTINES    CNSTNT i TMCNST  MAIN3150 

THETN    =    THETT  MAIN3160 

TH£TTP=    0.0  MAIN3170 

PHIN       =    PHIT  MAIN31&0 

fT^HITP    =    0.0  MA1N3I90 

PSIN       =    PSIT  MAIN3200 

PSITP    =    0.0  MAIN3210 

XINDL    =    XINDN  MAIN3220 

XINDN    =    XINDN    +    1.0  MAIN3230 

C               IND  =  1       INDICATOR    FOR    R E-INITI ALIZAT ION    IN    PiNTl  MA  IN  32 40 

IND    =    1  MA  IN  32^0 

5  IF( INDCRB.EQ.O)     GO    TO    56  MA1N3260 

50  DO  51  I=lf4  MAIN3270 
IF( ,N0T.LCB2(I ) )    GO    TO    53  MAIN32fc0 

51  CONTINUE  MAIN3^«V0 
JCbHIT    -    2  MA1N3300 

52  1F( ICBH1T.EQ.JCBH1T»  GO  TO  56  MAIN3310 
JCBHIT  =  ICBHIT  MA1N3320 
IND  =  I  MAIN3330 
DT  =  DTCLMP  MAIN3340 
GC    TO    56                                                                                                                                                        -      MAIN33^0 

53  DO  54  1=1,4  MAIN2360 
lF(LCBl(n)     GO    TO    55  MAIN3370 

54  CONTINUE  MAIN3360 
ICBHIT  =  0  MAIN3390 
GO    TO    52  MAIN3400 

55  ICBHIT  =  1  MAIN3410 
IHIT  =  1  MAIN3^20 
IF  (ICBHIT. EQ. JCbHIT)  GO  TO  56  MAIN3't30 
JCBHIT  =  ICBHIT  MAIN3440 
IND  =  0  MAIN3'*50 
DT  =  DELTC  MAIN3'^60 
GO    TO    2  MAIN3t70 

C  MA  IN  34  80 

56  CONTINUE  MAIN34  90 
58    IF(IND.EQ.O)    GO    TO    3  MAIN3500 

IND    =    0  MAIN3510 

60    TO    2  MAIN3520 

C  MAIN3530 

6  CALL    OUTPUT(l)  MAIN3b40 
CALL    PLOTTPO)  MAIN3550 
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TIME       172^ 


IFdSTOP    ,NE.    0)    WRITb(6,S9)     ISTOP 
i)9    F0RMAT(1?H  ERROR,     ISTGP    =    »       13) 

CALL    PL0TTP(3)    CAUSES    DISTINCTIVE 

GO    TO    1 

END 


UPDATE    RECORD 


RECORD    ON    TAPE    FOR    END    CF 


MAIN3360 
MAIN357C 
RUN.MAlN33bO 
MA  IN 3^  90 
MA  IN  36  00 
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SUBROUTINE    ADJTQB  ADJTOOlO 

C                                     HV0SM-VD2    VERSION  AD Jl 0020 

C                                     REVISED    OCTOBER    197i.         CALSPAN    CORPORATION  ADJ70030 

COMMON    /DIMV/X1P,X2P,X3P,X4P,Y1P,Y2P,Y3P,Y4P,Z1P,Z2P,Z3P,Z4P,PHI1, ADJT00  40 

1                                    PHI2,PHI3,PHI4,PSI1,PSI2»PSI3,PSI4,CAYW(4),CBYW(4),  ADJT0050 

I  CGYW(4)  »ZPGI(4),THGI(4),PHGI(4)  ,CPC,  (4),SPG(4)  ♦CTG(4)  ,ADJT00  60 

3  STG(4) tCAGZ(4),CBGZ(4) ,CGGZ(4) ,D1(^),D2(4),D3(4) ♦  ADJT0070 

4  XLM1(41 ,XLM2(4) , XlM3( 4 ) , AMTX ( 3 ,3  )  ,CMTX ( 3, 4 ) ,XGPP ( 4 ) ,  AD JT 00 80 

5  Y&PP(4) ,ZGPP(4) tDMATXC 10,11) ,DELTA(4) ,CAR(4),CBR(4),  ADJT0090 

6  CGK(4) ,FR(4) ,HI (4) ,FC(4) ,TI (4),AX(4),BX(4) ,CX(4) ,  ADJTOIOO 

7  CTXG(4) ,UG(4),STXG(4) ,AY(4),BY(4),CY(4),CPYG(4),  ADJTOllO 

8  SPYG(4) ,VG(4),PSIIP(4)»PHICI (4),CAC(4) ,CBC(4) ,CGC(4) ,ADJT0120 

9  FCXU(4)  ,FCYU(4) ,FCZU(4),FS(4) ,CAXW(4)  ,CPXW(4)  ,CGXW ( 4 ) AD JT0130 
COMMON    /DIMV/AS(4) ,BS ( 4) , CS (4 ) tC AS < 4) ,CBS ( 4 ) , CGS (4 ) ,BETP (4 ) ,  AD Jl 01 40 

1  BETBR{^),FSXU(4),FSYU(4) ,FSZU(4) ,FRXU(4),FRYU(4) t  ADJTC150 

2  FRZU(4)  ,FXU{4) ,FYU(4)  ,FZU(4)  ,51  (4),F1FI(2),F1RI(2),  ADJ10160 

3  F2FI(2) ,F2RI(2),CAH(4),CBh(4),CGH(4)  ADJT0170 
DIMENSION  XP(4) ,YP(^),ZP(4),PHII(4) ,PSII(4)  ADJTOlfcO 
EQUIVALENCE     (XP ( 1 )  ,X  IP  ) ,  ( YP ( 1 ) , YIP ) , ( ZP ( 1 ) , Z IP ) , (PHII ( 1 ) ,PHI 1 ) ,  ADJT0190 

1                                  (PS1I(1),PSI1)  ADJT0200 

COMMON/ INPT 5/    IBTYP( 2) ,AK 1,AK2, PONE ,PTWO,PZERO ( 2 ) ,GN( 16, 2 ) , ZETAB ,  ADJT0210 

1  C0NE,CTW0,CTHREE,TAUA,TAU0(4) ,TLF(51 )  ,TTAU{51),  ADJT0220 

2  TRPME(  12),TW0T( 12)  ,TCT( 12 ) , TT ( 101 ) ,TPC ( 1 01 ) , TTR ( 101 ) AD JT02  30 

3  ,TTS(101)  ,BTLF,tTLF,DTLF,NTLF,BRPM,ERPM,NRPM,  ADJT0240 

4  BTT,ETT,DTT  ,NTT1,NTT2,NTT3,NTTS,XINPT5(9)  ADJT0250 
C0MM0N/COMP5/    T AU( 4 ) ,T OD ( 2) ,TQB (4) , PP ( 2 ) , TLAME ( 2 ) , PC ,R WDP I  V, JDEND, AD JT0260 

1  NBTYP,ARFAC3(2) ,RPSFE(2),RH0SMX(3),SLIPMX(3) ,SLIPP,  ADJT0270 

2  RH0MAX,RHOSAV(4),SRH0S(4) ,UGW(4),ABSU&W(4) ,VECS,  ADJT0260 

3  DELTAE ,PI015R,C0MEN5,TQE,RPME  ADJT0290 
COMMON  /INTR/  N fcQR ,T IMR, D1R,VARR ( 12 ) , DERR ( 12 )  ADJT0300 
DIMENSION  RPSn4),DRPSI(4)  ADJT0310 
EOUIVALtNCE(VARR(l),RPSI(l) ), (DERR( 1),DRPS1(1»)  ADJT03  20 

C  AD  JT  03  30 

C   SUBROUTINE  FOR  ADJUSTMENT  OF  TQB  ADJT0340 

C  CALLED  BY  SUBROUTINE  DAUXR,  WHICH  IS  CALLED  BY  SUBROUTINE  TIRFADJT0350 

C  AD jT 03  60 

XLAMB    =    TLAMB(JDEND)  ADJ10370 

DO    60    1=1,4,2  ADJT03faO 

ARPS    =     ABSiRPSKD)  ADJT0390 

ARPSl    =    ABS(RPSI(I+1))  ADJT0400 

ITRA    =    0  ADJT0410 

IF( ARPS. LE.ZETAB. OR. ARPSl.LE. ZETAB)    GO    TC    12  ADJT0420 

TQB(I)     =    -SIGN(TOB(I  ),RPSI(I ) )  ADJT0430 

10    T0B(I+1)    =    -SIGN(TQB(I+1),RPSI( I+l) )  ADJT0440 

GO    TO    60  ADJT0450 

12    IF( ARPS. LE.ZETAB.AND. ARPSl. LE. ZETAB)    GO    TO    15  ADJT0460 

ITRA    =    1  ADJT0470 

IFtARPS.LE. ZETAB)    ITRA=2  ADJT0-t60 

GO    TO    (16,26),     ITRA  ADJT0490 
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15 
16 


/5 
26 


35 


40 


44 

45 

46 


51 


55 

60 


TTT 

TIT 

TTT 

TTT 

TTT 

TTT 

J    - 

JJ 

GO 

IF{ 

TTT 

TTT 

TTT 

TTT 

TTT 

TTT 

J    = 

JJ 

GO 

TQb 

Tw6 

TQB 

bO 

TTT 

TTT 

IF( 

IF( 

TWB 

GO 

TTT 
TTT 
1F( 

TQrt 

L»0 

IF( 

TOB 

GO 

TQb 

co;>i 

RET 
tND 


( ABStFC (I  )«HI( l))/12.0).LT.ABS(TQb(l  ))  ) 

A    =    FC(I+1)     *    HI( 1*1) 

B    =    FCd  »       *    Hid  ) 

C    =    12.0    *    TuB( I) 

0    =     TLB(  I+l  ) 

E    -    P  PS  I  (  I) 

F    =    ^PSKI+l) 

1 
=     1+1 
TO    40 
( A3S(FC 


GO    TO    2  5 


FC( 
FC( 
12, 

TQB 
RPS 
kPS 


1*1 
=    I 
TO    40 
(  1  )     =IF 
(I)     ^    - 
(1*1  )    = 
TO    60 
XA    =    SI 
XB    =    SI 
ITRA.GT 
TTTXA*T 
(J)     = 
TO    4  6 
(  J)     =    0 
XC    =    TT 
XD    =    SI 
TTTXL*S 
( JJ)=0. 
TO    60 
A13S(TTT 
(JJ)     = 
TO    6  0 
(JJ)     = 
TINOF 
URN 


(I+1)*HI{ i+l))/12.0).LT.ABS(T0B( I  +  l  )) )       GO    TO    35 
I  )  *    Hl(  I) 

I+l)     *    HI(!+1) 

0  *    Twb( 1+1) 
(  I) 

1(1+1) 

1  (I) 


C(  1)     ^    HI(  I)  )/U.0 
ABS(TQB(I))     «    SiGN( 1.0,RPSI(1 ) ) 
-(ABS(FC( I+l)*hl(I+l) )/12,0)    *    SI&N(1.0,RPSI(1+1) ) 

GN(l.OtTTTb) 
GM(1.0,TTTF ) 
.0)    GC    TO    44 
TTXfc,GT.0*0)    GO    TO    45 
SICN(TOB(  J)  t    -TTTF.  ) 

.0 

TA    -       XLAMB    *( TTTB    -    TTTC) 

GNCl.CTTTXC) 

1GIM(  1.0»-TTTF)     .GT.    0.0)     GO    TO    51 

0 

XC/12.0).LT.A6S(TTTD) )    GO    TO    55 
SIGN(TQB(JJ)»-TTTF) 


■ABS(TTTXC/12.0)    =*    SIGNd.O,     TTTF) 


AD  JT  05  00 
ADJT05 10 
AD  JT  05  20 
ADJT05  30 
AD JT 05  40 
AD  JT05  5C 
ADJT05  60 
AD JT 05 70 
ADJTO5F0 
ADJT0590 
AD  JT  060C 
ADJT  06  10 
ADJT0fc20 
ADJT  06  30 
AD  J T  06  40 
ADJT 0650 
ADJT  0660 
ADJT 06 70 
ADJT  ObbU 
ADJT  06  90 
ADJT  07  00 
ADJT 0710 
ADJT  0720 
ADJT  07  30 
ADJT  07  40 
AD JT 07  50 
ADJT  07  60 
ADJT  07  70 
ADJT  07  80 
ADJT  07  90 
ADJT 0« 00 
ADJT  Ob  10 
ADJT  0620 
ADJT0B20 
ADJTOfc40 
ADJTG&50 
ADJT 08  60 
ADJTGfc70 
ADJTObdO 
ADJT  Ob  VO 
ACJTO'JOO 
ADJT  0910 
ADJT  09  20 
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DATE       01/14/76  TIME       1725  UPDATE    RECORD 


SUBROUTINE    BLKOl (NbLK, NBCRD,NSEQ ,NC ARD tDUM»NERR )  BLKIOOIO 

C                                     HV0SM-VD2    VERSION        .  BLK10020 

C                                     REVISED    OCTOBER    1975         CALSPAN    CORPORATION  BLK10030 

COMMON /HEAD/    VHED ( 20 ) ,CH tD( 20 ) , GHED ( 20 ) , SHED ( 20 ) ,THED( 20),  BLK10040 

1                                    NPAGE(20)  BLK10050 

C0MM0N/INPT/PHIO,THETA0,PSIO,P0,00,R0,XC0P,YC0P,ZC0P,U0,VO,W0,  BLK100  60 

1  A,B,DEL10,DEL20,DEL30»PHIRO,DEL10D,DEL20D,DEL30D,  BLK10070 

2  PHlRODtTF»TR,ZF,ZR,RHO,AKRStXMUR,  BLK10080 

3  XMS,XMUF,XIX,XIY,XIZ,X1XZ,CF,AKF,XLAMF,0MEGF,CFP,£PSF,BLK100  90 
H                                  RF,CRf AKR,XLAMR,OM£&R,CRP,EPSR»RRtTS,THMAX,DTCOMP,TOt  BLKIOIOO 

5  T1,DTCMP1»DTPRNT,M0DE,EBAR,EM,AAA,HMAX»HMIN,BET,G,  BLKlOllO 

6  HED(36),DADE (3) tXlR,Xl,Yl,Zl,X2,Y2tZ2,PHIC (50),DELb,  BLKI0120 

7  DELE,DDEL,NDEL,PSIF(50) ,TQF(50) ,TQR(50),TB,TEtTINCR,  BLK10130 

8  NZTAB,NZ5,XBDRY(4,5) ,PSbDRY(4t5) ,YbORY(2,5 ),NBX(5)  ,  ELKIOI^O 

9  NBY(5)tNTbLI »NTBL2»NTBL3,ZGP(21,21,5)  BLK10150 
C0MM0N/INPT/XB(5)  ,XE  <  £> )  ,  XINCR  (  5  )  tNX  (5  )  ,  YB  (  5  )  ♦  YE  (  5)  ,  YINCR  (  5  )  ,  NY  (  5  )  ♦  BLKlOl  60 

1                            XXZGP5(21) ♦YYZGP5(21) ,AMUG(5) ,PSbDR0(4,5) ,UVWMIN ,PORMI N  BLK10170 

COMMON/ INPT 1/YC IP ♦ YC2P,ZC2PTDELTCt PHI  CI tPHIC2tAMUC,X IPS,  BLKlOlbO 

1  CPSP,OMGPS, AKPS,EPSPS,XPS,RWHJB,RWHJE,DRWHJ,INDCRB,  BLK10190 

2  PS1FI0,PSIFD0  BLK10200 
DIMENSION  YC1P(2)  BLK10210 
EQUIVALENCE  ( YClP (1 )  ,YC1 P  )  BLK10220 
COMMON    /INPT4/    F IDJ ( 2 ) ,F I WJ ( 2 ) , ARBR (2 ) ,NXUGMU,NXFRCP,XXUGMU ( 6) ,  BLK10230 

A                                            XXFRCP(6)  ,XMUMAT(6,6,4),XMXPMT(6,6,4),  BLK102'^G 

B                                          XMXSMT(6,6,4),SLIPMT(6,6,4)  ,CT('^)  ,XMUM(4),  BLK10250 

C                                            XMUXP(4),XMUXS(4) ,RRMC(4),RRM(^),C0MEN4  BLK10260 

EQUIVALENCE     (FIDJ(l)  ,F  ID  JF  )  ,  (  FI  DJ  (  2  )  ,  Fl  D  JR  )  ,  (HWJ(  1),FIWJF)  BLK10270 

EQUIVALENCE     (F IWJ ( 2 ) ,F IW JR) , ( ARBR( 1 ) , ARBR F ) , ( ARBR( 2 ) , ARBRR )  BLK102B0 

COMMON    /INSUS/    X  IF ,RH0F,TSF,PHlF0, PHIFOD, DEL40, DFL40D, ISUS ,  BLK10290 

1  AKDS,AKDS1,AKDS2,AKDS3,PHIRC(50),DTHF(50),DTHR(50),BLK10300 

2  NCAMF,NCAMR,NDTHF,NDTHR  BLK10310 
COMMON/DRIVTT/TPATH,DELPTH,TCTEST(6),ITESTT,ITCHNG,1PATHT,IDR1VE,  BLK103  20 

1                                       IDRVER,1BU&  BLK10330 

C                    IPATH1    -    STOP    FOR    DRIVER    MODEL  BLK10340 

C                    IDRIVE   -    NOT    ZERO,     SAMPLE    TIME    FOR    DRIVER    MODEL  BLK10350 

C                    ITCHNG    -    NOT    ZERO,    CHANGE    DESIRED    SPEED    AND    DISTANCE  BLK10360 

C                    ITESTT,TCTEST(6)    -    INDEX    AND    INPUT    TIMES    FOR    SPEED   CHANGES  BLK10370 

COMMON/NEWCRB/    YC3P, YC4P  ,YC5P,YC6P , YCLP,  BLK10380 

1  ZC3P,ZC4P,ZC5P,ZC6P,ZCLP,  BLK1G390 

2  PHIC3,PHIC4,PHIC5,PHIC6,NCRBSL,  BLK10400 

3  TANPC3,TANPC4,TANPC5,TANPC6,TANPCL,  BLKIOAIO 

4  PHIC3R,PH1C4R,PHIC5R,PHIC6R,PHICLR,  BLK10420 

5  YCMP(6),ZCMP(6),PHICM(6)  BLK10430 
DIMENSION  DUM( 18)  BLK10440 
DATA  NBS/4/  BLK10450 
NBT  =  NBCRO+1  BLK10460 
IFINBT.LT.l.OR.NBT.GT.NBS+l)  GO  TO  98  BLK10470 
GO  10(100,101, 102, 103, 104), NBT  BLK10480 
GO    TO    98  BLK10490 
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IGO 


10 


101 


102 


103 


104 


9e 
99 


IF( 

DO 

HEO 

GO 

IF( 

TO 

Tl 

DTC 

DTP 

THM 

UVW 

PQR 

COM 

GO 

IF( 

IS'J 

IND 

NCR 

DEL 

IDR 

IBU 

10 

IF( 

\PA 

NPA 

IF( 

GO 

1F( 

MO  J 

EBA 

EM 

AAA 

HMA 

HMI 

BET 

GO 

1F( 

NPA 

NPA 

NPA 

NPA 

NPA 

NPA 

NPA 

f>lPA 

GO 

NER 

RET 

END 


NCARD.NE.IOO)  GO  TC  98 

10  1=1,18 

( I )  =  DUM ( I ) 

TO  99 

NCARD.NE 
=  DUM 


GC  TO  9b 


DUM 
DUM 
DUM 
DUM 
DUM 

DUM 


OMP 

RNT 

AX 

KIN 

KIN 

EN4 

TO    Q«i 

NCARL  .NE. 

S    =     IFIX( 

CRb    ^    IFI 

ESL    =    IFI 

TC     =-    DUM{ 

VER    ^    IFI 

G    =     1FIX( 

=    0 

IDRVlP.NE 

GEda)    ^ 

GE(IO)    = 

INDCPb.NE 

TO    99 

NCARD.NE. 


101) 

(1) 

(2) 

(3) 

(4) 

(5) 

(6) 

(7) 

(B) 


102  )    GO    TO    9  8 
DUM(  1)  ) 
X{DUM(2  )  ) 
X(DUM(3)  ) 
4) 

XIDUM(5) ) 
DUM (6)  ) 


10    =    1 


NPAGUS)     =    1 


GO    TC    9  8 


-  DUMd 
■■  DUM  (2 
=  DUM (3 
■  LUM(4 
■■    DUM  (5 

N  =  DUM  (6 
-    DUM (7 

TJ    99 

NCARD.NE. 


GE(^  )  = 
Gtib)  = 
G  L  (  7  )  = 
GE(6  )  = 
GE(9)  = 
GE(10)  = 

Gt(lH)= 

GE(  19)  = 

TO  V9 
P  =  1 
URN 


.0) 

10 
10 
.0) 

103) 

) 

) 

) 

) 

) 

) 

) 


104)  GC  TO 
FIX ( DUM (  1) 
FIX(DUM( 2) 
FIX(DUM(3) 
FIX(DUM( 4) 
F1X(DUM( S) 
FIX(DUM(6) 
FIX ( DUM ( 7) 
FIX(DUM(8) 


9  8 


BLKl 
BLKl 
PLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
PLKl 
ELKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
ELKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 
BLKl 


0500 
Oi.  10 
0b;:0 
0530 
Ob  40 
05  to 
05  60 
Op  70 

05  EO 
03  90 

06  00 
06  10 
06  20 
06  30 
06  4  0 
Go  50 
06  60 
06  70 

06  iO 
0690 

07  00 
07  10 
07  20 
07  iO 
07^0 
0750 
07  60 
07  70 

07  80 
0790 
OtOO 

08  10 
0820 
0830 
00  40 
08  50 
0860 
Ob  70 
Of' 80 

08  90 

09  00 
09  10 
09  20 
09  30 
0<>4  0 
09  50 
09  60 
09  70 
09  80 
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SUBROUTINE    BLK02 ( NBL K , NBCRD ,NSEQ ,NC ARD , DUM tN t KR  )  BLK20010 

C                                      HVOSM-VD?    VEKSION  &LK20020 

C                                      REVISED    OCTUBER    1975          CALSPAN    CORPORATION  BLK20030 

COMMON/HfcAD/    VHED ( 20 ) » CHbD ( 20 ) , GHt D { 20 ) , SHED ( 20 ) ,THfcD( 20),  BLK^OOAO 

1  NPA&E(20)  BLK20050 
COMM0N/lNPT/PHI0,TH6TAO,PSIO,P0,Q0,RO,XC0P,YCuP,ZC0P,U0,V0,W0,  BLK2  00  60 

L                                   A,B,DEL10,DEL20,DEL30,PHIR0,DfcL10b,DLL20D,DEL30D,  BLK20070 

2  PHIROD,TF,TR,ZF»ZR,RHO,AKRS,XMUR»  BLK20080 

3  XMS,XMUFtXIXtXIY»XIZ,XIXZ,CF,AKF ,XLAMF ,DME&F,CFP,EPSF,BLK2  00  90 

4  RF,CR»AKRt  XLAMR,0MEGR,CRP»EPSR,RR,TS,THMAX,DTC0MP,70,  BLK2  0I00 

5  T1,DTCMP1,DTPRNT,M0DE, FBAR, EM,AAA,HMAX,HMIN,BET,&,  BLK20110 

6  HED(36) ,DADE (3) ,XIR,X1,Y1,Z1,X2,Y^,Z2,PHIC (50) ,DELB,  BLK20120 

7  DLLt,DDEL,NDtL,PSlF( 50) ,T OF (50) ,TCR ( 50  )  ,T& ,T E» 1 INCR t  BLK2  0130 
6  NZTAB,NZ5,XBDRY(4,5 ) ,PSBDRY(4,5) ,YBDRY(2,5 ),NBX( 5) t  &LK20140 
9                                  NBY(5) ,NTBH ,NTBL2tNTBL3tZGP(2if 21,5)  BLK20150 

COMMON/ INPT/XB( 5) ,XE ( 5 ) , X  INCR ( 5 ) ,NX(5),YB ( 5 ) , Yl ( 5 ) , YINCR ( 5 ) , NY ( 5 ) , BLK2 01 fcO 

1                              XXZGP5(21)  ,YYZGP5(21)  , AMUG( 5 ) ,PSBDRO ( 4  ,5 ) ,UVWM IN ,PORMI N  BLK2  0170 

COMMON/ INP T 1/Y CI P,YC2P,ZC2P,DELTC, PHI  CI ,PHIC2 ,AMUC,XIPS,  BLK2  0lfcO 

1  CPSP,OMGPS  -AKPS,EPSPS,XPS,RWHJ8,PWHJE  ,DRWHJ,INDCRB,  bLK20190 

2  PSIFI0,PSIFD0  ELK20200 
DIMENSION  YC1P(2)  BLK20210 
EQUIVALENCE  (YC  IP (  1 )  ,YC 1 P  )  BLK20220 
C0MM0N/INPT3/    AKFC, AKFCP ,OMEGFC , AKFE , AKFEP ,OMEGFE, AKRC , AKkCP,  BLK2  02  30 

1                                       0MbGRC,AKR£,AKREP,0MEGRE,END3  bLK202AG 

COMMON /A  PTABL/    APFR(21,2  )  ,IAPFR  (2)  ,  DAPFB  ,  DAPF  E  ,  DDAP»^ ,  N  APF,  bLK2  02  50 

1                                            DAPRB,DAPRE,DDAPR,NAPR  BLK20260 

DIMENSION    APF(21),APR(21  )  BLK20270 

EQUIVALENCE     ( APFR ( 1,  1 )  , AP F( 1 )  ) , ( APFR( 1 ,2 )  ,  APR (  1 )  )  BLK20280 

COMMON    /INPT4/    FIDJ ( 2 ) ,F I WJ (2 ) , ARBR (2 ) ,NXUGMU , NXFRCP,XXUGMU( 6 ) ,  BLK20290 

A                                            XXFRCP(6) ,XMUMAT( 6,6,4) ,XMXPMT(6,6,4),  BLK20300 

B                                            XMXSM7(6,6,^),SLIPMT(6,6,4),CT(4) ,XMUM(4) ,  BLK20310 

C                                            XMUXP(4),XMUXS(4) ,RRMC(4) ,RRM(4),C0MEN4  BLK20320 

EQUIVALENCE     (F IDJ ( 1 ) , F ID JF ) , ( FI DJ( 2 ) , F ID JR ) , ( FI WJ( l),FIWJF)  BLK20330 

EQUIVALENCE     (FI WJ ( 2 ) ,F  IW JR ) , ( ARBR( 1),ARBRF), ( ARBR( 2),ARBRR )  BLK20340 

COMMON/ INPT 5/    I BTYP ( 2 ) , AKl , AK2, PONE ,PTWO, PZERO( 2 ) , GN( 16 ,2 ) ,ZETAB,  BLK20350 

1  C0NE,CTW0,CTHREE,TAUA,TAU0(4),TLF(51),TTAU(51),  BLK20360 

2  TRPME( 12),1W0T(12) ,TCT(12),TT(101),TPC(101 ),TTR(101)BLK20370 

3  ,TTS(101),BTLF,ETLF,DTLF,NTLF,BRPM,ERPM,NRPM,  BLK20380 

4  BTT,ETT,DTT,NTT1,NTT2,NTT3,NTTS,XINPT5(9)  BLK20390 
COMMON    /INSUS/    XIF ,RH0F, TSF,PHIFO, PHI FOD, DEL40tDEL40D, ISUS ,  BLK20400 

1  AKDS, AKDS1,AKDS2,AKDS3,PH1RC(50),DTHF(50),DTHR(5G),BLK2  04  10 

2  NCAMF,NCAMR,NDTHF,NDTHR  BLK20420 
DIMENSION  DUM(18)  BLK20430 
DATA  NBS/17/  BLK20440 
NBT=NbCRD+l  BLK20450 
IF(NBT,LT.1.0R.NBT.GT.NBS+1)  GO  TO  98  BLK20460 
GO    TO ( 2 GO, 20 1, 202, 203, 204, 205, 2 06, 207, 208, 209, 2 10, 2 11, 2 12, 2 13, 21 4, BLK2 0470 

1                 215, 216, 217), NBT  BLK20480 

GO    TO    98  BLK20490 
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UPDATe    RFCCRD 


200 


10 


201 


.02 


203 


30 


20A 


205 


IF( 

DO 

VHE 

GO 

IF( 

XMS 

XMU 

XMU 

XIX 

XIY 

XI2 

XIX 

XIR 

XIF 

GO 

IF( 

A 

t'j 

TF 

TR 

RHQ 

TS 

RHJ 

TSF 

G    = 

IF( 

GO 

1F( 

XI 

Yl 

Zl 

X2 

Y2 

12 

DO 

IF( 

COM 

ZF 

ZK 

GO 

IF( 

AKF 

AKF 

AKF 

AKF 

AKF 

XL  A 

OME 

OMt 

GO 

IF{ 


NCARC»N£.200) 
10     1  =  1,  18 
D<  I  )     =    DUM(  I ) 
TC    VV 

NCAPL,NE.20 

-  DUM(  1  ) 
F  =  L.UM(2) 
R     =    DUM { 3  ) 

=    DUM(4) 

=     L  UM { 5  ) 

=  b  UM  (  &  ) 
Z     =    DUM(7) 

=  UUM(8) 
=     OUMIV) 

NCARC.NE.20 
=    DUKI  1) 
=    L  UV ( 2  ) 

=   r;uM(3) 

=     [)L'.M(h) 

=•  'j\mi5] 

-  DU^M6) 
F    =    uUM(7) 

=  iijM(e) 

DUM(9).NE.O 
TO    </^ 

NCARD*NE.203 ) 
=    DU^'(1) 

-  DUy(2) 
=    DUM(3) 

=    0UM(3) 

=    DUM{6) 

3  0    J =1,6 

L.UM(  J).iNE.0.0y 

TINUE 

=    DUM(7) 

=i    DUN  (6) 

70    99 

NXARD,NE,204) 

=    DUMil ) 
C  =    DUM(2) 

CP       =    DUM(3) 
E  =    DUM(^) 

EP  =  DUM{5) 
MF  =  DUi^{6) 
GFC  =  DUM(7) 
GFE  =  DUM{6) 
TC  99 
NCAPD,Nt.205)GO 


GO    TO    98 


)    GO    TO    9fa 


)    GO    TO    96 


0)    G    =    LUM(9) 


GO    10    9t; 


NPAGf(lfc)     =    1 


GO    TO    96 


TO    98 


BLK2  0b00 
bLK2  05  10 
BLK20520 
BLK2  0!i30 
eLK2  01>A0 
BLK205  50 
BLK:05  60 
BLK2  05  70 
BLKIOl^bO 

BLK2  060G 
PL.  K2  06  10 
BLK2  06  20 
BLK2  06  3C' 
bLK206^0 
BLK2  06b0 
BLK2G66G 
elk;:  06  70 
fcLK2  06e'0 
BLKL06«0 
ELK2C7  00 
bLK2  07 10 
BLKi  07  20 
BLK2  07  30 
BLK207AO 
8LK2  07  50 
bLK2  07  60 
BLK2G7  70 
BLK2C7fcO 
BLK2G7VG 
BLK2  0BC0 
ELK2C»6  10 
BLK2  06  20 
BLK2  0(.' 30 
BLK20fa^0 
BLK^Ot  50 
BLK2GM60 
PLK2  0b70 
ELK2  0fci;0 
BLK2  08  90 
BLK2  09  00 
BLK2  09  10 
ELK209L0 
BLK2  0930 
BLK2G9A0 
BLK2  0<>5C 
bLK209<^0 
bL.K20S70 
BL  K20Vt;0 
BLK2  0<?90 
BLK2  1000 
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AKR             -    DUM  (1  )  BLK2  10  10 

AKRC          =    DUM(2)  BLK21020 

AKRCP       =    DUM(3)  BLK21030 

AKRE          =    DUM(A)  BLK2 1040 

AKRtP       =    DUM(5)  BLK21050 

XLAMR       =    DUM(6)  BLK21060 

OMEGRC    =    DUM(7)  BLK2  1070 

OMEGRt     =    DUMia)  BLK21060 

GO    TO    99  BLK2  1090 

206  IF(NCARD.NE.206)  GO  TO  98  BLK21100 
CF  =  DUM(l)  BLK21110 
CFP  =  DUM(2)  BLK21120 
EPSF  =  DUMOJ  BLK21130 
CR  =  DUM(4)  BLK^1140 
CRP  =  DUM(5)  BLK21150 
EPSR  =  DUM(6)  BLK21160 
GO    TO    9S  bLK211V0 

207  IF(NCARD,Nt.207)  GO  TO  98  BLK21160 
RF  =  OUM(l)  BLK21190 
RR  =  DUM(2)  BLK212G0 
AKRS  =  DUM(3)  BLK2121G 
AKDS  =  DUM(4)  BLK212i0 
AKDSl  =  DUM(^)  BLK2  1230 
AKyS2  -  DUM(6)  BLK21240 
AKDS3  =  DUM(7)  BLK21250 
GO    TO    99  BLK21260 

208  1F(NCARU.N£,208)  GO  10  98  BLK21270 
XIPS  =  DUM(l)  BLK212eO 
CPSP  =  DUM(2)  BLK21290 
OMGPS  =  DUM(3)  BLK21300 
AKPS  =  DUM (4)  BLK2  1310 
EPSPS  ~  DUM(5)  BLK21320 
XPS  J=  DUM(6)  BLK21330 
GO    TO    99  BLK21340 

209  IF(NCARO,NE.209.0R,NStQ.NE.O)  GO  TO  98  BLK21350 
DELB  =  DLW(l)  BLK21360 
DELE  =  DUM(2)  BLK21370 
DDEL  =  DUM  (3)  BLK213e0 
NDTHF  =  DUM(4)  BLK2  1390 
NDTHR  =  DUM(5)  BLK21400 
NDEL  =  (DELE-DELB)/DDEL  +1  BLK21410 
NCRDS  =  {NDEL-l)/9  +  1  BLK21420 
CALL  TREAD(NCARD,NCRDStNDEL,50,PHIC»NERR»  BLK21430 
IFJNERR.NE.O)  GO  TO  «8  BLK21440 
IF(ISUS.EO.l)  CALL  TREAD ( NCARD, NCRDS , NDEL , 50, PHIRC tNERR)  BLK21450 
IF(NERR,NE.O)  GO  TO  98  BLK21460 
IF( NDThF,NE.O)  CALL  TR EAD{NCARD , NCRDS fNDE L , 50 ,DTHF ,NERR )  BLK21470 
IF(NERR.NE.O)  GO  TO  98  6LK21480 
IF(NDTHR»NE,0)  CALL  TREAD CNCARD , NCRDS , NDEL, 50 tDTHR ,NERR )  BLK2149C 
IF(NERR.NE.O)  GO  TO  98  BLK21500 
GO    TO    99  BLK21510 
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210 


211 


212 


213 


21^ 


215 


IF{MCARD,NE.210.0R.NSEQ.Mi.O)    GG    TO    S& 

0APF3    =    DUM(l) 

DAPFE    =    DUM(2) 

DDAPF    =    DUMO) 

NAPF    =     (DAPFE-DAPFB)/DDAPF    *     1 

NIC^DS    =     (NAPF-l)/9    +     1 

CALL     TREAD(NCARDfNCRDS»NAPF,21»APF»NERR ) 

1APFR(  1)    =     1 

IF(NERR.NE.O)    GC    TO    98 

GO    TO    99 

IF(NCARD.NE.211.0R.NSEQ,NE,0)    GC    TO    98 

DAPRB    =    DUM( 1) 

DAPRE    =    DUM(2) 

DDAPR    =    DUM(2) 

NAPR    =     (DAPRt-DAPRB) /DbAPR    *     1 

NCRDS    =    (NAPF-l)/9    ♦     1 

CALL    TRLAD(NCARD,NCR[;StNAPR,21,APR  ,NtRR) 

IAPFR{2  )    =     1 

IF(NERR.NE.O)GD    TO    98 

GC    TO    ^^ 

IF(NCARD.NE.212 )    GG    TO    98 

FIUJF    =    DUMJ 1) 


FIWJF 
FIL  JR 
FIWJR 
ARBRF 
ARbRR 


ARERF    = 
APBRR    = 

GC     TO    9b 


1.0 
1.0 


) 


LUV,(2) 

DUM(3) 

CUM  (4) 

DUM( 5) 

DUM(6) 
IF( ARBRF. EO. 0.0) 
IF( ARERR.EQ.Q.O) 
GO    TO    9  9 
IF(NCARD.NE.213 ) 
AKl     =    DLiM(l) 
AK2    =    DUM(2) 
PCNE    =    DUMO) 
PTWD    =    DUM{4) 
PZERO(l)    =    DUM(5 
PZER0(2)    =    DU«(6) 
ZETAb    =    DUM(7) 
GC    TO    99 

IF(NCARU.NE.214.0R.NStQ.Nt,G) 
IBTYP(I)    =    DUK(l) 
IBTYP (2  )    =    DUM(2) 

CALL    T2RlAD(NCAR0, 1 6 , 1 6, 2 ,GN , NERR) 
IF(NERR.NE.O )    GC    TO    9fc 
GO    TG    99 

lF(\CARD.Nt.215.OR.\'SEQ.NL.0)    GO    TO 
BRPM    -    LLM(  1  ) 
ERPM    =    DUM(2) 
DRPM    =    DUMO) 

NRPM    =     (ERPM-BRPM)/DRPM    ♦    1.2 
NCRDS    =    (NRPM-1 )/9    ♦    1 


0    TO    9b 


98 


BLK21b2G 
BLK2  15  30 
BLK21f>40 
eLK2  1550 
BLK215  60 
BLK2  1570 
BLK215EC 
BLK2  1390 
BLK21600 
BLK21610 
BLK216  2C 
BLK21630 
BLk2  16  40 
BLK216i)0 
BLK21660 
6LK2  1670 
&LK2  16E0 
BLK2i69C 
bLKiL  1700 
BLK2  1710 
BLK2  17^0 
BLK2  1730 
BLK217AO 
BLK2  17i.O 
BLK^  17^-0 
bLK2  17  7C 
BLK2  17  EO 
BLK2  1790 
BLK2  1bOO 
BLK21010 
BLK^182G 
BLK2  1830 
BLK2  1640 
ELK21&t.0 
BLK21660 
BLK21870 
BLK218ft0 
BLK21890 
BLK2 1900 
BLK2  1910 
BLK21920 
BLK2  1930 
eLK21940 
BLK219t.0 
BLK2  19t0 
BLK2  19  70 
BLK2  19ft0 
BLK2i9  90 
BLK2  2000 
BLK2  20  10 
BLK2  2020 
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216 


217 


98 
99 


CALL    TRfcAD(NCARD,NCRDS,NRPM»12,TW0T,NERR) 

IF(NERR.NE.O)    GC    TO    9o 

CALL    TREAD(NCAR0,NCRDS,NRPM,12,TCTfNERR) 

IF(NERR.NE.O)    GO    TO    98 

GO    TO    99 

IF(NCARD.NE.216.0R,NSEC(.Nfc,0)    GO    TO    98 

BTLF    =    DUM(l) 

ETLF    =    DUM( 2) 

DTLF    =    DUMO) 

NTLF    =     (ETL(^-BTLF)/DTLF    ♦    1.2 

NCRDS    =    (NTLF-l)/9    +     1 

CALL    TPtAD(NCARDfNCRDS,NTLF,51,TLF,NFRR) 

IF(NERR.NE.O)    GO    TO    98 

GO    TO    99 

IF(NCARD.NE.217)    GO    TO    98 

CONE    =    OUM( 1) 

CTWO    =    DUM(2) 

CTHREE    =   DUMO) 

GO    TO    99 

NERR=    1 

RETURN 

END 


BLK2  20  30 

BLK22040 
BLK220i>0 
BLK2  2060 
BLK220  70 
BLK220&0 
BLK2  20  90 
BLK22100 
BLK22110 
BLK22120 
ELK22130 
BLK22140 
BLKL2150 
BLK22160 
BLK22170 
BLK22160 
BLK22190 
BLK2  2200 
BLK2  2210 
BLK22220 
BLK22230 
BLK2  22  40 
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SU3K0UTIME    B LK03 ( NBLK tNBC RD , NSt U »NCARD, DUM»NF RR )  BLK30010 

C  HV0SM-VD2:    VERSION  BLK30020 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION  BLK3C030 

COMMON /HEAD/    VH t D ( 20 ) , CHED { 20 ) , GHED (20 ) , ShEO ( 20 ) »THED(20)t  BLK3G0  40 

1  NPAGE(20>  BLKS0050 

C0MM0N/INPTl/YClP,YC2P,ZC2P,DtLTC,PhICl , PH1C2 , AMUC ,XI PS ,  BLK3  00  60 

1  CPSPtOMGPS, AKPS,EPSPS,XPS»RWHJB,kWHJE  tDRWHJ » INDCRB,       BLK30070 

2  PSlFIOf PSIFDC  BLK300fcO 
Di;-1ENSI0N  YC1P(2)  BLK30090 
EQUIVALCINCE  ( YC  1  P  ( 1)  ,  YC  1  P  )  BLK301G0 
COMMON    /TIRIN/    AKT  {  4  )  ,  SI  GH  ^  )  ,  XL  AMK  A  )  ,  AO  (  A  )  »  A  i  (  A  )  , /S2  (  4  )  ,  A3  ( A  )  ,  ELK30110 

1  AA«A)  ,GMEGT(A)  ,AMU(  A),RW(4)  ,FJP(3f),4)  ,A23A(A),  bLK30120 

2  Al2(A),0-rr2A2(A)  ♦0M12MI(4)  ,A23(4),niR(A)  BI.K3  0130 
COMMON    /INPTA/    F ID J ( 2 ) , F I WJ ( 2 ) t ARBR (2 ) , NXUGMU ,NXFR CP tXXUGMU < 6 ) ,  BLK3G1A0 

A  XXFRCP(6)  ,XMUMAT(6,6,A) tXMXPWT (6,6,4),  BLK30150 

b  XMXSMT((S,6,A)  »SLIPMT(6,6,A)»CT  (4)  ,XMUM(A)  ,  BLK30160 

C  XMUXP  (4  ),  XMUXS{4)  ,RRMC(h)  ,RRyi(4)  tCOMENA  BLK30170 

LwUlVALtNCE     (F1CJ( 1)  ,FIDJF)  , (FIDJ(2),FIDJP),(FJWJ( 1),F1WJF)  BLK301fc0 

L QUI  VALENCE     ( F I W J ( 2 )  ,  F I W JK ) , ( ARBR( 1  )  , ARBR F ) , ( ARBR ( 2 ) t ARtRR )  BLK3  0190 

DIMENSION    DUM(  IK  ),T0UM(<?,4)  BLK3C20C 

DIMENSION    IDUM 1(6,6)  ,1 DUM2l6,6) ,TDUM3{6,6 ) tTDUMH(6,6)  BLK302  10 

LATA    NBS/6/  BLK2  0220 

NbT    =    NBCRD+l  BLK30230 

IF(NBT.LT.1«CR.NBT.GT,NBS+1)    GO    TO    98  BLK3G240 

GO    TO     I  300, 301, 302, 303,304, i05) ,NBT  BLK30250 

GO    TO    9fc  BLK30260 

300  IF(NCARL.NE.300)  GO  TO  9b  BLK30270 
DO    10     1=1,18  BLK3  02  80 

10    THED(I)     =    DUM(l)  BLK30290 

GO    TO    99  bLK3u300 

301  IF(NCARb,NE.301  )  GO  TL  96  BLK30310 
niR(l)  =  DUM(l)  BLK30320 
1TIR{2)  -  DUM(2)  BLK30330 
1TIR(3)  -  DUM(3)  ELK3Ci34G 
IT1R{4)  =  DUM(4)  BLK30350 
DC    319     1-1,4  BLK3  03  60 

319    AMU(I)     -    DUM{5)  BLK30370 

RWHJE     =    DUM(6)  BLK303faO 

DRWHJ    =    CUM (7)  BLK3  03  90 

NX FRCP    =    IFIXIDUM{8))  BLK3  04  00 

NXUGMU    =    IFIX(DUM(9))  BLK30410 

CALL    TRtAD(NCARD,l,NXFRCP,f ,XXFRCP,NERR  )  eLK3G420 

IF(NERR.NE.O)    GL    TO    96  BLK3043C 

CALL    TREAD(NCARD,1,NXUGMU,6,XXUGMU,NERR)  &LK30440 

IF(NbRR.NE.O)    GO    TO    98  BLK3G4t)0 

GO    TO    99  bLK3  0460 

302  IF(NCARD.NF.302)  GO  TO  9ti  BLK30470 
NTIR  =  DUM(l)  5LK3  04  60 
GO    TO    320  BLK30490 
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303  IF(NCARD.NE,303)  GO  TO  96  BLK30500 
NTIR  =  DUM( 1 )  BLK30510 
GO    10    3i:0  BLK30520 

304  IF(NCARD.NF.304)  GO  TO  98  *  bLK30530 
NTIR  =  DUM(l)  BLK3G5A0 
GO    TO    320  BLK30i^fiO 

305  1F(NCARD.NE.305)  GO  TO  9b  BLK30560 
NTIR    =    DIW(  1  )  BLK305  70 

320  CALL  TREAD(NCARD,1,8,9,DUM,NERR)  bLK30380 
IF(NERR.NE.O)  GO  TO  96  bLK30590 
DO  321  1=1 »4  BLK3G600 
1F( 1TIR(I),NL.NTIR)  GO  TO  321  BLK30610 
AKT{  I  )  -  DUMd  )  BLK30620 
SIGTd)  '=DUM(2)  BLK30630 
XLAMT(I)  =  DUM(3)  BLK30640 
A0(I)  =  DUM(4)  BLK30650 
Al( I)  =  DUM(5)  BLK30660 
A2(I)  ~  DUM(6)  BLK306  70 
A3( I)  =  DUM<7)  BLK30660 
A4( I  )     =    DUW(8J  BLK30690 

321  CONTINUE  BLK30700 
CALL  TRFAD(NCARU,1  ,5,9,00^1, NERR)  bLK30710 
IF(NERR.NE.O)  GO  TO  96  BLK30720 
DO  322  I=lt4  BLK30730 
IF( 1TIR( I) .NE.NTIR)  GOTO  322  BLK30740 
OMEGT(l)  =  DUM<1)  BLK30750 
RW( n  =  DUM(2)  BLK3  0760 
XMUM(I)  =DUM(3)  BLK30770 
CT(I)  =  DUM(4)  BLK30780 
RRMC(I)     =    DUM(3)  BLK30790 

322  CONTINUE  BLK30800 
CALL  T2READ(NCARD,6,NXFRCP,NXUGMU,TDUM1,NERR)  BLK30dl0 
IFCNERR.NE.O)  GO  TO  98  BLK30820 
CALL  T2READ(NCARD,6tNXFRCP,NXUGMU,TDUM2,NERR)  BLK30630 
IF(NERR»NE.O)  GO  TO  P8  BLK30840 
CALL  T2READ(NCARDt6,NXFRCPfNXUGMUtTDUM3tNERR)  BLK30850 
IF(NERR.NE,0)  GO  TO  98  BLK30860 
CALL  T2READ(NCARDf6,NXFRCP,NXUGMUf TDUM4fNERRJ  BLK30870 
IF(NERR.NE,0)  GO  TO  98  BLK30880 
DO  325  1=1,4  BLK30890 
IF(ITIR(I).NE.NT1R)  GO  TO  325  BLK3G900 
DO  326  J=1,NXFRCP  BLK30910 
DO  326  K=1,NXUGMU  BLK30920 
XMUMATl J,K,I )  =  TDUM1(J,K)  BLK30930 
XMXPMTl J.K.I )  =  TDUM2(J.K)  BLK30940 
XMXSMT(J.K,I)    =    TDUM3(J,K)  BLK30950 

326    SLIPMT(J,KfI)    =    TDUM4(J,K)  BLK30960 

325    CONTINUE  BLK30970 

GO    TO    99  BLK309e0 

98  NERR    =1,0  BLK30990 

99  RETURN  BLK31000 
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SUBROUTINE  BLK04(NBL 
C  HV0SM-VD2    VE 

C  REVISED    DCTO 

COMMON/hEAD/  VHED(20 
1  NPA&E(2 

COMMON/INPT/PHIO»THE 

1  A,B,0EL1 

2  PHIROD,T 

3  XMS.XMUF 

4  RF,CRfAK 

5  TltDTCMP 

6  HED(36), 

7  DELE, DDE 

8  NZTAb,N2 

9  NBY(5),N 
COMMON/INPT/XB{ 5),XE 

1  XXZGP5(21) 

C0MM0N/INPT5/    IBTYP( 

1  CONEtC 

2  TRPM£( 

3  ,TTS(10 

4  BTTtET 
C0MM0N/DRIVI/NEN,EMD 

1  TESTBO, 

2  TL,S<5, 

3  VGR12,V 

4  TESTT(5 

5  BFPltBF 
COMMON /DRIVE /EN, FKD, 

1  TESTRl, 

2  TRKIN,T 

3  APDtDEL 

4  AXP,AYP 

5  TERMX,T 

6  PSIFFH, 

7  PPD(IO) 

8  OEND 
DIMENSION  DUM( lb) 
DATA    NBS/11/ 

NBT  =  NBCRD+1 
IF(NBT.LT.1.0R.NBT.G 
GO  TO  (400,401,402,4 
GO    TO    98 

400  IF(NCARD,NE.400)    GO 
00    10    1=1,18 

10    CHED(I)     =    DUMd) 
GO    TO    99 

401  IF(NCARD,NE,401.0R,N 
TB  =    DUM(l) 


K,NBCRD,NSEQ 

RSION 

BER    1975         C 

),CHeD4;'0),G 

0) 

1AO,PSIO,PO, 

0,DEL20,bEL3 

F,TR,ZF,ZR,R 

,XIX,XIY,XIZ 

R, XLAMR,OME& 

1,DTPRNT,M0D 

DADE (3) ,XIR, 

L,NDEL,PSIF( 

5,XBDRY(4,5) 

TBL1,NTBL2,N 

(5),XINCR(5) 

,YYZGP5(21) , 

2)  ,AK1,AK2,P 

TW0,CTHREE,T 

12),TW0T( 12) 

1),BTLF,ETLF 

T,DTT,NTT1,N 

T,ES,DS,APDr- 

TSTS10,TSTS2 

2)  ,N1RAN,YTR 

GR23,VGR34,V 

),DESSI(5) ,D 

P2,DR1END 

FK.P,FKS1,FKS 

TESTR2,THESK 

MT,DESS,DIST 

TAX,DELTV,     J 

,DI,UP,XVP,Y 

ERMY  ,TEMPOR, 

TITE,DPSISF, 

,NPD,KCOUNT, 


,NCARD,DUM,NERR) 

ALSPAN    CORPORATION 
HED(20) ,SHED(20) ,THED( 20), 


i)0,RO,XCO 
0,PHIRO,D 
HO, AKRS,X 
,XIXZ,CF, 
k,CRP,tPS 
E,EBAR,£M 
X1,Y1,Z1, 
50)  ,TQP(5 
,PS6DRY(4 
TBL3,ZGP( 
,NX(5),YB 
AMUG(5),P 
ONE,PTWO, 
AUA,TAUO{ 
,TCT(12), 
,DTLF,NTL 
TT2,NTT3, 
\X,FKDO,F 
0,TSTR10, 
ANS(6) ,GE 
&R43,VGR3 
ISTI(5),P 


P,YCO 

ELIOD 

MUR, 

AKF,X 

R,RR, 

,AAA, 

X2,Y2 

0  )  ,  T  C 

,5)  ,Y 

21,21 

<5),Y 

SBDRO 

PZERC 

4),TL 

TTdO 

F,BRP 

NTTS, 

KPOtF 

rSTR2 

AR1,& 

2,VGR 

SIFHO 


P,ZCOP,U0,V0,W0, 
,DEL20D,DEL30D, 


LAMF.OME 

TS,THMAX 

HMAX,HMI 

,Z2,PHIC 

R(50)  ,TB 

bDRY(2,5 

t5) 

E(5) ,YIN 

(4,5)  ,UV 

(2),GN(1 

F(51),TT 

1)  ,TPC( 1 

M,EPPM,N 

XINPT5(9 

KS10,FKS 

COMEGAO 

EAR2,GEA 

21, 

,XIMPOR( 


GF,CFP,EPSF 

,DTCOMP,TO, 

N,BET,G, 

(50),DELB, 

,TE,TINCR, 

),NBX(5) , 

CR(5)  ,NY(5) 

WMIN,PORMIN 

6,2)  ,ZFTAB, 

AU(51), 

01),TTR( 101 

RPM, 

) 

20,FKSKD0, 

,TAUF,TIL, 

R3,GEAR4, 

9), 


2,FKSKID,TESTB,TESTS1,TESTS2, 
D,FBRK,APB,DSOES, 
,DISTC,CONMPH,UT,UTMPH, 
,TTEM,TTPSIT,PSISKD,ST,STS02,0AY, 
VP,SL0PE,SL0PER,PSIJ,XINT,X,Y, 
AE,EI,EWT,AREI(7),ARCAPE(7),ET, 
DPSILF,PS1M,APSI ,APSIM,TPD(10) , 
ISK IDP,ISMA IN,  IGEAR, WEIGHT (10), 


T.NBS+l)    GO    TO    98 

03, 404, 405, 406, 40 7, 406, 409, 410 t4ll). 


NBT 


TO    9  6 


SEO.NE.O)    GO    TO    98 


BLK4  00  10 
BLK400  20 
BLK4  00  30 
BLK400  40 
BLK.4  00  50 
BLK4  00  60 
BLK400  70 
BLK40060 

,BLK40090 
BLK4  0100 
BLK40110 
BLK40120 
BLK40130 
BLK4  0140 
BLK4C150 

,BLK401bO 
BLK40170 
BLK4C160 
BLK40i90 

)  B  L  K4  02  00 
BLK402  10 
BLK4  02  20 
bLK402  30 
BLK402  40 
BLK40250 
BLK40260 
BLK402  7C 
BLK402&0 
BLK40290 
BLK40300 
BLK40310 
BLK40320 
BLK4  03  30 
BLK40340 
BLK4  03  50 
BLK4  03  60 
BLK40370 
BLK40380 
BLK40390 
BLK40400 
BLK4G410 
BLK40420 
BLK40430 
BLK4  0440 
BLK40450 
BLK40460 
BLK4  04  70 
BLK40480 
BLK404  90 


387 


DATE       01/14/76 


TIME       1725 


UPDATE    RECORD 


TE  =    DUM(2) 

TINCR    =    DUMI3) 

NTdLl    =    DUM(4) 

IF(NTBLl.EQ.O)    GO    TO    99 

NT    =     IFIX( (TE-TE )/TINCR     +    1.2) 

NCRDS    =    (Nl-l)/9    +    1 

CALL    TREAD(NCARD,NCRDS.NTt50,PSIFtNERR  ' 

IF(NERR.NE.O)    GC    TO    98 

GO    TO    99 

402  IF(NCARD.NE.402.0R,NSEQ.NE.O)    GO    TO    98 
BTT    =    DUM(l) 

ETT    =    DUM(2) 

DTT    =    DUMO  ) 

NTTl    =    DUM(4) 

NTT  2    =     Dm(5) 

NTT  3    =    CUM(6) 

IFf NTT1+NTT2+NTT3.EQ.0)    GC    TO    99 

NTTS    -    iFIX{ (ETT-BTT)/DTT+1,2) 

NCRDS    =    (NTTS-l)/9+l 

IF(NTTl.EQ.O)    GO   TO    21 

NPAGEdfc)    =    1 

CALL    TREAD(NCARL>,NCRDS,NTTS,101tTPCiNtRR) 

IF(NERR.NE.O)    GO    TO    98 

21  IF(NTT2.EQ.O)    GO    TO    22 
NPAGE(18)    =    1 

CALL    TREAD(NCAKL,NCRDStNnS,101,TTSfN£RR) 
IF(NERR.NE.O)    GO    TO    98 

22  IF(NTT3.EQ.O)    GO    TO    99 

CALL    7READ(NCARD,NCRDStNTTStl01,TTR,N£RR) 
IF(N£PK.NE.O)    GO    TO    9G 
GO    TO    99 

403  IF(NCARD.NE,403)    GO    TO    96 
EMDT    =    DUM{1) 

EN    =    DUM(2  ) 
NEN    =    I  FIX (EN) 
OS    =    0UM(3) 
TAUF    =    L''UM(4) 
TIL    =    DUM(5) 
TL    =    DUM16) 
TSTSIO    =    DUM(7) 
TSTS20    =    DUM{8) 
TESTBO    =   DUM(9) 
GO    TO    o« 

404  IF(NCARD.NE,404)    GO    TO    9ti 
TSTRIO    =    DUMU) 

TSTR20    =   DUM(2J 
APDMAX    -    DUM(3) 
FKDO    =    DUM(4) 
FKSIO    -    CAJM(5) 
FKS20    =    DUM(6) 
FKSKDO    =   DUM(7) 


BLK40500 
BLK405  10 
BLK4G520 
BLK4  0^30 
BLK40!:>40 
BLK40b.5;0 
BLK40St0 
BLK403  70 
BLK405e0 
BLK4  05  90 
BLK406  00 
BLK4  0tl0 
BLK4CJfc20 
BLK40f.  30 
BLK406^0 
BLK406  60 
BLK406  60 
BLK406  70 
BLK4  06tG 
BLK40690 
BLK4  0700 
BLKA0710 
BLK4  07  20 
BLK40730 
EL  K4  07 40 
BLK4G750 
bLK4  0ir60 
BLK40770 
BLK4G7  8G 
BLK407V0 
BLK40«00 
BLK40810 
BLK40820 
BLK4Cb30 
P  L  K4  08  40 
BLK^OoSO 
BLK4  0d60 
BLK40a70 
BLK4  08bO 
BLK408  90 
BLK409  00 
BLK40910 
BLK40920 
BLK409  30 
BLK4  0940 
BLK40950 
BLK40960 
BLK409  70 
BLK409bG 
BLK4G9  90 
BLK41000 
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DATE       01/14/76 

TIME       172  5 

BFPl    =    bUM(8) 

BFP2    =    LUM(9) 

GO    TO    99 

40  5 

IF(NCARD.NE.405) 
GEARl     =    DUM( 1) 
GEAR2    =    DUM(2) 
GEAR3    =    DUM(3) 
6EAR4    =    DUM(4) 
GO    TO    99 

GO 

TO    96 

406 

IF(NCARD*NE,406) 
VGR12    =    DUM(l) 
VGR23    =    DUM(2) 
VGR34    =    DUM(3) 
VGR43    =    DUM(4) 
VGR32    ^    DUM(5) 
VGR21    =    DUM(6) 

GO 

TO    96 

IF( VGR34.LT.V&R23)    VGR34    =    10000.0 

GO    TO    99 

407 

IF(NCAPD.NE.407) 
DO    4071    1=1,7 

GO 

TO    96 

4071 

XIMPOR(I)    =    DUMtl) 

GO    TO    99 

408 

IF(NCARD.NE.40b) 
DO    4081     1=1,5 

GO 

TO    9tf 

4081 

TESTTd  )    =    DUMdl 
GO    TO    99 

1 

409 

1F(NCARD.NE.409) 
DO    4091     1=1,5 

GO 

TO    9fc 

4091 

DESSKI  )    =    DUM(I) 
GO    TO    99 

1 

410 

IF(NCARD.NE.410) 
DO    4101     1=1,5 

GO 

TU    98 

4101 

DISTKl  )    =    DUM(  11 
GO    TO    99 

1 

411 

IF(NCARD.NE.411,0R.NSEQ,NE.0)    GO    TO    98 

NTRAN    =    IFIX(DUM(1  )1 

1 

CALL    TRtAD(NCARD, 

1,NTRAN,6,YTRANS,NERR) 

IF(NERR.NE.O)    GO 

TO 

98 

CALL    T2READ(NCARC 

1,5, 

,NTRAN,2,S,NERR) 

IF(NtRR.NE,0)    GO 

TO 

96 

GO    TO    99 

98 

NERR    =     1 

99 

RETURN 
END 

UPDATE    RECORD 


BLK410  10 
BLK41020 
BLK41030 
BLK41040 
BLK410  50 
BLK41060 
BLK410  70 
BLK41080 
BLK410  90 
BLK41100 
BLK41110 
BLK41120 
BLK41130 
BLK41140 
BLK41150 
BLK4116G 
BLK41170 
BLK41160 
BLK41190 
BLK41200 
BLK41210 
BLK412  20 
BLK412  30 
BLK41240 
BLK^12  50 
BLK41260 
BLK41270 
BLK4  12  80 
BLK41290 
BLK41300 
BLK41310 
BLK413  20 
BLK4  1330 
BLK4  1340 
BLK41350 
BLK41360 
BLK4  137G 
BLK413e0 
BLK413  90 
BLK41400 
BLK41410 
BLK41420 
BLK4  143G 
&LK4i4  40 
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DATE       01/14/76  TIME       1725  UPDATE    RhCQRD 


SUBROUTINE    BLK05 t NBLK, NBCRD ,NSEQ ,NC ARD, DUM.NE RR )  BLK^OCIO 

C                                     HVOSM-VDk    VERSION  BLK50020 

C                                     REVISED    OCTOBER    1975          CALSPAN    CORPORATION  bLK50030 

COMMON/HEAD/    VHED( 20 ) ,CHE U{ 20 ) ,GHED(20) , SHED ( 20) ,THED( 20),  EL K5 0040 

1                                    NPAGEI20)  BLK50050 

COMM!}N/INPT/PHlO,THETA0,PSI0tPO,00,R0tXC0P,YCOP,ZCOH,U0,VO,WO,  BLKtOOcO 

1  A,B,DEL10tDEL20,DEL30,PHlRG,DEL10L,DEL20D,OLL30D,  BLK5  00  70 

2  PHIROD,TF,TR,ZI-,ZR,RHO»AKRS,XMUF  ,  PLK500t0 

3  XMStXMUF ♦XIX»XlY,XI2,XIX2tCF,AKF,XLAMFtOMEGF,CFP,EPSF,BLK500  90 

4  RF,CR,AKR,XLaKR,OMEGR,CRP,EPSR,RR,TStTHMAX,DTCOMP,T0,  BLK5G100 

6  Tl,DTCMPl,DTPRNTtMODE, EfcAR» EM , AAA  ,HMAX tHMiN, bET,G,  BLKSOI 10 
b                                  HbD(36)»'JADE  (i)  ,XIR»X1,Y1,Z1,X2,Y2,Z2,PHIC(50)  ,DELB,  BLK:i012C 

7  DhLE,DDEL,NDLL»PSIF(50)  tTQF(50)  tTC-^  (  50  )  tTB  ,TE  t  TINCR,  bLK5  0130 
b  NZTAb,NZ5,X3DRY(4,5) ,PSBDRY ( 4 , 5 ) , YBDRY ( 2,5 ),NbX(5),  LLK5G1^0 
9                                  NBY(5),NTBLl,NTbL2,NTBL3,ZGP(21,21,5)  aLK50150 

COMMON/IMP T/XB ( 5 ),XE( 5 ),XINCk( 5) ,NX (5 ) , YB ( 5 ) , YL ( 5) , YINCR ( 5 ) ,NY ( 5 ) , BLK^0160 

1  XXZGP5I21  ),YYZGP5(21)  ,  AMUG(  5  )  ,PSbDR0(4,5  )  ,UVWN'.1N  ,PQRMIN  BLK5  0170 
COMMON/ INPTl/YC  IP,  YC2P,ZC2P,DbLTC,PHICl,PHIC2,AMX,XIPS,  BLK5  01b0 

i                                    CPSP,0MGPS»AKPS,EPSPS,XPS,RWHJB,RWHJE,D'^WHJ,INDCRB,  BLK5  0190 

2  PSIFI0,PSIFUG  BLK30200 
CUMMON/NSWCRB/    YC3P , YCAP , YC5P ,YC6P , YCLP ,  BLK5C21G 

1  ZC3P,ZC4P,ZC5P,ZC6P,ZCLPf  BLK5022C 

2  PHIC3  ,PHlC*t,PHlC5,PHIC6,NCRBSL,  BLK50230 

3  TANPCJ,TANPC4,TANPC5,TANPC6,T;sNPCL,  bLK5024G 

4  PHIC3R,PHIC4R,PHIC5R,PHIC6R,PH1CLR,  ELK50250 

5  YCMP( 6) ,ZCMP(6) ,PHICM(6)  BLK5G260 
DIMENSION  YCIP(2)  BLK5G270 
EQUlVALLNCt  (YCI P ( 1  )  , YCl P  )  bLK502bG 
COMMON  /RUFNES/  OELG  ,L&M AX,NEND  ,  IRUF  BLK50290 
DIMENSION  DiJM(  lb)  BLK50300 
DATA  NBS/IG/  BLK3G310 
NBT  =  NbCRO+1  LLK5032O 
IF{NbT.LT.1.0'^.NBT.&T.NBS  +  l  )  GO  TO  98  BLK50330 
GO  TO  (500,501,502,503,50^,505,506,507,508,509,510 ), NBT  BLK503^0 
GO    TO    «6  bLK50350 

500  1F(NCARD.NE.500)  GO  TC  98  BLK50360 
DO    10    1^1,16  ELK50370 

10    GHEDd)     =    DUM(I)  BLK503fcO 

GO    TO    99                                                                                       .               .  BLK50390 

501  1F(NCARD.NE.501)  GO  TO  98  BLK50400 
IF(NZTAE.LT.l)  NZTAB=1  BLK50410 
I  s  1  BLK5  04  20 
GO    TO    20  BLK50430 

502  IF(NCARD.NF.502)  GO  TO  9&  6LK50440 
IF{NZTAb.LT.2)  NZTAB  =  2  BLK50450 
1  =  Z  BLK5  0*t6C 
GO    TU    20  bLK50470 

503  IF(NCARD.NE.503)  GO  TO  9b  BLK50480 
IF(N2TAB.LT.3)    NZTaB    =    3  BLK50490 
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DATE       01/1A//6 


TIME   1725 


UPDATF  RECORD 


504 


505 


20 


21 


506 


30 


507 


.504)    GO    TO 
,M)     NZTAti    = 


9b 

4 


I  )    = 


;0  5)    GO    TO    9  b 


1 

DUM( 1) 
DUM(2) 
DUM(3) 
DUM(4) 
0UM(5) 
DUM(6) 
DUM(7) 
DUM ( 8  ) 
DUM(9) 


I    =    3 

GO    TO    20 

IFtNCARG.NE, 

IF(NZTAb.LT, 

I    =    4 

GO    TO    20 

IFdMCAKD.NE, 

NZTAB    =     5 

I    =    5 

NPAGE(15)    = 

XB(  I) 

X£(  I  ) 

XINCR( 

YB(  I) 

Y£(  I  ) 

YINLKd  ) 

NBX  (  I  ) 

NbY( I  ) 

NZ5T 

NNBX    -    NBX( I ) 

NIMBY    =    NBY(  I  ) 

IF(NZ5T.EQ.l)    GO    TO    21 

NNX    =     (XE( I)-XB(T) )/XINCR (I)+l 

NNY    =     (YE(I )-YB(I))/YINCR(I )+l 

NX(I)     =    NNX 

NYd)     =    NNY 

CALL    TFREAD( I ,NNBX ,NNBY,NNX ,NN Y, NZ5T , NERR ) 

IF(NERR.NE.O)    GC    TO    <*t 

GO    TO    9V 

NNX    =    DUM(3) 

NNY    =    DUM(6) 

NXII)     =    NNX 

NYd)     =    NNY 

NZ5    =    1 

CALL    TEREAO( I t NNBX,NNBY,NNX»NNY,NZ5T,NERR ) 

IF(NERR,NE.O)    GO    TO    96 

GO    TO    99 

IF(NCARD.NE.506) 

DO    30    J=l,5 

AMUG(J)     =    DUM(J) 

GO    TO    99 

IF(NCARD.NE.507 ) 


GO    TO    9  8 


GO    TO    9  8 


YClP 

= 

DUM(l) 

YC2P 

= 

DUM(2) 

YC3P 

= 

DUM(3) 

YC4P 

= 

DUM(4) 

YC5P 

= 

DUM(5) 

YC6P 

= 

DUM (6) 

AMUC 

= 

DUM{7) 

GO  TC 

1  ' 

99 

508    IF(NCARD.NE.508)    GO    TO    98 


BLK5O5  00 
BLK505 10 
BLK^0520 
BLK5G530 
BLK5  05  40 
BLK:}0550 
ELK!;  0560 
BLK50570 
bLK!i0580 
8LK5G590 
BLK305C0 
BLK50610 
BLK50620 
BLK50630 
BLK506^0 
BLK50650 
BLK506  6G 
BLK5  06  70 
BLK50680 
BLK50o90 
BLK507G0 
BLK5G710 
BLK5G720 
BLK50730 
BLK50740 
BLK50750 
BLK5C760 
BLK50770 
BLK^07e0 
BLK5  0790 
BLK50800 
BLK5  06  10 
BLK50fe20 
BLK50B30 
BLK50840 
BLK50850 
BLK50fa6G 
BLK50b70 
BLK506b0 
BLK30e90 
BLK50900 
BLK5  0910 
BLK5  09  20 
BLK5  0930 
BLK50940 
BLK5  0950 
BLK509  60 
BLK50970 
BLK50980 
BLK50990 
BLK51000 
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509 


510 


98 
99 


OATE       Ol/lA/76 

TIME       172  5 

ZC2P    =    LUMd  ) 

ZC3P    =    DUM(2) 

ZC^P     =    DUM(3) 

ZC5P    =    DUM(4) 

ZC6P    =    DUM(5) 

GO    TO    99 

IF(NCARD.NF..509)     GO 

TO    9  8 

PHI  CI     =    DUM(l) 

PHIC2    =    DUM(2) 

PHIC3    =    LUM(b) 

PhIC4    =    DUM(^) 

PhTC5    =    ajM(5) 

PhlCb    =    DUM(6) 

GO    TO    99 

UPDATE    RECORD 


IF(NCARD,Nt .510 )    GO     TO    9b 

DELG    =    DUM(1 ) 

NfcND    =     li-lX(  DUM(  2)  ) 

TRUE    =     1 

NPAGb(8)    =     1 

DGiMAX    =     (Nt.ND-1  )*bt.LG 

GO    TO    9  9 

NERR    =     1 

RETURN 

END 


BLK5  1010 

bLK5 

1020 

BLK5  1030 

BLK5 

10^0 

BLK5 

1050 

BLK51060 

eLK5 

10  70 

BLK5  10e0 

bLK5 

10  90 

BLK5 

1100 

BLK51110 

BLK51120 

BLK51130 

BLKt.- 

11  4C 

BLK5115n 

bLK5 

11  to 

BLK51170 

BLK5 

1160 

BLK5 

1190 

bLKt 

12  00 

bLKf 

12  10 

BLK5 

12  20 

BLK5 

12  30 

BLKS 

U^(j 
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DATE       01/14/76  TIMt       172S  UPDATt    RECORD 


SUBROUTINE    BLKOfc ( NBLK, NBCRD ,NSFU tNCARD, DUM ,NERR )  ELKfrOOlO 

C                                      HV0SM-VD2    VERSION     -  BLK6C020 

C                                     REVISED    OCTOBER    1V73         CALSPAN    CORPORATION  BLK60030 

COMMON/HEAD/    VHFD(20 ) , CHED ( 20 ) , GHE D (20 ) t SH£D ( 20 ) ,THED( ?0 ) ,  BLK60040 

1                                      NPAGE(20)  bLK600f0 

C0MM0N/lNP7/PH10,THLTA0,PS10,P0,G0tR0»XC0P,YC0P,ZC0PtU0,V0,W0,  BLK6  0060 

1  A,B,DELI0,DEL20»DEL30tPHIRO,DEL10D,DEL20D,DEL30D,  ELK60070 

2  PHIR0D,TE,TR  ,ZF,ZR,RHO,AKRS,XMUR,  BLK60080 

3  XMS  ,XMUF,XIXtXIY,XIZ,XIXZ,CF,AKF,XLAMF,0MEGF,CFP,EPSF,BLK6  00  90 

4  RF,CR, AKR,XLAKR,GMEGR,CRP,EPSRtRRfTStTHMAX,DTCOMP,TO,  BLK6  0100 

5  TltDTCMPlf  DTPRNT,MODE»bbAR,EM,AAA,HMAX,HMINi,bETtG,  BLK6G110 
fe  HED(36),DADE(3) ,XIR,X1,Y1,Z1,X2,Y2,Z2,PH1C (50),DELB,  BLK60120 
7                                  DELE  ,DDEL,NDEL,PSIF(50) ,TQF(50) ,TQR ( 50 ) , TB t 7E, TINCR,  BLK6Gli0 

6  NZlAb,NZS,XBDRY(t,5) tPSBDRY{4,5) ,YEDRY(2»5 )tNBX(5),  BLK601A0 
9                                  NBY(5)tNTELl,NTBL2,NTBL3»ZGP(21,21,5)  BLK601^0 

C0MM0N/lNPT/Xb(i.),XE(S),XINCR(5)  ,NX(5> )  ,Yb  (  5)  ,  Yb  (  5)  » YINCR  (  5> )  ,  NY  (  5  )  t  BLK601  60 

1                            XXZGP^(21)tYYZGP3(21) tAMUGtS) tPSBDROCAtS) ,UVWM1N ,PQRMI  N  EL K6 01 70 

C0MM0N/INPTl/YClPfYC2P,ZC2P,DELTC,PHICl,PHlC2tAMUC,XIPS,  BLK6  0180 

1  CPSP»OMGPS,AKPS,EPSPS,XPStPWHJB ,RWHJE  t DKWHJ , INDCRB,  BLK6  0190 

2  PSlFIOtPSlFDO  BLK60200 
DIMENSION  YCIP(2)  BLK60210 
EQUIVALENCE  (YCIP ( 1 )  ,  YCl P  )  BLK6022G 
COMMON/ INPT5/    IBTYP( 2) , AK 1, AK2 t PON E ,PTWO , PZERU ( 2 ) , GN( 16,2) ,ZETAB,  BLK60230 

1  C0NE,CTW0,CTHKEt,TAUA,TAU0(4),TLF(51) ,TTAU(51),  BLK60240 

2  TRPME( 12), TWCT( 12)  ,TCT ( 1 2  )  ,TT ( 101 )  ,TPC( 101  ) , TTR{ 101 )BL K602 50 

3  ,TTS(101) ,BTLF,ETLF,DTLF,NTLF,BRPM,ERPM,NRPM,  BLK60260 

4  BTT,ETT,DTT,NTTl,NTT^,Nn3,NT7S,XINPT5(9)  bLK60270 
COMMON    /INSUS/    XIF ,RHOF, TSF,PHlFOt PHI FOD, DEL40, DEL40D, I SUS,  BLK60280 

1  AK0S,AK0S1,AKDS2,AKDS3,PHIRC(50),DTHF(50),DTHR(50),BLK602  90 

2  NCAMF  ,NCAMR,NDTHF,NDTHR  BLK60300 
DIMENSION  DUM( 16)  ELK60310 
DATA  NbS/4/  BLK60320 
NBT  =  NBCRD+1  BLK6G330 
IF{NBT.LT,1.0R.NBT.GT.NBS+1)  GO  TO  98  BLK60340 
GO  T0(600,601,602,603,604),NBT  BLK60350 
GO    TO    98  BLK60360 

600  IF(NCARD.NE«600)  GO  TO  98  BLK60370 
DO    10    1  =  1,18  BLK603eO 

10    SHEDd)     =    DUM(I)  BLK60390 

GO    TO    99  BLK60400 

601  IF(NCARD  J^E.601)  GO  TO  98  BLK60410 
PHIO  =  DUM(l)  BLK60420 
THETAO  =  DUM(2)  BLK60430 
PSIO  -  DUM(3)  BLK60440 
PO  =  DUM(4)  BLK60450 
QO  =  DUM(5)  BLK60460 
RO  =  DUM(6)  BLK60470 
PSIFIO  =  DUM(7)  BLK60480 
PSIFDO    =   DUM(8)  BLK6049C 
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OAIL       01/1^/76 


TIME       1/2! 


bPDATt    RFCCRD 


602 


b03 


60^ 


99 


GO 
1F{ 

xco 

YCO 
ZCO 
UO 

vo 

wo 

GO 

IF( 

DtL 

JEL 

IF{ 

uEl 

PHI 

1F{ 

DLL 

DEL 

1F( 

CfcL 

Phi 

IF( 

GC 

IF( 

TAJ 

TAJ 

TAJ 

TAJ 

TA'J 

GO 

Nt^ 

KET 

END 


10    99 

f>JCARD«NE,602) 


GO    TG    9tl 


GO    TO    9  6 


DUM(2J 


P  =  LUM(  1) 
P  =  CUM(2) 
P    =    uUM(3) 

=    DUM(4) 

=    DUM  (  5  ) 

=    CUM  (6) 
TO    «v9 

NCAK,^»N6.603  ) 
10       =    DUM(l) 
20    =    DUM(2) 
1SUS.L0.2)    PHIFO    = 
30       -    L'UM(3) 
RO    =    DUM  I  A) 

ISUS.EQ.l)     GFL40    -    LfJM(^) 
lOD    ~    DUM(^ ) 
iiGD    -   DUM(6  ) 

ISUS.tQ.2)    PhlFOG    =^    DU^(6) 
30D    -    DIJM(?  ) 
ROD    =    DUM(&) 

iSUS.bQ.l)    JfL^OL    =    JUM(e) 
TCI    ^V 

NCARij.NE.604) 
A     =    DUN.  (  i  ) 


GO    TO    9  a 


0(1)  = 
0(2)  ^ 
0(3)  = 
0(4)  = 
TO  99 
R  =  1 
URN 


DUM(2) 


DUM( 
DUN'( 


3) 

4) 


DUM( 5) 


FLK6 
BLKfc 
BLKt 
BLK6 
BLK6 
BLK6 
FLK6 
6LK6 
BLKc 
BLK6 
BLK6 
BLKfc 
FLK6 
bLK6 
BLKe 
BLK6 
BLKfc 
BLK6 
BLK6 
BLK6 
BLKfc 
BLK6 
BLKfc 
BLKfc 
BLKt. 
BLKfc 
BLKfc 
bL  Kfc 
bLKfc 
BLKfc 
BLKfc 
BLKfc 
ULKfc 


O^CO 
0510 
05  20 
0530 
05  40 
05  5  0 
G5fcC 
05  70 
05feO 

05  90 
0600 

06  10 
06  20 
06  30 
06  40 
06  50 
OfcfcO 
06  70 
OfcfcO 

06  90 

07  00 
07  10 
07  20 
07  30 
07  40 
07  50 
07  60 
0/70 
07  to 
07  90 
Ob  00 
OclO 
OH  20 
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SUBROUTINE  CLEAR(A,B)  00051370 

C           CLEARS  (SETS  TO  ZERO)  A  BLOCK  OF  STORAGE  IDENTIFIED  BY  THE    00051380 

C            ADDRESSES  OF  THE  TWO  ARGUMENTS.  00051390 

C  00051400 

C           CALL  CLEAR(P,Q)  00051410 

C           WILL  CAUSE  ALL  BYTES  TO  BE  SET  TO  ZERO  FROM  ADDRESS           00051420 

C           P  THROUGH  THE  FULL-WORD  AT  ADDRESS  Q                          00051430 

C  00051440 

DIMENSION  A(l)f6{l)  00051450 

B(l)  =  1.0  00051460 

1=0  00051470 

10  IF(B(1) .EQ.O.O)   RETURN  OC051480 

1=1+1  00051490 

Ad)  =  O.C  00051500 

GO  TO  10  00051510 

END  00051520 
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DATE       01/14/76  TIME       1725  UPDATt    RFCORD 


SUBROUTINE    CNSTNT  CNSTOOIO 

C  HV0SM-VD2    VERSION  CNST0020 

C  REVISED    OCTUbtR    1975      CALSPAN    CORPORATION  CNSTOOiO 

COMMON/HEAD/    VhED(  20  )  ,CHt  D(  20  )  ,  GhEO  (20)  ,  SHtD(  20  »  tTHFD(  20  )  t  CNSTOO^ 

1  NPAGE(20)  CNST0050 

COMM0N/lNPT/PHlO,TKETA0,PSIO,PO,QOtR0,XCOP»YCOP,ZCOP,UO,VO,WO,  ON  ST  00 60 

1  A,b»DEL10,DEL20,ULL30,PhIR0,DEL10L,DEL20D,DEL30D,  CN ST  00 70 

2  PHlR0D,TF,TR,2F,ZRtRHUtAKRSf XMUR,  CNSTOOPO 

3  XMStXMUF  ,XlX,XIY,XIZfXlXZtCF,AKF,XLAMF,CMEGFfCFP,FPSF,CNSTOOSO 

4  RF,CRt AKR.XLAMRtDMEGfttCRPtEPS" »RR  »T S »THMAX , DT CCMP ,T0 ,    CN ST  01  CO 

5  Tl,DTCMPl,DTPRNT,MuDEt  OBAR,EM,AAA,HMAX,riMIN,bETtG,  CNSTOllO 

6  HED(36),IjADE (3) »X1R,X1,YI,Z1,X2,Y2,Z2»PHIC (50) ,OELB,       CNSTOilO 

7  DELE,DDEL,NDtL,PSIF(50)  ,TQF  (  50  )  ,T(.'R  (  50  )  ,TB  ,T  E,  TI  NCR,       CN  ST  01  30 

8  NZTAD,NZ5,X6DRY(4,5),PSbDRY(4,5) ,YPDRY(2,5 ),NBX(5),  CNSTOiAO 

9  NBY(5) ,NTBL1  ,NTBL2,NTbL3tZGP(21,21,5)  CNS10150 
CUMM0N/INPT/XB(5) ,X E ( 5 ) , X INCR ( 5 ) ,NX ( 5 ) ♦ YB ( 5 ) » Y l ( 5 ) » YINCR ( 5 ) » NY ( 5 ) »CN ST  0160 

1  XXZGP5(21 )  ,YYZGP5(21) ,AMUG(5) ,PSBDRG(4,5) ,UVWMIN ,PORMI  N    CN ST  01 70 

COMMON/I  NPT1/YC1P,YC2P,ZC2P,  OF  LTC,  PHI  CltPHIC  2,  AMUCXIPS,  CN  ST  01 80 

1  CPSPtDMGPS,*KPS,EPSPStXPS,RWHJB,RWHJE ,DRWHJ,INDCRB,       CNST0190 

2  PSlFlOfPSIFL'O  CNSTO^OO 
DIMENSION  YC1P(2)  CNST0210 
EOJIVALLNCt  (YCrP( 1) tYClP)  CNST0220 
COMMON  /lNTG/NciJ,T,0TtVAk(50)  ,DtR(5C)  CNST0230 
EQUIVALENCE     (U,VAR( 1  )  )  , ( V,VAR ( 2  )  ) , (W,VAR(3))  , (P,VAR(h)  ), (Q,VAR(5) )CNST0240 

1  t(R,VAR(t.)),(DELl,VAR(7)),(DELlD,VAR(8)  )  ,  (  DEL2  ,  VAR  (  9  )  )tCNST02  50 

2  (DEL2D,VAR(10J)»(DtL3,VAR(ll) ) ,(D£L3D,VAR( 12)) ,  CNST0260 

3  {PHIR,VAR(  13)  ),(PhIRD»VAR(14)  ),(THETTP,VAR( 15) ) ,  CNST027G 

4  (PHITP,VAR(16)),(PSITP,VAR(17)  )  ,  (X^PfVARdfi)  ),  CNST0280 

5  (YCP,VAR(19)  )  ,(ZCP,VAR(20)  )»( PSlFl,VAR(2i)  ),  CNST0290 

6  (PSIFID,VAR(22))  CNST0300 
EQUlVALtNCE     (DU,DtR( 1 ) ) , ( DV,DER ( 2 ) ) , ( DW ,D tP ( 3  )  ) , (DP ,DE R ( 4 ) ) ,  CN ST 03 10 

1  (DQ,DtR( 5) ), ( DR,DER(6) ),(DDELl,DtR(7)) , (DD EL  ID ,DER( 8 ) )CNST03  20 

2  ,  (D0EL2,DER(9)  ),  (DDEL2D,LER(  10)  ),  ([-DEL3,DER(11)  )  ,  CNST0330 

3  (DDEL3D,DER( 12) ), (DPHlR,DbR( 13)) , (DPHIRD,DER{14) ) ,  CNST0340 

4  (DTHTTP,DER( 15) ), (DPHITP,DER(16) ),(DPSITP,DEK(17) ) ,  CNST0350 

5  (DXCP,DFK(18)  ),(DYCP,DER( 19) )  ,(DZCP,DER(20)) ,  CNST0360 

6  (DPSIFI,DER( 21) ) ,(DDPSFI,DER(22)  )  CN ST  03 70 
EGU I  VALENCE     (VAR(9),PHIF),(VAR(10),PHIFD) , ( DER ( 9  ) » DPMI F ) ♦  CN ST  03^0 

1  (DER(IO)  ,DPHIFD)  CNST0390 

EQUIVALENCE     (VAR(i3),DfcL4),(VAR( 14  )  ,DEL4D ) , ( DER ( 13)»DDtL4) ,  CN ST  04 00 

1  (DtK(l4)  ♦DDEL4D)  CNST04i0 

COMMON    /COMP/SUMM,THFTN, PHlN , PSIN, PI , RAD,GAM1 , GAM2 ,GAM3 , GAM4 , GAM5 ,CN ST  04 20 

1  GAM6,GAM7»GAMfa,GAM9,THETT,PHIT,PSIT,ZR0,TR02»  CNST0h30 

2  TF02,TI Z,RH02,RH0MUR,AMUF,BMUR,ZPR,TM4,RHMR2,A02APB,    CNST0440 

3  B02APB,RFTF ,TS02,RRTS ,BR0MUR,XMUFC2tAXMF02,XMTFU4,  CNST0450 

4  XlZR,RTRtRHMR21,XlXP,XlZP,XIXZP,XIYZP,DlPD2,01MD2,  CNST0460 
6                                     ZRD3,ZRU3R, ZFD3R , ZFD12 ,T I Z2, T G6l , UD1P2 , DD 1M2, RPR , PHRPCN ST C4  70 

6  ,TANTP,SPHTP,CPHTP,SECTP.SFXS,SFYS,SFZS,SNPS»SNTS,  CNST0480 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYU»SFXU,SFYUF,  CNSTOtSO 
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DATE   01/14/76     TIME   1725  UPDATE  RECORD 

8  SFYUR»SF2UtC0STH,SINTH,C0SPStSINPStC0SPH»SINPH,ANGl,  CNST05G0 

9  AN&2,CPHI,SPHI,CPSIiSPSI,Pl,P7,P3,P4,P5,P6,TX,TY,TZ  CNST05I0 
COMMON    /C0MP/TRH,DISTX,DISTY,DISTD,DISTS.D21 tZETA4,ZtTA4DtZETA3,  CN ST  05 20 

1  ZETA3Df SFZl,3MPU,SNTU,HCGHl,HCGH2tHCGH3,HC&H4,TERMl,  CNST0530 

2  TERM2,SNPSU,SNPR,HCBHlfHCBH2*HCBH3tHCBH^,HCAHl,HCAH2,CNST05^0 

3  HCAH3tHCAH4tUQtWP,URtQR»VP,PR,P2,Q2,H2,VR,WU,PQ,PHIR2CNST05  50 

4  ,PH1RD2,RPHRD,GCTH,GSTH,GCTSP,GCTCP,XXX,^'YY,IX»IY,XX1,CNSTG5  60 

5  XX2,YYl,YY2,THGl,TH&2,PH&l,PHG2»ZZl,ZZ2tLLL  CNST0570 
DIMENSION  HCAH('^),HCBH(4),HCGH(4}  CNST0560 
EQUIVALENCE  (HCAH{  1)  ,hCAH1)  ,  {  HCBH(  1 )  t  HCBH  1  )  ,  (HCGHd  ),HCGHl  )  CN  ST  05  90 
COMMON    /COMPf>t/    FRSP(4)  tFRCP(4)  ,ICBH1T,JCBHIT,  CNST0600 

1  OPSIN!  ,TANPC1,TANPC2,PHIC1R,PHIC2R»AMI!CMP,PHI1D,  CNST0610 

2  PHI2D,LCB1 (4),LCb2{4),lHlT,AJMTX(3,3),BMTX(3,3),  CNST06Z0 

3  SFRX{4)  ,SFRY(4),SFRZ('t),TlPSI  »T2PSI  ,XMUGI  (4)  CNST0630 
LOGICAL  LCB1,LCB2  '  CNS10640 
COMMON    /TIRIN/    AKT (4  ) , SI GT (4) , XL AMT ( A ) , AO (4) ♦ Al ( 4) ,A >  (  4) , A3 ( 4) ,  CNST0650 

1  A4(4) ,0MEGT(4) ,AMU(4),RW(4),FJP{35,4) ,A234(4),  CNST0660 

2  A12(4),0MT2/^2(4)  ,0MT2M1{4)  ,A23(4),ITIM4)  CNST0670 
COMMON/tlNDLX/    FOR    EULER    ANGLE    INDEX ING ♦ MAIN  ,CNSTNT ^DAUX, TMCNSI  CNST06&0 

COMMON/ EINO EX/    TWCPI ,PIO 2 , PIC4, X INUN, X INDL ,TH ETT L, PHIT L, PS  IT L t  CN SI  06 90 

1  COSTHN,SINTHN,COSPSN,SINPSN,COSPHN,Si;jPHN,CTHETP,  CNST0700 

2  STHETP,CPSTP,SPSTP,BNMTX(3»3) ♦  CNMT X { 3, 3 ) , ENDEIN  CNST0710 
COMMON    /INPT4/    FIDJ ( 2) »F I WJ ( 2 ) t AR6R (2 ) t NXUGMU ,NXFRCP ?XXUGMU (6 ) ,  CNST0720 

A                                            XXFRCP(6) fXMUMAT( 6,6,4) ,XMXPMT(6,6,4),  CNST0730 

B                                            XMXSMT(6,6,4),SLIPMT(6,6,4) ,CT(4),XMUM(4),  CNST0740 

C                                            XMUXP(h),XMUXS(4)  ,RRMC(4),KRM(^),C0M£N4  CNST0750 

EQUIVALENCE     (FIDJ(1),FIDJF),(F1DJ(2),FIDJR)» (FIWJ( 1),FIWJF>  CN ST  0760 

EQUIVALENCE     <FI WJ( 2 ) ,F IW JR ) , ( ARBR( 1 ) , ARBRF ) , (ARBR(2) ,ARBRR )  CN ST  0770 

COMMON    /C0MP4/FIDAR(2) ,F lUlW ( 2 ) , FT DWR2 ( 2 ) ,SPhICI (4 ) ,CPHICI( 4 ) ,  CN ST 07 80 

1  TIH1(4),ARBRI(4) ,    PSITEM(4) ,SLPFAC(4),DTSTEP,DTTEST,CNST0790 

2  DT1NT,TW0PIR,FRTEST{4),XMUI(4),FRCPMU(4),HRTERM,SLIP(4) ,  CNST08  00 

3  SLIPT(4) ,RH0S(4),ePSS(4) ,TERMP(4),TERMB(4),TERM(4) ,  CNST0610 

4  EPSSFC,FSXFAC(4),FSYFAC(t),FSZFAC(4) ,FRXFAC(4) ,  CNST0620 
b                                       FRYFAC(4),FRZFAC(4),FCXFAC(4),FCYFAC(4),FCZFAC(4),  CNST0830 

6  SFCDTR(4),SFSDTR(4),SFRCPR(4),SSLIP{4)»FCAV(4),  CNST0840 

7  FSAV(4),FRCPAV(4) ,SLIPAV(4) ,RPSSM(4),FCSLSM(4),  CNSTOBSO 

8  ARTQ6{4),TQFAC(4),ARFAC1 (2) , ARFAC2 ( 2  )  ,RPSFA( 2 ) ,RPSFB (2 > ,CNST0fc 60 

9  RPSFC(2),RPSFD<2) ,HRPSFA(4) ,HRPSFB ( 4 ) ,HRPSFC (4 ) , STEPD  CN ST  06 70 
COMMON  /COMPh/  XBRAK( 16),IUVS(4),IUVB(4),1RPS,ID1CNT,ISTEP,IST0P  CNST068G 
LOGICAL  IUVS,IUVB,IRPS  CNST0890 
COMMON/ INPT5/    IBTYP(2) ,AK1, AK2, PONE ,PT WO, PZERO( 2 ) , GN( 16 , 2) , ZETAB ,  CN ST  09 00 

1  C0NE,CTW0,CTHREE,TAUA,TAU0(4),TLF(51 ),TTAU(51),  CNST0910 

2  TRPME{ 12),TWOT(12> ,TCT( 12 ) , TT ( 101 ) ,TPC UOl ) , TTR( 101 )CNST09  20 

3  ,TTS(101),BTLF,ETLF,DTLF,NTLF,BRPM,ERPM,NRPM,  CNST0930 

4  bTr,ETT,DTT,NTTl,NTT2,NTT3,NTTS,XINPT5(9)  CNST0940 
COMMON/CGMPS/   TAU(4) rTQD(2) ,TQB(4) , PP ( 2 ) ,T LAME ( 2 ) , PC»RWDRI V, JDEND ,CNST09  50 

1  NbTYP,ARFAC3(2) ,RPSFE(2 ),RH0SMX(3),SLIPMX(3) ,SL1PP,  CNST0960 

2  RH0MAX,RH0SAV(4),SRH0S(4) ,UGW(4),ABSUGW(4) ,VECS,  CNST0970 

3  DELTAE,PI015R,C0MEN5,TQE,RPME  CNST09e0 
COMMON  /INTR/  NEQR,T IMR, DTR, VARR ( 12 ) , DERR ( 12 )  CNST0990 
DIMENSION   RPS1(4) ,DRPSI(4)  CNSTIOOO 
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DATE       01/14/76            TIME       I'iZb                                                UPDATE  RECORD 

EQUIVALfcNCEi  VARR(1),RPSI  (1)  )t  ( DERR  (  1)  ♦  DRPSK  1))  CNSl  1010 

COMMON    /INSUS/    XIF ,RHOFf TSF,PHIFO, PHI FODt DbL40, DEL40D, ISUS ,  CNSTiO^O 

1  AKDS,AKDS1,AKUS2,AKDS3,PHIRC{50),DTHF(50),DTHR(50)»CNST10  3G 

2  NCAMF,NCAMR»NOTHFtNDTHR  CNST1040 
COMMON    /SUSCMP/    XMURU2tBXMR02»XMTR04,ZFQtTSFC2fRHCiF2,RHFMUF,  CNST1050 

1  RHF2MF,RF2MF1,RTF,RRTR»D3PD4,D3MD4,D43,DD3P4,  ON  ST  10 60 

2  D03M4,ZFDlRf ,ZRD3t,RFPF,RPF2M,wFMF»PHFP,PHlF2f  CNST107G 

3  PHlFD2,RPHFD*ZFDl»ZFD2,ZRD4,TPF,SL0PE3tSL0Pe4,  CNSTlOeo 

4  PHI3D,PHI4D,DTHFl,DTHF2tDTHR3tDTHR4,DTDDl,  CNST1G90 

5  DTDU2,DTDD3,D1DD4,FJF{4),SNPF  CNSTllOO 
CCMMDN/NEwCRb/    YC3P,YC4P,YC5P,YC6P,YCLP,  CWSTlllO 

1  ZC3P,ZC4P,ZC5P,ZC6P,ZCLPt  CNi.Til20 

2  PhIC3,PHIC^iPHlC5,PHlC6,NCRBSL,  CNS11130 

3  TANPC3,TANPC'»TTANPC3tTANPCt)tTANPCLt  CNSl  11^0 
A  PHIC3KtPHIC4R,PHlC5R,PHlC6R,PHICLR,  CNST1150 
ij                                            YCMP(6I  ,ZC«P(6),PHICM(6)  CNSI1160 

NPAGF( 1  )    =    1  CNSi  117G 

NPAGE(2)    =    1  CNSTilfcO 

NPAoE(3  )    =    1  CNST1190 

MPAGE(li)    =    1  CNST1200 

NPA&E(12)    =     1  CN ST  12 10 

NPAGE(13)    =     1  CNSTi*:20 

NPAGEd?)    =    1  CNSV1230 

^I    ~    3.141&«^653L;0  CNSTIZAO 

TWQPI    =      2.0*PI  CNST12?G 

P 102       =      0.5    *    PI  CN ST  12 60 

PI04      =       0.25>*    PI  CNSl  1270 

TWOPIR    =    1,0/TWDPI  CNST12bO 

PIOlijH    =    IS.O/PI  CNS112SG 

RAD    =       .G1745>32<'25D0  CNST1300 

DO    7    1=1,4  CNST1310 

A12(l)    =    A1(1)/A2(I)  CNST1320 

A23(I)     =    A^( I)*A3(I)/A1( I)  CNST133G 

A234(I)    =    A2(l  )*A3(n/A4(I)  CNST1340 

0MT2Mi(I)    -    OMFGTd  )*Al( 1  )«A2(I)*(uMEGT(i)-1.0)  CNST13&G 

uMT^A^(I)    =     (OMt;GT(  1  )»A2(I)*A3(I)*(A4(I)-CKcGT  (1)*A2(I  ))  )  CNST1360 

1                                  /(A4(I  )*(CMT2Ml(n-AG(  1)1)  CNST1370 

'    CONriNUL"  CNST13bG 

TRU2    =    0.5*TR  CNSTi3S'C 

TF0  2    =    0.5*TF  CN ST  1400 

AMUF    =    A»XMUF  CNST14  10 

bMUR    =    b*XMUR  CNST1420 

XMUF02    =   0.i>*XMUF  CNST1^30 

AXMF02    =    A»XMUFC2  CNST1440 

XMTFU4    =    XMUFC2*TF02  CNST  14  5^0 

TM4     =    0.25*XMUF*TF  CNST1460 

GMSTMP    =   0.5<^XMS*G/(  A+B)  CNSl  14  70 

A02APB    -   A*GMSTMP  CNSTl4b0 

P>02APb    =   B^GMSTMP  CNST1A90 

GAMl    =    AMUF-BMUR  CNSllf>00 

SUMM    =    XMS+XMUF+XMUR  CNST15  10 
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DATt        01/1^/76 


TIME   1725 


UPDATE  RECORD 


10 


20 


30 


40 


50 


DELI     =    DELIO 

DELID    =    DELIOD 

DEL3    -    DEL30 

DEL5D    =     DEL30D 

IF( ISUS.LQ.l  )    bO    TO 

10 

ZRC     =    ZR+RHO 

TS02    =    G.5*TS 

RHD2    =    RHO*RHO 

RHOMUR    =    RHO*XMUR 

RHMR2    -    RHD»RHOMUR 

RTR    =    RR/TS 

BROMUR    -    RHOMUR*B 

RHMR2I     =    RHMR2+XIR 

PHIR    =    PhlRO*RAD 

PHIRD    =    PHIROD*KAD 

IF( ISUS.NE.O)    GO    TO 

20 

ZPR    =    ZF+RHO 

RRTS    =    PR*TS 

TIZ     =    XMUF*( A+A+TF02 

♦  TF02 

)+BMUR 

XIZ^    =    XIZ+XIR 

IF( ISUS.Ee.2)    GO    TO 

30 

RFTF    =    RF/(TF«TF) 

DeL2    =    DEL20 

DEL2D    =    LEL20D 

IF( ISUS.NE.2)    GO    TO 

40 

ZFO    =    ZF+RHOF 

TSF02    =    0.5*TSF 

RH0F2    =    RHOF*RHOF 

RHFMUF     =    RHOF+XMUF 

RHF2MF    =    RHGF*RHFMUF 

RF2MFI     =    RHF2MF+XIF 

RTF    =    RF/TSF 

PHIF    =    PHIF0*RAD 

PHIFO    =    PHIF0D»RAD 

IF( ISUS.NE.l)    GO    TO 

50 

KRTR    =    RR/(TR*TR) 

XMUR02    =   0.5*XMUR 

BXMR02    =    B*XMUR02 

XMTR04    =    XMUR02*TR02 

DEL4    =    DEL40 

DEL4D    =    DEL40D 

CONTINUE 

U    =    UO 

V    =    VO 

W    =    WO 

P    =    PO*RAD 

Q    =    QO*RAD 

R    =    RO*RAD 

THETTP    =   0.0 

PHITP    =    0,0 

PSITP    =    0.0 

CNST1520 
CNST1530 
CNST  1540 
CNST1550 
CNST  15  60 
CNST  15  70 
CNST  1580 
CNST  15  90 
CNST 16  00 
CNST  16  10 
CNST16^0 
CNSl  1630 
CNST  16  40 
CNST  16  50 
CNST  1660 
CNST1670 
CNST  I6b0 
CNST  16  90 
CNST  1700 
CNST  1710 
CNST  17  20 
CNST 1730 
CNST  1740 
CNST  17  50 
CNST  17  60 
CNST 1770 
CNST1780 
CNST  17  90 
CNST  1800 
CNST  IB  10 
CNST  1620 
CNST1830 
CNST  18  40 
CNST  16  50 
CNST  1860 
CNST  18  70 
CNST 1680 
CNST  1890 
CNST 1900 
CNST  19  10 
CNST 1920 
CNST  19  30 
CNST 19  40 
CNST1950 
CNST i960 
CNST  19  70 
CNST1980 
CNST  19  90 
CNST2000 
CNST2010 
CNST2020 
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UPDATE  RECORD 


72 


7  3 


7^ 


75 


THtTN 
PHIN    - 

PSIN    = 
XI\OL 


if- 1      In 
THL1TL 
PHITL 
PSITL 
XCP    = 
YCP     - 
ZCP    = 
f^\Mi  IR 
PHlL^K 
PH1C'-.A 
PHIC4K 
PHlC:'k 
PHI C6R 
1  AN  PC  2 
7ANPC1 
IANPC3 
TANPC^ 
T*NPC5 
7ANPC6 
NCb    = 
&U    TU 
PrilCLR 
YCLP    = 
ZCLP    = 
1ANPCL 
YL3P    = 
2C3P     = 
GO    10 
PHIlLK 
YCLP    = 
ZCLP    = 
TAMPv.L 
YC^P    = 
ZC^P    = 
GO    TC 
PHICLR 
YCLP    = 
ZCLP     = 
TANPCL 
YC5P    = 
ZC5P    - 
GO    TO 
PHICLR 
YCLP    = 


=^  THET 
PHIO* 
PSIO* 
IL  PR 
XINDN 
T  HA  I 

.>  t    --• 

tlN.Nc 
=  THE 
=  PHI 
=    PSI 

XCOP 

YCOP 

ZCOP 
^    PHI 

-  PHI 
'-  Pr-il 
^  Phi 
=     Pnl 

-  Phi 
=  TAf^J 
=    TAN 

-  TAN 
=    TAN 

-  TAN 

-  TAN 
NCRBSL 
(72,73 

-  PHI 
YC2P 
ZC2P 
=    Tan 
l.OE* 
2C2P-^ 

7i 
=    PHI 
YC3P 
ZL3P 
=-    IAN 
l.Ot* 
ZC3P  + 

71 
=    PHI 
YLAP 
ZC4P 

-  TAN 
1.0E  + 
/iC4P  + 

71 

-  PHI 
YC5P 


AL- 


US VALUE  OF  XINDN.  XINDL  INITIALLY  ZER 
0.0  FOR  THETAO  CP  PHIO  .Nb.U.U,  OR  AFT 
THETN    OR    PHIN    NOW    .NE.     0.0 

ATN    PRuGRAK    AND    IN     SUE'-^OUTlN  E  S    CNS  TNT ,  TMCNST 
.CR.       PhlN.Nt.    0.0)     XlNDfJ    =     iO.O 


AO»K 
RAD 
RAD 
F  V I  [  ■ 

.NL. 
IS 

IN    I'. 

.0.0 

TN 

N 

N 


Cl^KAD 

C2*RAD 

C3*RAD 

CA*KAD 

C5»KAD 

Cb*FAD 

(PH1C2R) 

(PHICIR) 

(PH1C3R) 

(PhlC^R) 

(PhTC5K) 

(PhIC6R) 

-1 

,74,75»7fc) tNCf 

C2k 


PC  2 

6 

S1GK(1.0,ZC2P) 

L3R 


PCS 

6 

SIGf4(1.0,ZC3P) 

C^R 


PC  4 

6 

SIGN(1.0,ZC4P) 

C5R 


CNS1 

CNST 
CNST 
0  GETS  ENMTXCNSl 
ER  INDEXING  CNST 
CNST 


CNST 
CNST 
CNST 
CNSl 
CNST 
CNST 
CNST 
CNST 
CNS'I 
CNSl 
CNST 
CNSl 
CNSl 
CstST 
CNSl 
CNST 
CNSl 
CNST 
CNSl 
CNSl 
CNST 
CNST 
CNSl 
CNST 
CNSl 
CNST 
CNSl 
CNST 
CNST 
CNST 
CNST 
CNST 
CNSl 
CNSl 
CNSl 
CNST 
CNSl 
CNSl 
CNST 
CNSl 
CNSl 
CNST 
CNST 
CNST 
CNSl 


20  30 
20A0 
20  50 
20  60 

20  70 
20fc0 
^0«.G 

21  0() 
2  1  10 
2120 
2130 
2iH0 
^li:'0 
21  to 
2170 

21  to 
21«^'0 

22  00 
^^  10 
22  20 
^2  30 
22  AO 
2250 
2260 
.2  70 

22  to 
22SO 

23  00 
23  10 
23  2  0 
^330 
23A0 
23  50 
23  to 

23  70 
23b0 
2390 

24  00 
2410 
24  tO 
2430 
^^40 

24  50 
2460 
2470 
24fc0 
24V0 
25CO 

25  10 
2520 
2530 
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ZCLP    =    ZC5P  CNST25'.0 

TAMPCL    -    TANPC!>  CNS7  2t>^C 

YC6P     =    l,0E  +  6  CNST25f.O 

ZCbP    =    ilC5P  +  Sl&N(l,0,ZC5P)  CNST2570 

GO    TO    71  CNSTi;!>fcO 

76    PHICLK    =    PHIC6R  CN  ST  2!>  90 

YCLP    =    YC6P  CNSTk6G0 

ZCLP    =    ZC6P  CNST2610 

TANIPCL     -    TANPC6  CNST2620 

71    CONTINUE  CNST2630 

PSIFI        =    PSIFIO=>RAD  CNST2640 

PSIFID    ~    PSIFDO*RAD  CNST26S0 

DO    9    1=1,5  CNST^66G 

DO    <;/    J  =  l,4  CN  ST  26  70 

9    PSBDRY(J,I)     =    ?SBDRO(J,I)    *    RAD  CNST2680 
C                 NOTE,FIDJ(  1  )=0    FOR    REAR    WHEEL    DRIVE,       FIDJ(2)=0    FOR    FRONT    DRIVE       CNST2690 

C                                  FOR    WHtEL    ROTATION    EQUATIONS  FRONT    J=l     »    REAR    J=2                          CNST27C0 

DC       12       J=l,2  CN ST  27 10 

TBRAKB          =       0.25    *    FIDJ{J)*    ARBR(J)  *    ARBR(J)                                                          CNST2720 

TBRAKA    =    FIWJ(J)    ♦    TBRAKb  CNST 2730 

TBRAKD    =    1.0    /(TBRAKA*TBRAKA    -    TBR AKB*TBR AKB )  CNST2740 

ARFACl(J)    =    6.0    ♦    ARBR(J)    ♦ ( TBR AKA-TB RAKB  )    *     TBRAKD  CNST2750 

RPSFA(J)    =    TBRAKA    *    TBRAKD  CNST2760 

RPSFB(J)    =    TBRAKB    *    TBRAKD  CNST2770 

ARFAC2(J)     =    6.0    ♦    ARbR(J)    /    TBRAKA  CNST27BG 

RPSFC(J)    =    1.0    /    TBRAKA  CNST2790 

RPSFD(J)    =    TBRAKB    /    TBRAKA  CNST28O0 

TLAMB(J)    =    RPSFD(J)  CNST2810 

ARFAC3(J)    ^     (RPSFA(J)    -   RPSFB(J))  »    12.0                                                                        CNST2820 

RPSFE(J)    =    12.0    ♦    RPSFCiJ)  CNST2fa30 

12  CONTINUE  CNST2a40 
DO  13  1  =  1, -V  CNST2850 
J=l  CNST2860 
IF(I.GE.3)  J=2  CNST 2b 70 
ARBRKI)    =    ARBR(J)  CNST2880 

13  CONTINUE  CNST2fa90 
C                       RWDRIV    =    1.0    FOR    REAR    WHEEL    DRIVE,    =0.0    FOR    FRONT    WHEEL    DRIVE       CNST290G 

RWDRIV    =    1.0  CNST 29 10 

IF{FIDJ<2)     .EQ.0.0)     RWDRIV   =    0.0  CNST2920 

C  JDEND    SIGNIFIES    'DRIVE*     END    OF    VEHICLE,    =1    FDR    FRONT,    =2    FOR    REAR    CNST2930 

JDEND    =    1  CNST29A0 

IF(FIDJ(1).EQ.0.0)    JDEND    =    2  CNST2950 

DO    23    1  =  1, *t  CNST2960 

23    TAU(I)     =TAUO(I)  CNST2970 

130    DO    132    J=1,NTTS  CNST2980 

132    TT(J)    =    FLOAT( J-1)*DTT+BTT  CNST29«0 

DO    134    J=1,NTLF  CNST30G0 

134    TTAU(J)     =    FL0AT(J-1)«DTLF+BTLF  CNST3010 

DRPM    =    (ERPM-BRPM)/FL0AT(NRPM-1)  CNST3020 

DO    136    J=-1,NRPM  CNST  3030 

136    TRPME(J)    =    FL0AT(J-1)*DRPM+BRPM  CNST3040 
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SUBROUTINE    CRBlMP(i)  CRBIOOIO 

C  HV0SM-VD2    VhMSION  CREIOOkO 

C  REVIStU    OCTOBER    l^^TS         CALSPAN    COf-POP ATION  CRBIOObO 

COMMON/ lNPTl/YClPtYC?ftZC?P,Dt Lie, PHICl»fHlC2,AMUC,XlP St  CRBIOOAO 

1  CPSPtCiMGPSt  AKPS»EPSPS,XPS,RWHJB ,KWHJE  tORWHJ ♦ INDCRB,       CRBI0050 

2  PSIFICPSIFOO  CRE10060 
DIMENSION  YCIP(2)  CRbI0070 
EQUIVALENCE  ( YC  IP (  1 )  tYCl P  )  CRBI0080 
COMMON  /INTG/NEQfT,DT,VAR(5G) tDER(  50)  CRei0090 
tUU  I  VALENCE     {U,VAR(  1  ))  ,(  V,VAR(2  )  )»  (W,VAR(  3  )  )  ,  (  P  ,  VAR  (  4  )  )  »  {C;,VAR(5)  )CRBI0100 

1  ,  (R  ,VAR (6)  )  t( DELltVAR (7)  ), (uELlD,VAR(b)  ) , ( D EL  2 t VAR ( V ) ) ,CRB10110 

2  (DbL2D,VAR(10)),  (DEL3»  VAR(  11)  )  ,  (!jEL3D,VaR(  12  J  )  ,  CRblC120 

3  (PH1R,VAR(  13) ),(PHIRD»VAR(14)  ) ,(ThF1TP,VAR(15) ) ,  CRB10130 

4  (PhlTP,VAK(16)», (PSITP,VAR( 17) ) , (XCP,VAR{18) )»  CRBI0140 

5  (YCP,VAR(19) ) ,(ZCPtVAR(20) ),( PSlFIjVAR (21) ) ,  CRBI0150 

6  (PSIFID,VAR( 22))  CRBI0160 
EQUIVALENCE     (DU,DER( 1 ) 1 t (DV,DER ( 2)1 , ( DW,DFR ( 3 ) ) , (DP»DER ( 4) ) ,  CRBI0170 

1  (DQtDERt  5)  ),  {DRtDER(6)  ) t ( DDELl ,DER (7 ) ) , (DD EL  ID ,DER( 8 ) ) CRBI 0180 

2  , (DDEL2,DER(9) ),(DDcL2D,DER( 10) ), (DDEL3 tDER(ll) ) t  CRBI0190 

3  (DDcL3DtDER( 12) ) »<DPHIR,DER(13)) , (DPHIRD,DER(14) ),  CRBI0200 

4  <DTH1TP,DER( 15)), (DPHlTPtDER( 16) },(DPSITP,DER(17) ) ,  CRBI0210 

5  (DXCP,DER(18 )),(DYCP,DER( 19) ) ,(DZCP,DER(20) ),  CRBI0220 

6  (DPS1FI,DER( 21) ), (DDPSF1,DER(22)  )  CRBI0230 
EQUIVALENCE     (VAR ( 9) , PH IF ) , ( VAR( 10),PHIFD) , (DER (9 ) , DPHIF ) ,  CRBI 0240 

1  (DER(IO) tDPHIFD)  CRBI0250 

EQUIVALENCE     (VAR(13) ,DEL4) , ( VAR ( 14 ) ,DEL4D ) t ( DER < 13),DDEL4) ,  CRBI 02 60 

1  (DER(14),DDEL4D)  CRBI0270 

COMMON    /DIMV/XlP,X2PtX3PtX4P,YlP,Y2P,Y3P,Y4P,ZlP,Z2P,Z3P,Z4P,PHIl,CRBI02  60 

1  PHI2,PHI3,PHI4,PSI1,PSI2,PSI3,PS14,CAYW(4),CBYW(4),       CRBI0290 

2  CGYW(4) ,ZPG1(4),THGI(4),PHGI(4) ,CPG (4 ) .SPG (4 ) ,CTG(4 ) , CRBI0300 

3  STG(4) ,CAGZ(4),CB&2(4) ,CGGZ(4) ,D1(4),D2(4),D3(4),  CRBI0310 

4  XLMl{4) ,XLM2(4),XLM3(4),AMTX(3,3),CMTX(3,4),XGPP(4),    CRBI 03 20 

5  YGPP(4) ,Z&PP(4),DMATX(10,11),DELTA(4) ,CAR(4),CBR(4),    CRBI0330 

6  CGR{4),FR(4),HI(4) ,FC(4),TI(4),AX(4),BX{4),CX(4),  CRBI0340 

7  CTXG(4) ♦UG<4),STXG(4) ,AY(4),BY(4),CY(4),CPYG<4),  CRbI0350 

8  SPYG(4) ,VG(4),PSIIP(4) ,PH1CI(4) ,CAC (4 ) ,CbC(4) ,CGC (4 ) ,CR Bl 0360 

9  FCXU(4)  ,FCYU(4),FCZU(4)iFS(4)  ,CAXW(4»  ,CBXW(4)  ,CGXW(4-)  CRBI03  70 
COMMON    /DIMV/AS(4),BS(4) ,CS(4 ) ,CAS ( 4) ,CBS (^ ) , CGS (4  )  ,b£TP (4 ) »  CRBI 03 80 

1  BET6R(4),FSXU(4) ,FSYU(4) ,FSZU(4) ,FRXU(4),FRYU(4),  CRBI0390 

2  FRZU(4)  ,FXU(4),FYU(4)  ,FZU(4>,SU4),F1FI(2},F1RI(2),       CRBI0400 

3  F2FI(2),F2RI{2),CAH(4) ,CBH(4) ,CGH(4)  CRB10410 
DIMENSION  XP(4) ,YP{4),ZP (4),PHII(4)tPSII(4)  CRBI0420 
EQUIVALENCE     (XP(1),X1P), (YP(1),YIP) ,  (  ZP( 1 ) ,Z1P) , (PHIK 1),PHI1),          CRBI 0430 

1  (PSII(1),PSI1)  CRBI0440 

COMMON    /C0MP/SUMM,THETN,PHIN»PSIN,PI»RAD,6AM1,GAM2,GAM3,GAM4,GAM5,CRBI04  50 

1  GAM6,GAM7,GAM8,GAM9,THETT,PHIT,PSIT,ZR0,TR02,  CRBI0460 

2  TF02,TIZ,RH02,RH0MUR,AMUF,BMUR,ZPRf TM4,RHMR2,A02APB,    CRBI0470 

3  B02APB,RFTF,TS02,RRTS,BR0MURtXMUFD2,AXMF02,XMTF04,  CRbI0480 

4  XIZR,RTR,RHMR2I,XIXP,XIZP,XIXZP,XIYZP,D1PD2,D1MD2,         CRBI0490 
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5  ZRD3f ZR03R,ZFD3R,ZFD12,TI22,TG61,DDlP2tDDlM2f RPRfPHRPCRBIOSOO 

6  ,TANlTP,SPHTP,CPHTP,S6CTP,SFXS,SFYS,SFZStSNPS,SNTSt  CRBI0510 

7  SNPSS,TPR,CAY,CBY,CGY,CAX«CBX,CGX,SFYU,SFXU»SFYUF,  CRBI0520 

8  SFYURtSFZUf COSTH,SlNTH,COSPS»SINPStCOSPH»SINPH,ANGli  CRBI0530 

9  AN&2,CHHl,SPHl,CPSIfSPSItPlfP7,P3,P4,P5fP6,TX,TY,TZ  CRBiOS^O 
COMMON    /C0MP/TRH,DISTX,DIi>TYtDIST0,DISTStD21tZeTA<f,ZtTA4Df  ZtTA3,  CHBlObbO 

1  ZET A3D,SFZ1 , SNPU tSNTU f HCGHl , HCGHZ,HCGH3 tHCGHn , TERMl t  CRbl0560 

2  TERM2,SNPSUf SNPRtHCBHltHCbH2iHCbH3tHCBHA,HCAHl,HCAH2f CRB105  7G 

3  HCAHitHCAH'^tUgtWPtURfQR»VPtPR,P2tQ2tR2tVR,W0tPt)»PHIR2CREI0&fa0 
H  ,PHlRD2,RPHRD,GCTH,GSTH,GCTSP,GCTCP,XXX,YYY,IX»IY,XXlfCRBI0L>90 
5                                     XX?,YYl,YY2»ThGl,THG2,PHGl,PHG2,ZZl,ZZ2tLLL  CREI0600 

DIMENSION    HCAH{s),HCBH(4) ,HCGH(^)  CRBI061C 

EQUIVALENCE     (hCAH ( 1 ) ,HCAH1 ) , ( HC6H( 1 ) t HCBHl ) , (HCGH( 1 ) ,HCGH1 )  CRBI06  20 

COMMON    /COMPN/    FRSP( 4) ,F RCP( A ) , ICbHiT, JCBhlT ,  CRBI0630 

1  DPSIN,T,TANPClf  TANPC2fPHIClR,PHIC2PfAMUCMP,PHIlD»  CRBI06A0 

2  PHl2D,LCBl(4),LCB2{4),lHlT,AJM7X(3,3),bMTX(3,3),  CRBI06i.O 

3  iFRX(^)  ,SFRY(^),SFRZ(4),T1PS1,T2PS1  .XMUGIK)  C;<B106t.O 
LOGICAL  LCB1,LCL2  CRBIOfoTO 
COMMON    /TIRIN/    AKT (4  )  ,SI GTl A ) t XLAMT (4 ) ♦ AO ( 4) t Al (4) , A2( A ) ♦ A3 ( A ) t  CRBiOeeO 

1  A4(4)  ,0MFGT(4)  ,AMU(4>f  RW(A)  tFJP(3&»'4),A234(4Jt  CRB10690 

2  A12(4),0MT2A214),0MT2M1(4) ,A2j(4),ITIR(4)  CRBT0700 
CDMMON/NEWCRB/  ^  YC3P»  YCAP  ,  yCf>P  t  YC6P  ,  YCLP,  CRblOTlO 

1  /C3Pf ZC4P,ZC5P»ZC6P,ZCLP,  CKB10720 

2  PHlC3tPHIC*r,PHiC3»PHIC6,NCRfcSL,  CRBI0730 

3  TANPC3tlANPCH,TANPC5»lANPC6,TANPCLf  CKbIC7^0 

4  PHlC3R,PHIC4K,PHlC5RtPHlCfcStPHICLRi  CRfcI075>0 

5  YCMP16) ,ZCMP(6) ,PHICM(6)  CRBI0760 
DIMtNSlON  FJPP(2&)  CRB10770 
DO    20    N-li35  Cf=!BI0780 

20    FJ^P(N)     =    FJP(N,1)  CRBI0790 

1  SNPSI  =  SlNiPSIUD)  CRblObOO 
CSPSI  =■  COSiPSIKD)  CRblGSlO 
SNPHI  =  SIN(PHII(I))  CRBI0620 
CSPhI  =  COS(PHII(I))  CRBI0830 
£,FKX(  I  )  -  0.0  CR  BIOS  40 
SFr^Yd  )  -  0.0  .  CREI085.0 
SFRZd  )  =  0.0  CR&10fa60 
TTAJ21  -  CSPHI  *  SNPSI  CRB10870 
TTAJ31  =  SNPHI  ♦  SNPSI  CRBlOatO 
AJMTX(1,2)  =  -SNPSI  CRB10890 
AJMTX(2,2)  =  CSPHI  ♦  CSPSl  CRBI0900 
AJMTX(3,2)  =  SNPHI  *  CSPSi  CRBI0910 
XJ    =    -26.0*RAD  CRBI0V2C 

2  DO  11  J=l,53  CRB10930 
THTJ  =  4.0*XJ  CRBI0940 
STJ  =  SIN(THTJ)  CRBI0950 
CTJ  =  COS(THTJ)  CRB10960 
AJMTXd.l)  =  CTJ*CSPSI  CRBI0970 
AJMTX(^,1)  =  TTAJ21*CTJ  ♦  SNPhI*STj  CRBiOVSO 
AJMTX(3,1)  =  TTAJ31*CTJ  -  CSPHI*STJ  CRB10990 
AJMTX(1,3)    =    CSPHI*STJ  CRBIIOOO 
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AJMTX(2,3)    =    TTAJ21*STJ    -    SNPHI*CTJ  CRBIIOIO 

AJM7X(3,3)     =    7TAJ31«STJ    ♦    CSPHI*CTJ  CRBI1020 

AJMTX    ANGLE    SEQUENCE    IS    PHI,PSItTHJ  CRBI1030 

3  DO    8       K=l,3  CREl 1040 

4  DO  7  L=l,3  CRBIIOS-O 
BMTX(K,L)    =    0.0  CREllOtO 

5  DC  6  K  =  1,3  CRBI  10  70 
BMTX{K,L)     =     BMTX(K,L)  +  AMTX(K,N1)*AJMTX(M,L)  CRbllOtO 

6  CONlINUt  CRBI  lOVO 

7  CONTINUE  CRBIUOO 

8  CONTINUE  CRbllllO 
HJ  =  -ZPd  )/bMTX(3,3)  CRblll^O 
IF(HJ,L1  .O.O.OR.HJ.&E.RW ( I) )  GO  TO  800  CRBI1130 
YJP  =  YPd  )  +  BMTX(2t3  )*HJ  CRBI1140 
IF(YJP.LI.YCIP)     GO    TO    203  CRBIll^O 

800    HJ    =    (-ZP(I)+(YP(I )-YClP)«TANPCl  )/(6MTX(3,3)-bMTX(2»3)*TANPCl)  CRB11160 

IF(HJ.LT.O.O.OK.HJ.GE.RW»  I) )     GO    TO    805  CRBIllTO 

YJP    =    YH(I  )*BMTX(2,3)*HJ  CRBUIBO 

ZJP    =    ZPd  )+BMTX(3,3  )*HJ  CkBI1190 

lF{YJP,&t,YClP.AND.YJP.Lfc.YC2P.AND. ( ABS ( Z JP ) . LE . AB S rZC2P ) ) .AND.  CRBI 12  00 

1       ( SIGNl l.OfZJP) .EC.SIGN (1.0,ZC2P) ) )    GO    TO    20h  CRE11210 

805    HJ    =     (ZC2P-ZP(I )+{YP(I )-YC2P)*TANPC2)/(bMlX(3t3)-BMTX(2,3)*  CRBI1220 

1               TANPC2)  CRBI1230 

IFCHJ.LT.O.O.OR.HJ.GE.RW I  I ) )     GO    TO    810  CRBI1240 

YJP    =    YPd  )  +  BMTX{2,3  )*HJ  CR&I1250 

ZJP    =    ZPd  )-»-EMTX(3,3)*HJ  CKbll260 

IF(YJP.GT,YC2P.AND.YJP.LE.YC3P.AND.(ABS(ZJP) .LE. ABS ( ZC 3P ) ) .AND.  CRbl 12  70 

1       < SIGN(1.0,ZJP) .EC.SIGN{1.0,ZC3P) ) )    GO    TO    204  CRBI1Z60 

810  1F(NCRBSL.E0.2)  GO  TO  10  CRBI1290 
HJ    =     {ZC3P-ZP( I)+(YPd )-YC3P)*TANPC3)/(BMTX(3»3)-BMTX(2,3)*TANPC3)CRBI 1300 

IF(HJ.LT.O.O.OR.HJ.GE.RW(  I) )    GO    TO    815  CRBI1310 

YJP    =    YPd  )  +  BMTX(2,3)*HJ  CRBIi320 

ZJP    =    ZPd  )  +  bMTX(3,3)»HJ  CRBI1330 

1F(YJP.GT.YC3P.AND.YJP.LE.YC4P.AND.(ABS(ZJP).LE.ABS(ZC4P) ) .AND.  CRbl 13  40 

1       ( S1GN(1.0,ZJP).EQ.SIGN< 1.0,ZC4P) ) )    GO    TO    204  CRBI1350 

815    1F(NCRBSL.EQ.3)    GO    TO    10  CRBI1360 

HJ=     (ZChP-ZP(I )+(YP( I)-YC^P)*TANPC4  1/(BMTX(3,3)-BMTX(2,3)*TANPC4)  CRBI 1370 

IF(HJ.L1.0.0.0R.HJ.GE.RW(I) )    GO    TO    820  CRB113e0 

YJP    =    YPd  )+BMTX(2,3)*HJ  CRBI1390 

ZJP    =    ZPd  )-^BMTX(3,3)*HJ  CRbI1400 

IF(YJP,GT.YC4P.AND,YJP.Lt.YC5P.AND.(ABS(ZJP) .LE .AB S( ZC 5P ) ).AND.  CRBI 1410 

1       ( SIGN(1.0,ZJP).EQ.SIGN(1.0,ZC5P) ) )    GO    TO    204  CkB11420 

820     IF(NCRBSL.EQ.4)    GO    TO    10  CRBI1430 

HJ=     (ZC5P-ZP(I)+(YP( I)-YC5P)*TANPC5)/(bMTX(3t3)-BMTX(2,3)*TANPC5 )  CRBI 1440 

IF(HJ.LT.O.O.OR.HJ.GE.RW(I) )    GO    TO    825  CRBI1450 

YJP    =    YPd )+bMTX(2f3)*HJ  CRBI1460 

ZJP    =    ZPd  )+BMTX(3,3)*HJ  CRBI14  70 

IF(YJP.GT.YC5P.AND.YJP.LE,YC6P.AND.(ABS(ZJP).LE.ABS(ZC6P) ) .AND.  CRBI 14  80 

1       {SIGN(1.0,ZJP).EQ.S1GN{1.0,ZC6P) ) )    GO    TO    204  CRBI1490 

825    IP(NCRbSL.E0.5)    GO    TO    10  CRBI1500 

HJ=     <ZC6P~ZP(I)+(YP( I)-YC6P)*TANPC6)/(BMTX(3»3)-BMTX(2,3)*TANPC6)  CRBI 1510 
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DATE   01/14/76. 


TIME       1725 


UPDATE    RECORD 


1F(HJ.L 
YJP  =  Y 
1F(YJP. 


203 

204 


ZJP 
XJP 
CAJ 

CBJ 
CGJ 


10 
11 


110 


111 

900 
<?05 

<>10 
9lb 

920 
92  3 

930 
935 


CALL  IN 
SFRX(I) 
SFHY(I) 

SFR2<  n 

XJ    -    XJ 
CGNTINU 
FRd)    = 
1F(FR1I 
CAK(I) 
Ca^(I) 
CGRd  ) 
HI(I)     ^ 
RETURN 
CAR (I ) 
CBR(I) 
C&R( I) 
Hid  )    = 
IF(HI{ 1 
HI(I)     = 
TYGP    = 
PHGKI  ) 
1F(TYGP 
iF( TYGP 
uO    TO    9 
PHGIII) 
GO    TO    1 
1F(NCRE 
IF( lYGP 
GO    TO    9 
PHGK  I) 
GO    TO    1 
IFiNCRL 
IFiTYGP 
GO    TO    9 
PHGKI) 
GC    TO    1 
IF(NCRb 
IF (TYGP 
GO    TO    9 
PHGK  1) 
GO    TO    1 
1F(NCRB 
iF{TYGP 


T.0.0 

P(I)  + 

LT.YC 

P(I)* 

P(I  )  + 

XP(I) 

YP(I  ) 

ZP(I  ) 

TRPL( 

=    SF 

=    SF 

=    SF 

-^RAD 

t 

SQRT 
)  .N  E  . 

-  0.0 
=    0.0 

-  0.0 
RW(  I 


.OR.HJ.GE.RW(I) )    GO    TO    10 

bMTX(2t3)*HJ 

fcP)    GO    TO    10 

EMTX(:>,3  )#HJ 

bMTX(l,3)*HJ 

-XJP)/HJ 

-YJP)/HJ 

-2JP)/HJ 

FJPP,RWHJBtRWHJEiDRWHJ,RW{I )-HJ,Fj) 

RX(1)+FJ*CAJ 

RY(l)+FJ*CbJ 

RZ(I)+FJ*CGJ 


(SFKX(  I)**2+i>FRY(  1  )  **2-»SFRZ  (  1  )  **2  ) 

0.0) GO    TC    110 


=  -SFRXd  )/FR(l  ) 
=  -SFRY(I)/FR (I) 
=    -SFRZ(  D/FRU  ) 

RW(I  )-FRil )/AKT( I  ) 
).GT.»W(1)-SIGKI  )  )    GO    TO    111 

KW< I)-(FR(I )/AKT(I )+SlGT(I )*(XLAMT(I )-1.0) )/XLAMT( I) 
YP(I )+Hl(I )*CbR(I ) 

=    0.0 
.LE.YC1P)G0    TO    12 

•GT. YClP. AND. TYGP. LE. YC2P )    GO    TO    900 
03 

-    PHICIR 
2 

SL.EQ.2)    GO    TO    970 

. GT.YC2P. AND. TYGP. LE.YC3P)    GO    TO    910 
lb 

=    PH1C2«' 
2 

SL.E0.3)    GO    TO    970 

.GT.YC3P. AND. TYGP. LE.YC4P)    GO    TC    920 
23 

~    PH1C3R 
2 

SL.E0.4)    GO    TO    970 

.GT.YC4P. AND. TYGP. LE.YC3P)    GO    TO    930 
33 

=    PHIC4R 
2 

SL.EQ.5)    GO    TO    970 
. &T.YC3P. AND. TYGP. LE.YC6P)    GO    TO    940 


CRB115  20 
CRBI1530 
CRBI1340 
CRB11330 
CRB113fc0 
CRbll5  70 
CREI1580 
CRBI  1390 
CRBl 1600 
CRBI1610 
CRBI1620 
CRBIlo30 
CRBIi640 
CRBI  lo30 
CRBI16fc0 
CRBI  16  70 
CRbl  16fc0 
CREI1690 
CRBI 1700 
CRbll710 
CRBI 1720 
CRBI 1730 
CRBIi740 
CRBI 17  30 
CRBI 1760 
CKbl  17  70 
CRBI  17  60 
CRbl 1790 
CRbl  18  00 
CRBI  IfclO 
CRBI 1620 
CRBI 1830 
CRBI 16^0 
CRBI1830 
CRBli860 
CRBI  16  70 
CRBI1880 
CRBI  18  90 
CRBI 1900 
CRBI  IV  10 
CRBI  19  20 
CRbl  19  30 
CRBI  19^0 
CRBI  1930 
CRBI19  60 
CRBI 1970 
CRBI  19  BO 
CRBI  1990 
CRBI2000 
CRP12010 
CRBI 20  20 
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DATE   Ol/lA/76 


TIME        1725 


UPDATE    RECORD 


940 

970 
12 


GO    TO    9  70 

PHGI(I)     =    PH1C5R 

GO    TO    12 

PHGKl  )     =    PHICLR 

TCI     =    CAR{  I )*CBYW(  I)-CbR  (  I)*CAYW{I  ) 

TAI     =    Cek( I )*CGYW( 1)-CGR(  I)*CbYW(I  ) 

TBI     =    CGR( I )«CAYW( I )-CAR( I)*CGYW(I) 

CPG(I)     =    COS(PHGI(I  )  ) 

SPG(I)     -    SIN(PHGI(I)  ) 

TERM3    =    TBI*SPG(I) 

T£KM4    =    TCI*CPG( I) 

DM     =    TAI    ♦     (TERM3    -    TERM4) 

DN2    =    -TBI*TERM4    -    (TAI**2    ♦    TCI**2 )*SPG( I ) 

DN3    =        (TAI**2    ♦    TBI**^)«CPG( I)       ♦    TCI*TERM3 

TERM5    =    S0RT(DN1**2    *    DN2**2    ♦    DN3**2 ) 

SPG(I)    =    (-DN2/TERM5) 

PHGK  I>    =    ARSINJSPGI  I  )  ) 

THGI(I)    =    ATAN     {DN1/DN3) 

CPG(  I)     =    COSIPHGKI)  ) 

TERM6    =    SQRT(DN1**2    ♦    DN3**2) 

CTG( I)     =    DN3/TLRM6 

STG(I)    ^    DN1/TERM6 

STORt    XGPPCI ),YGPP( I  )     AS    WELL    AS    ZGPP(l)     IN    CRBIMP 

XGPP(I)     =    XP(I)    +    HI(l)     ♦    CAR(I) 

YGPP( I  )     -    TYGP 

ZGPP<n     =    ZP(I)+HI(I)*CGR(I) 

RETURN 

END 


FOR 


^612030 

CR  6 120  40 

Ckfcl2O50 

CRBl 2060 

CRB120  70 

CKBI20bO 

CRBl 2090 

CRBI2100 

CRbI2110 

CRBT2120 

CRBI2130 

CRB12i40 

CRBI2150 

CKB12160 

CRBI2170 

CRbl2180 

CKBI2190 

CRBl  22  00 

CRbI2210 

CRBl  2220 

CREI2230 

CRBI22  40 

PLOTTING         CRBI2250 

CRBI2260 

CRbl  22  70 

CRBl  22  80 

CRBI22S0 

CRB12300 
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DATE       01/14/76  TIME       1725  UPpATE    RECORD 


SUBROUTINE    CTQB  C7  0B0010 

C                                     HV0SM-VD2    VERSION  CTOBOO<^0 

C                                     REVISED    0CTU6ER    1975         CALSPAN    CORPORATION  CT0BOO30 

C0MM0N/TNPT5/    I&TYP( 2) ,AKlf AK2 t PONE tPTWO, PZERO( 2) ,GN( le ,2 ) , ZETAB ,    CTgB0040 

1  C0NE,CTW0,CTHREE,TAUA,TAU0(4),TLF(51),TTAU(51),  CTtBOObO 

2  TRPME(12>,TW0T(12) ,TCT( 12 ) , TT ( ICl ) ,T PC< 10 1) , TTR ( 101 ) CT QL OObO 

3  tTTS( 101) ,B7LF,ETLF,DTLFtNTLF,BRPM,FRPM,NRPM,  CTQbO070 

4  BlT,ETT,DTT,NTTl,NTT2,NTT3fNTTStXlNPT5(9)  CTQP0C80 
L0MMON/C0MP5/    TAU(4) ,700(2) ,T0B(4) ,PP (2 ) , 1LAMB( 2 ) , PC,RWDRI V t JDEND ,CT 0b0C90 

1  NtiTYP,ARFACj(2)  ,RPSFE(2),RhOSMX(3),SLlPMX(3)  .SLIPP,    CTOtOiOO 

2  Rh0MAX,RH0SAV(H),SRH0S(4>,UGW(4),AbSUGW(4) ,VECS,  CTOBOl 10 

3  D£LTAL,PI015RtCL'MtN5,TQE,RPME  CT0E0120 
C  CT&eOlBb 
C  THIS  SUBROUTINE  COMPUTES  BRAKE  TORQUES  AT  EACH  WHEEL  CTQB0140 
C  CTCBOli.^ 

PI    =    PCNE  CTCbOicO 

P2    =    PTWO  CTQB(/170 

PP(  1)    =    PC  CTOBOliiO 

PP(^)    -    PC  CTOBOIVO 

10    IFUPC.GT.Pl  ).AND.(PC.L£,P2)  )    PP(2)=    PI    +    AKl    *    (PC    -    PI)  CTQBO^OO 

IF(     PC.&T.P2)    PP(2)=    PI    +    AKl    ♦    (P2-P1)    ♦    AK2    ♦    (PC    -   P<^)  CTGB0210 

C  CTCB02  20 

C       JFP          FRONT   WHEELS    JFR=1;    REAR    WHEELS    JFR=2  CTyB0230 

C  CTGL0240 

DO    45    1  =  1,4  CTQB02t'0 

JFR    =    1  CTQEO^tO 

IF(I.GT.2)    JFR    =    2  CTCB0270 

NBTYP    =     1STYP{JFR)  CTObOlbO 

PJ    =    PP(JFK)  CTQE0290 

PJZ    -    PZLRO(JFR)  CTQE0300 

TQBd  )    =    0.0  CTGB03i0 

IF( (PJ-PJZ).LT,0.G)     GO    TO    45  CTQB0320 

TEMP    =    TAUII  )  CTCbOSBO 

DO    17    L=2,NTLF  CTQb0340 

LL    =    L-1  CTQB0350 

15      IF(    TLWP.EQ.TTAU(LL))    GO   TC    20  CTQb03fe0 

IF(  (TEMP. Gl.TTAU(LL)  ). AND. (7EMP,LE.nAU(L)  )  )    GO    TC    22  CTQ&0370 

17  CONTINUE  CTQbOSeO 

18  PRINT    IV  CTCb0390 

19  FORMATC lh0,3X,»LAST    VALUE    IN    TABLE    USED    FOR    FADE    COEFF . ( FLF ) • )  CTCb0400 

20  FLF    =    TLF(LL)  CTQB0410 
GO    TO    23  CTOb0420 

C  CT&bG430 

C       PARI    -    FUNCTION    SUBROUTINE    TO    DO    LAGRANGIAN    INTERPOLATION  CT0FG4'tG 

C  CTCB0450 

22  FLF    -    PAFI(NTLF,LL,TEMP,TTAU,TLF)  CTQLG460 

23  GO    TO    (24, 30, 35, 44), NBTYP  CT0B0470 

24  GGLF    =    GN(2,JFR)    *    GN(3,JFR)    ♦    FLF  CTQB0460 
OMGGLF    =    1.0    -    GGLF  CTQB0490 
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GX    =       (GN(4,JFR)*(1.0  +  GGLF    )+    GN (5 , JFR ) ♦OMGGLF  )/   0MG&LF**2  CTQB0500 

TQBCl)     =    (1.0/12.0)*(PJ-PJZ)*&N(1, JFR1*GGLF*GX  CTQP0510 

GO    TO    4b  CT0B0520 

30    GGLF    =    GN(2,JFR)    ♦    GN(3tJFR)'*    F LF  CT0B0530 

TQBCl)     =    ( (PJ-PJZ)/6.0 )*GN(1,JFR)*GN(4,JFR)*(&GLF/(1.0-GGLF))  CTQ60540 

GO    TO    4i;  CTQb0560 

33  GGLF  =  GN(8,JFR)  *  GN(12tJFR)  ♦  FLF  CTQB0S60 
OMGGL    =    (1.0    -GN(2tJFR)    *    GN(12,JFR)    »FLF)    ♦    GN(9,JFR)     ♦GN ( 10, JFR ) CTQB 05 70 

35    TTTA  =  (GN('t,JFR)«(PJ-PJZ)  )/lc.O  CTQ&0580 

TTTB=    &N(3,JFR )*FLF  CTCB0590 

TTTSZ    =    TTTB/SOKT( 1.0    ♦    TTTd**2 )  CTQB0600 

TTTSZG    -   TTTSZ    *    GN(7,JFR)  CTQB0610 

TTTB    =    1.0    +    ( (GN{6,JFR)+TTTSZG)/(GN(1, JFR)-GN(6,JFR)-TTTSZG))  CT0B0620 

40    TTTC=TTTSZG    +( GN(1 1 , JFR) »GGLF )/OMGGL  CTCB0630 

TTTD=GN{1, JFR)*GGLF/OMGGL  CTQB06  40 

TQBd)     -      TTTA    ♦    (TTTB*TT1C    -    TTTD)  CTC/B0650 

GO    TO    45  CT;jB0660 

44  TQBd)     ^((PJ-PJZ)/6.0)*GN(3tJFR)«GN(4,JFR)*GN(  13,JFR)     ♦    FLF  CTQB0670 

45  CONTINUE  CT0B06fa0 
RETURN  CTgB0690 
END  CT0B0700 
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DATE       01/14/7t. 


TIMF        172: 


UPDATE    RECORL 


i>U'^<  ROUTINE    CIQJ 

MVUSM-VL2    VbRSION 
REVISED    OCTJBtR     1975 


CALSPAN    CCRPLikATION 


Ihl-:,    SUBROUT]  KF 
VtiUCLL    ENL     J 


CL'MPUTtS    DRIVE    LINE    TORQUE    AT    THE     PROPELLER    SHAFT    AT 


C  J    =    1  OR  2    DEPENDING    ON    WHEThE^     f^RONT     UR     REAR    WHEFL    DRIVE 

C  TWO!  -  lAbLE    OF     ENGINE    TORuUE     WIDE    OPEN    THRCTlLE 

C  TCI  -  TABLE     OF     ENGINE    TCR(.UE    CLCSEL;    THROTTLE 

C  IRPME  -  TABLE     OF     ENGINtr    REVOLUTIONS 

C  NTTS  -  NC.    VALUlS    LISTED    IN    TAi'LE    OF    THROTTLE     SfTTlNC-S,     f-^ASTER     CYL 

C  RC-E^jSURF     and    TRANSMISSION    RATIO. 

C  TTS  ~  TAELE    OF     THROTTLE     SETTINGS 

'-  TTV  ~  TAELE    OF     T  RA  NS  Ml  SS  1  UN    RATIOS 

u  ir'i  -  TAbLt   OF  Piaster   cyltnoer  pressures 

C  TT  -  TAbLE    OF     1 IME     IN    SECS.     CORRES.TC    TAEULAR    VALUES     OF    PC.TS.TR 

C  TSlC  -  TIME    IN    SlCS. 


FIWO    TTTStTTT 
CG>^MGN     /IN 
ECjUIVALENC 
1 
2 
3 
4 


.(wJIVAlMsC  E 


EOUIVALLNC 


EwUlVALENC 


COMMON    /IN 


K,PC 

TG/NE 

E     (U, 

,(R. 

<DE 

(PM 

(PH 

(YC 

(PS 

(DU 

»  (OD 
(DD 
(DT 
(DX 
(DP 

E  (VA 
(UE 

t  (VA 
(DE 

PT'+/ 


EJUIVALENC 
LQUIVALENC 

COMMON/ INP 


E     ( F  I 

E     (FT 

T5/    I 

C 

T 

»T 


FROM 

W  »  T  ,  D 

VARi  1 

VAR(6 

L2D,V 

IRtVA 

ITP,V 

P  ,VAk 

lEID, 

tOlR( 

♦  DER( 

LL<  tD 

EL  3D, 

HTTP, 

CP,DE 

SIFI  , 

R  (  ^  )  ♦ 

R(10) 

K(13) 

R(  1^) 

v-IDJ( 

XXFRC 

XMXSKi 

XKUXP 

LJ(  1) 

WJ(2) 

ONI  ,C 

RP^•lE( 

TSCIO 


lABL 
T,VA 
))  t< 
)),( 

*.R(1 
R(  13 
AR  (1 
(i'/J 
VAR( 

1)  ), 
i.)  ), 
ER  (<? 
DER( 
OEK( 
R(  18 
DLK( 
PHIF 
»DPH 
,DEL 
»DDE 
2)tF 
P(6) 
1(6, 
(^), 
,FID 
,FIW 

2)  ,A 
TrtO, 
12  ), 
1),3 


LS  AT 
K  (50) 
V,VAR 
DFLl, 
0)),( 
)  ),(P 
6  )),  I 
)  ,(ZC 
22)  ) 
(  DV,iJ 
(DR,D 
)  ),(D 
12)), 

113)    ), 

)  ),(D 
21)  ), 

)  ,(VA 

IFD) 

4)  ,(V 

L'^O) 

IWJ(2 

,yMUM 

<:■  ,  A  )  , 

XMUXS 

JF)  ,« 

JR)  ,( 

Kl,AK 

CTHRE 

1WCT( 

TLF,E 


TIME  TSEC 
,DER( 50) 
(2 ) ), (W, VAR( 
VAR(7)  ),  (DEL 
DEL3, VaR( 11) 
HIRD,VAR(14) 
PSITP,VAR( 17 
F-,  VAR(20)  )  ,  ( 

t  R  (  2  )  )  ,  (  DW  ,  D 
ER(6)  )  ,(DDEL 
DEL2D,DER< 10 
(0PHIR,DER( 1 
(DPHlTP,Dc:R( 
YCP,DER(  l'^)  ) 
(DDPSFI,DER( 
K( 10) ,PHIFD) 


3) )  ,  (P,VAR(4)  ) ,  (0,VAR (5  ) 
ID,VAR(E)  )  ,(DEL:, VAR(9)  ) 
)T(Ut  L3D,VA;^(  12))  , 
), (THETTP  ,VAR (lb)  )  , 
) ) ,  ( XCP,VAR(1&)  ), 
PSiF.,VAR (21)  )  , 

ER(3)), (DP,DER(^) ) , 
1,0ER(7))  ,  (DDEL1D,0ER{E) 
)  ), (DDEL3,DEK(11)  )  , 
3)  ) , (DPHI RO,DER(lH  )  )  , 
16))  ,(DPSnP,DER{17)  )  , 
, (DZCP,DER(20) ) , 
22)  ) 
, (DFR(9),DPH1F), 


AR(  1^)  ,OEL'tD)  ,(Df  R(  15)  ,ODELA)  , 

), AR3R(2 ) ,NXUGMU,NXFRCP,XXUGMU(6) , 
AT  (6,6,4)  iXMXPMT  (6,6,«+), 
SLIPMT(6,6,4  )  ,CT  (4)  ,XMUM(4) , 
(H)  ,RRMC(-V)  ,RRM(4)  ,C0MEN4 
FIDJ(2),FlCJ?<),(FiWJ(l),FlWJF) 
ARBR(  1),ARBRF) ,  (AR3R(2),AkERR) 
2,P0NE,PTW0,PZERC(2),GN(lt,2),ZETAb, 
E,TaUA,TAU0(4),TLF(51  ),TT/.U(5  1), 
12)  ,Tl,T(1^),TT(  lCi),TPC(101),  TTRdOl 

tlf  ,dtlf,ntlf,erpm,erpm,nrpm. 


CIQD 
CTGD 
CTOD 
CTOD 
CTQC 
CfCD 
CTQD 
CTCD 
CT  UD 
CTCD 
CTCD 
,CTQD 
CTQD 
CT  WD 
CTQD 
CTQD 
CTCD 
CTQD 
UQii 
CT  CD 
C  I  CD 
)CTQL 
,CTCD 
C I  QD 
CTOD 
CTCD 
CTCD 

ctcd 

CTUD 
)C1QD 
CTwD 
CIQD 
CTCD 
CTCD 
CTQD 
CTQD 
CTQD 
CT  wD 
CTCD 
CTQD 
CTQD 
CTQD 
CTQD 
CTCD 
CTQD 
CTOD 
CTQD 
)CTQD 
CTQD 


00  10 
00  20 

00  20 
00  40 
0050 
GU60 
00  70 
00  bO 

00  VO 
0100 

01  10 
01^0 
Oi.30 
Oi40 
01^0 
0160 
0170 

01  EO 
0x90 
0.-  00 

02  10 
0^.0 
0^  30 
02  40 
02  50 
0^60 
02  70 
OcBO 
0^  *^0 

02  CO 

03  10 
0^20 
03  3  0 
03^0 
03  50 
03  tC 
03  70 
C3fc0 

03  90 
0^  00 

04  10 
0^  2  0 
0-.  30 
0-^4  0 
04  50 
0^  60 
0^70 
04  80 
04  90 
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4  B7T,ETT,DTT,NTT1,NTT2,NTT3,NTTS,X1NPT5(9)  CTQD0500 
C0MM0N/CGMP5/    TAU{A),7CD(k),TWB{4)tPP(2 ) , TLAMB ( 2  )  t PC , RWDR I  V , JDEND , CTQD05 10 

1  NbTYP, ARFAC3(2) ,RPSFE(2) ,RH0SMX(3)  tSLIPMX ( 3)  , SLI PP ,  CTQL  05  2  0 

2  RHOMAX  ,RHCSAV(4)  ,SRH0S(4)  ,UGW(4),ABSUGW(4)  ,VtCS,  CTC.iL0530 

3  DELTAE,PI015RtCOMt:N5,TQE,RPML  CT&D05A0 
COMMON  /INTR/  NEQR»TIMR,DTR,VARR(12 )tDERR( 12 )  CTQD0550 
DIMENSION  KPSI  (^),bRPSl(4)  CT(jD0560 
EQUIVALENCE  (  VARR  (  1  )  ,  RP  SI  (  1 )  )  »  (  DERR  (  1 )  »DR  PS  I(  1  )  )  CI  QD  05  70 
C0MM0N/DPIVTT/TPATh,UtLPTH,TCTEST(6),ITESTT, I TCHNG , 1 PATHT , I DRl VE t  CTtDOSBO 

1                                          IDRVERtlBUG  CTQD0590 

C                     IPATHT    -    STOP    FOR    DRIVER    MODEL  CTQD0600 

C                     IDRIVE    -    NOT     ZEROt     SAMPLE    TIME    FOR    DRIVER    MODEL  CTQOOtlO 

C                      ITCHN&    -    NOT     ZERO,    CHANGE    DESIRED    SPEED    AND    DISTANCE  CTQD0620 

C                      ITESTT,TCTEST(6)     -     INDEX    AND    INPUT    TIMES    FOR    SPEED    CHANGES  CTC'D0t30 

CDMM0N/DRIVI/NEN,EMDT,ES,0StAPDMAX,FKD0,FKP0,FK.S10,FKS20,FKSKD0,  C TOD  06 40 

1  TESTBO,TSTSlO,TSTS20,TSTR10,TSTR20,OMEGAO,7AUF,TIL,  CT CD  06 50 

2  TL tS(5, 2) ,NTRAN,YTRANS(6 ) »GEAR1,GEAR2,GEAR3,GEAR4,  CTODOfcbO 

3  VGR12,VGR23,V&R34,VGR43,VGR32,VGR21,  CTQD0670 

4  TESTT(5 ) ,DESSI (5)»DISTI(5) ,PS1FH0,X1MP0R(9) ,  CTCD06fc0 

5  BFP1,BFP2,DR1END  CTQD0590 
C0MM0N/LRIVt/EN,FKD,FKP,FKSltFKS2tFKSKlD,TEST6tTESTSl,TESTS2,  CT0D07  00 

1  TESTR1,TESTR2,THESKD,FERK,APB,DSCES,  CTCD0710 

2  TRKIN,TMT,DESSfDIST,DISTC»CONMPH,UT,UTMPH,  CTQD0720 

3  APD,DELTAX,DELTV,TJ,TT£M,TTPSIT,PSISKD,ST,STS02,0AY,  CT0D07  30 
M                                     AXPtAYP,DI, UP, XVP,YVP, SLOPE, SLOP£R,PSIJ,XINT,X»Y,  CT0D0740 

5  TtRMX,TERMY,TEMPCR,AE,EI,£WT,AREI(7), APCAPE{7),ET,  CTQD0750 

6  PSIFFH,TITE,DPSISF,DPSILF,PSIM,APSI  ,APSIM,TPD( 10) ,  CT0D0760 

7  PPD(IO) ,NPD,  KCOUNT, IS KIDP,lSMAIN,IGtAR, WEIGHT (10),  CTQD0770 

8  DEND  CT0D07fc0 
DIMENSION  VGRU(3),VGRD(3 ) ,GEAR(4)  CT0D0790 
EQUIVALENCE     (VGRUd)  ,VGR12)  ,(VGRD(  1  ) ,  VGR43  ) ,  (  GEAR{  1 )  ,GEAR1 )  CT&D08  00 

TSEC    =    T  CTQD0810 

C               JDEND    SIGNIFIES     'DRIVL*    END    OF    VEHICLE,    =1    FOR    FRONT,     =2    FOR    REAR  CTQD0a20 

IF( JDEND.EQ.l)     L    =    1  CTQD0630 

IF(JDEND.EQ.2)     L    =    3  CTQD0fa40 

TQD(l)     =    0.  CTQDOb50 

TQD(2)     =   0.  CTQD0660 

IF(IDRVER.NE.O)    GO    TO    50  CTQD0b70 

IF(NTT1+NTT2+NTT3.EQ.0)    GO    TO    41  CTQD0680 

DO    10    I    =    2,NTTS  CT0D0690 

IA=I    -    1  CTQD0900 

RATIO    =    0.0  CTQD0910 

PC=TPCtlA)  CT0D0920 

TTTS    =    TTS(IA)  CTCD0930 

TTTR    =    TTR(IA)  CTQD0940 

IF(  (TSEC.GT.TTd-l  )  ).AND.(TSEC.LT.TT(  I)  )  )    GO    TO    14  CTQD0950 

IF(TSEC.GT.TT(NTTS))    GO    TO    11  CT0L0960 

IF(TSEC.EQ.TT(     lA))    GO    TO    21  CTQD0970 

IF(TSEC.EQ.TT(I))    GO    TO    20  CTQC0980 

10  CONTINUE  CTQD0«>90 

11  TTTR    =    TTR(NTTS)  CTQDIOOO 
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PRINT     li:  tTSECTTTR  CTQLiOiO 

12    F0RMAT(1H0,3X, 'TijEC    NOT    WITHIN    RANGE    OF    TABULAR    VALUES    TSfcC    =»,  C1&D1C20 

1    tl3.fc,»SfcT    TRANSMISSION    ^AT I D,TTT R=« , E 15 .£ )  CTtD1030 

NTTS     IS    THE    LARGEST    INTEGEI^    IN       10.»(T1    +    DT )       +    1.  CTQD104G 

TO    AVOID    OUT-OF-RAN&t    MESSAGES,    USE  CT0L1050 

L                               NTTS     IS    THE    LARGEST     INTcGER    IN       10,*{T1    ♦    DT )       ♦    2.  CTQD1060 

GO    TC    2  0  CT&DIU/O 

14    RATIO    -     (TS£C-TT(IA) )/(Tl(IA+l)-TT(lA))  CTQDlOeO 

TTTR    =    TTRd  A)*RAT10*(TTR{1A+1)~TTR(IA)  )  CTCCIOVO 

C       WHtN    RATIO    IS     .GT.    0.5    SET    TTR    TO    NEXT    VALUE  IN    TAbLE                                            CTC'jUOG 

IF(RAT1U.GT.0.5)    TTTR    =    TTR(IA*1)  CTOLillO 

C  01 QD  11  20 

C       PARI    ~    FUNCTION    SUbROUTINE    TO    \jV    LAGRANGIAN    INTEKPOLATIDN  CT0D1130 

C  CTODllAO 

PC    =    PAkH.\TTS,IA,TSEC,TT,TPC)  CTt/D1150 

IFCPC.LT.O.O)     PC    =^    0.0  CTQDllt.O 

IT1S    =    PARI(NTTS,IA,TSEC»TT,TTS)  CT0D1170 

IF(TTTS.LT.O.O)     TTTS    ^    0.0  CFOuliao 

GO    TO    ^1  CTCD1190 

20  TTTR  ^  TTR(IA+1  )  010012-00 
TTTS  =  TTS(IA+I)  CTtL 12 10 
PC  =  TPC(IA+1)  CTQL122G 
GO    TO    *.!  CTQ0  12  30 

C    DRiVcR    CONTROLS    CONVERTED    HERE  CTODl^AO 

50    TTTS    -    APD/APDMA^X  CT  CO  12  50 

IF(TTTS.LT,0.0)    TTTS    -    0,0  CTOL12fcO 

PC    =    cFPl*F«RK-»tFP2*F5RK**2  CT0D12?0 

IF(PC.LT.O.O)    PC    =    0.0  CTQD1260 

TTTR     -    GLAR(IGEAR)  CT0D129C 

RP-IE    =    Pi015R*ARBR(  JD£N0)*TTTR*(RPS1(L)+RPSI  (L  +  1  ))  CT0D1500 

IF(TQE.LT.O.O)     CO    TO    55  CTCD1310 

IKRPME.LT.VGRU(IGEAR)  )    G:    TO    57  CTQ0i320 

IGIAR    =     lGLAR+1  CT0D133O 

TTTR    =    GLAR(IGEAR)  CTQD1340 

GO    TO    21  CT0[.i3  50 

55     IFdGcAR.EC  1)     GO    TO    57  CTQD1360 

Ir(KPME  .GT.VGRD(5-I&EAR)  )    GO    TO    57  CTC.D1370 

IGEAR    =     IGtAR-1  CTCD1380 

TTTR    =    tr:AR(  IGEAR)  CTgD1390 

21  RPMF    =    P1015K*ARbK( JDLND)*TTTR*(RPSI(L)+RPSI ( L-H))  CTQDI4G0 
57    CONTINUE  CTQDl^lO 

iF(RPME.LQ.O.O)     GO    TO    41  CT0L1m20 

1F( (RPMt.GT.O.) .AND. (RPME.lt. 500.0) )    RPME  =    500.0                                                 CTCLi430 

DO    30    1=2,NRPM  CTCOKAO 

lA    =    I     -    1  CTQLi450 

TEST    =    AflS(RPMF-TRPM£ (lA))  CTQD1460 

IF  (TEST.GT.0.05)    GO    TO    27  CTC'L1A70 

24    TQWOT    -    TWOT(IA)  CTOOItEO 

TQCT       =    TCTdA)  CTCD14V0 

oO    TO    3  7  CT  CO  15  00 

27     IF{ (RPMh.GT.TRPME(     I  A)  ) .AND. ( KPME .LT.TR PMt (I ) ) )     GC    TO    34  CTQD1510 
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30    CONTINUE  CTGD15>20 

lA    =    NRPM  CTQD1530 

GO    TO    k4  CTQDlb^O 

34    RATIO    =     (RPME-TRPME(  lA  ))/(TRPME(lA  +  l)-TRPMEt  lA)  1  CTCDl^f^G 

TQWOT    ^    TW0T(IA)+RATIU«(TWCT(1A+1)-TW0T  (lA)  )  CTC'D1560 

TQCT    =    TCTdA)  ♦RATIG*(TCT  (IA  +  1)-TCT{IA)  )  CTQD1570 

37    TQE    =    TQCT    +    TTTS    *     (TQWOT    -    TOCT)  CTQrjl^SO 

IFIRPME.GT. 500,0)    GO    TO    40  CTQD1590 

IF(PC    .GT.     10.0)    TTTR    =    0.0  CT0D16OO 

40  TyD(JDEND)     =    TQE    *    TTTR  CTtJDl6lO 

41  RETURN  CT0D1C20 
END  CTQD16  30 
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SUBROUTINE    DAUX  DAUXOOiO 

hVUSM-VDZ    VERSION  DAUX0020 

REVISED    OCTUBER    1975         CALSPAN    CORPORATION  DAUX0030 

CUMMON/INPT/PHlO,TriETAO,PSIO,PO,QO,RO,XCOP,YCOP,ZCOP,UOtVO,WO,  DAUXOOIO 

1  A,B,DtL10,DEL20,DtL30,PHIRO,DtL10D,DEL20D,DtL30D,  DAUX0050 

k  PHIROD»7F,TR,2F,ZR,RHO,AKRSfXMURt  DAUX0060 

3  XMS,XMUF,XIX,XIY»XIZtXIXZtCF,AKF,XLAMF,0MEGF,CFP,EPSF,DAUX00  70 

4  RF,CRf AKR,XLAMR,nMEGR,CRPf EPSR,RR,TSfTHMAXtDTCOMPtTOt    DAUX 00 80 

5  71,uTCMPl,DTPPNTtM0DEtEBAR,EMtAAAtHMAX,hMIN,bET,G,  DAUX 00 90 

6  HED(36),DADE (3) ,XlR,Xl,Yl,Zl,X2,Y2,Z2,PHiC(50),DELB,       DAUXOIOO 

7  UELt,DDEL,NlDLLtPSIF(50>,T0F(50),TQP(50)tT6,TEf  TINCRt       DAUXOl  10 

8  NZTAb,N2f>,XaDkY(4,5)tPSBDRY(4,5)  iYbDRY(2»5)tNBX(5)  t  DAUX0120 
Q                                  NbYI5),NTbLl»NTBL2»NT8L3,ZGP(21,21,5)  DAUX0130 

CDMM0N/INPT/XB(^),XL(5)»X1NCR(5) tNX (5 ) , YB ( 5) , YE ( 5) ,YINCR ( 5 ) |NY ( t> ) ,DAUXC1^0 

1  XX2&PE){21)  ,YYZGP5(21)  ,  AMUG(  5  )  t  PSEDRO(  4 15  )  ,UV  WMiN  ,PQRMI  N    DAtivoitO 

COMMON/ i NP T 1/YC 1 P, YC 2P, ZC 2P, DELT C t PHI C1,PHIC 2, AMUCtX IP  St  DAUXOl 60 

1  CPSPfOMGPSf AKPS»EPSPS,XPS,RWHJB,RWHJE,DKWHJ,INDCRb,       DAUXOl 70 

2  PSlFIOtPSlFOO  DAUXOUO 
DIMENSION  YCIP(2)  DAUXOIVO 
LQJIVALENCt  (YClP(l) ,YC1P)  DAUX0200 
COMMON  /iNlG/NE^,T,DT,VAR(50)  ,DER{  50)  D/6UXG21G 
EQUIVALENCE     (U.VARd))  ,(  V,VAR(2)  ),  (W,VAR(3))  ,  <  P,  VAR(4)  )  ♦  (Q  ,  VAR  (5  )  )  DAUX02  20 

1  ,  (R,VAR(6))  ,(DLLl,VAR(y)  )  ,  (  DEL  ID,  VA.\(  8)  )  »  (  DEL2  ,  VAR  (9  )  ),  DAUX  02  JO 

2  (l)EL2D,VAR(1O)),(0EL:.,VAR{11)  ),(DEL3D,VAR(  12))  ,  DAUXOL  ^0 

3  (PHIR,VAR( 13 )  )t(PHIRD,VAR( 14) ),(THLTTP,VAR( 15) ),  DAUX0250 
t                                    (PH1TP,VAR(16  )) ,(PSITP,VAR(17))» (XCP,VARC16) ),                        DAUX0260 

5  (YCP,VAR(19)  )  ,(ZCP,VAR120) ),{PSiFl,VAR(21 )  ),  DAUX027C 

6  (PSIFID,VAR{22) )  DAUXO^bC 
EQUIVALENCE     (DU, DfcR( 1 ) ) , ( DV, DER (2 ) ) , ( DW ,DER (3 ) ) , (DP»DE R (4 ) ) ,                  DAUX02  9C 

1  (DC,DER(5) ), (DR,DER(6) ) , { DDEL 1 .DE R( 7 ) ) , ( DDELID ,DER (8 ) ) DAUX030C 

2  ,(DDtL2,DER(9)  ),{DDbL2D,DER(10) ),(DDEL3,DEK< 11) ) ,  DAUX0310 

3  (DDEL3D,DER(  12)  ),  (DPHIR  ,DER  (  13  )  )  ,  (  DPH1RD,DE.<  (14  )  ),  DAUX0320 

4  (DTHT1P,D£R(  li>)),  (DPHITP,  DER  (  16  )  )  ♦  (  DPS  ITP,  DER<  1  7)  ),  DAUX 03 30 

5  (DXCPtDERi 18) ), (DYCP»DER(19)) »(DZCP»DER(20) )♦  DAUX0340 

6  (DPS1FI,DER( 21)), (DDPSFI,DER<22) )  DAUX0350 
EQUIVALENCE     ( VAR ( 9 ) , PHIF  )  ,  ( VAR ( 10) , PHIFD) , (DER ( 9  )  , DPHI F ) ,  DAUX 03 60 

1  (DEk(lO) ,DPHiFD)  DAUX0370 

EQUIVALENCE     ( VAR (1 3 ) ,DEL4  )  , ( VAR (14 ) ,DEL4D ) , ( DEP ( 13 ) ,DDEL4) ,  DAUX 03 bO 

1  (DER(14) tDDEL^D)  DAUX0390 
COMMON    /DIMV/XlP,X2P,X3  5»,X4P,YlP,Y2P,Y3P,Y4P,ZiP,Z2P,Z3P,Z4P,PHIl,DAUX04  00 

i  PHl2,PH13,PhI4,PSll,PS12,PSI3,PS14,CAYW(4),CBYW(4),        DAUX0410 

2  CGYW(4)  ,ZPGI (4),THGI(4),PriGI(4) ,CPG (4 ) ,SPG(4 ) ,CTG(4 ) ,DAUX04  20 

3  STG(4),CAGZ(^),CBGZ(4),CGGZ(4),D1(4),D2(4),D3(4),  DAUX0*t30 

4  XLM1(4)  ,XLM2  (4)  ,XLM3  (4  ),  AMTX  (3,  3  )  ,CMTX(3,  4  )  ,XGPP(4),    DAUX04*tO 

5  Y&PP(4) ,ZGPP(4),DMATX(10,11) ,DELTA(4) ,CAR(4),CbR(4),     DAUX0450 

6  CGR(4),FR(4),HI(4) ,FC(4),TI(4),AX(4),BX(4),CX(4),  DAUX0460 

7  CTXG(4),UG(^),STXG(4) ,AY(4),BY(4),CY(4),CPYG(4),  DAUX0470 
d                                    SPY6(4) ,VG(4),PSilP{4),PHlCI(4),CAC(^),CBC(4) ,CGC (4 ) ,DAUX04tO 

9  FCXU(4),FCYU(4),FCZU(4),FS(4),CAXW(4) ,CBXW(4) ,CGXW( 4 ) DAUX04  90 
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COMMON    /DIMV/AS(4) tBSiA)  ,CS (4) ,CAS (4) tCBS (4) ,CGS (4 ) ,BETP (4 ) ,  DAUX05  00 

1  BET&R(4),FSXU(4) ,FSYU(4) ,FSZU(4) ,PRXU(A) ,FKYU(4) ,  DAUX0310 

2  FRZU(^) tFXU{4) ,FYU14) ,FZU(4),S1 (h),F1F1(2),F1R1(2),  DAUX0520 

3  F2FI (2) ,F2RI (2)»CAH(t) ,CBH(4) ,CGh(t)  DAUX0330 
DIMENSION  XP(4),YP(4),ZP(t),PHII(^),PSlI(4)  DAUXCi>40 
EOUlVALtNCE     ( XP ( 1 ) ,X IP ) , ( YP( 1 ) , YIP ) , ( ZP( 1 ) , Z I P ) , (PHIK I ) ,PHIl ) ,  DA 0X05  50 

I  (PSIK  1)  ,PSI1)  DAUXOStO 

COMMON    /C0MP/SUMM,THETN,PHlNtPSIN,PI,RAD,GAMl,GAM2 ,GAM3 , G AM4 , GAM5 , DAUX 05 70 

1  GAMotGAM7,GAM6,GAM9,lHETT,PHIT,PSiT,ZR0,TRC2t  DAUX05tO 

2  TF02,TIZ,RH02»RH0MUR,AMUF,BMUR,ZPP»TM4,RHMR2» A02APb,     DAUX05V0 

3  B02APE,RFTF ,TS02 tRRTS ,bR0MUR,XMUFL2,AXMF02tXMTF04,  DAUX0600 

4  XIZR,RTR,RHMP2TtXIXP,XIZP»XIXZP,XlYz.P,DlPD2,DlMD2,  DAUX0610 

5  ZRD3TZR03Rt  ZFD3R , ZFD12 tT IZ2 , TG6l ,DD1P2 ,00 1M2 t RPR , PHRPDaUX0o20 

6  ,TANTP,SPHTP,CPHTP»StCTP,SFXS,SFYS»SFZStSNPS»SNTS,  DAUX0630 

7  SNPSS,TPR,CAYtCBY,CGY,CAX,CbX,CGX»SFYUtSFXU,SFYUF,  DAUX0640 

8  SFYURtSFZUf C0STH,SINTH,C0SPS.SINPS»C0SPH,SINPH,ANG1 ,    DA UX Go  50 

9  ANG2,CPHI,SPhI,CPSI,SPSI fPl,P7,P3,P4,P5»P6tTX,TY,TZ  DAUXObtO 
COMMON  /C0MP/TRH,DIS1X,D1STY,DISTD,D1STS,D21  t  ZtTA4tZf:TA4D,ZtTM3,       DA  UX  06  70 

1  ZETA3D,SFZ1 , SNPU ,SN TU ,HCGHl , HCGH2 ,HCGH3 ,HCGH4 , T ERMl ,    DA UX Go  BO 

2  TERM2»SNPSU,SNPR,HCbHl,HCBH2,HCbH3»HCBH4,HCAHl,HCAH2»DAUX06  90 

3  HCAH3,HCAH4,UQ,WP,UR,QR,VPtPRtP2tQ2tR2tVR,W0,P0»PHIR2DAUX0700 

4  ,PHIRD2,RPHRD,GCTH,GSTh,GCTSP,GCTCP,XXX,YYY,lX,IY,XXl»DAUX0710 

5  XX2,YYl,YY2,THGltTHG2,PH&l,PHG2,ZZl,ZZ2,LLL  DAUX072G 
DIMENSION  HCAH('t),HCBH(4)  ,HCGH(4)  DAUX0730 
EQUIVALENCE  (HCAH(l) ,hCAHl) , ( HCbH(  1 ) ,HCBH 1 ) , ( HCGH( I) ,HCGH1  )  DA UX 0740 
COMMON    /COMPN/    FRSP  (  4) tF RCP (4 )  ,  I CBHIT , JCbHIT ,  DAUX0750 

1  DPSINT,TANPCl,TANPC2,PHlClR,PHIC2R,AMUCMP,PHIlDt  DAUX0760 

2  PHl2D,LCBl(4),LCb2(4),IHIT,AJMTX(3,3),6MTX(3,3),  DAUX0770 

3  SFRX(4) ,SFRY(4),SFRZ(t),TlPSl,T2PSI,XMUGI(4)  DAUX07e0 
LOGICAL  LCB1,LCB2  DAUX0790 
COMMON/ADTNL/   Ul »U2 » U3 ,UH,VIt V2 , V3 » V4, Wl , W2t W3 t W4,  DAUX0800 

1  XIYP,^PHIC,CPHIC,APTCH1,APTCH2»APTCH3,APTCH4,  DAUX0810 

2  SL0PE1,SL0PE2,XTRA(300)  DAUX0820 
DIMENSION  UI (4) ,VI (4),WI (4)  DAUX0830 
EQUIVALENCE  (UI ( 1 ) ,U1 ) , ( VI( 1 ) ,V 1 ) , ( WI( 1 ) , Wl )  DAUX0e40 
DIMENSION  APITCH(h)  DAUX0850 
EQUIVALENCE  ( APITCH( 1 ) , APTCHl )  DAUX0d60 
COMMON    /1NPT4/    FIDJ ( 2 ) t F I WJ ( 2 ) t ARBR (2 ) t NXUGMU tNXFRCPtXXUGMU ( 6) ,  DAUXG870 

A  XXFRCP(6) fXMUMAT(6,6,4) ,XMXPMT(6,6,4),  DAUX0680 

B  XMXSMT(6,6,4),SL1PMT(6,6,4),CT(4),XMUM(4) ,  DAUX0890 

C  XMUXP(4l,XMUXS(4) ,RRMC(4) tRRM(4),C0M£N4  DAUX0900 

EQUIVALENCE  (F IDJ ( 1 ) ,F ID JF ) , ( FID J( 2 ) , F IDJR ) , ( FIWJ( 11,FIWJF)  DAUX09  10 

EQUIVALENCE  (FIWJ(2) ,FIWJR) t ( ARBRd ) , ARBRF ) , ( ARBR( 2 ) ♦ ARBRR )  DA UX 09 20 

COMMON    /C0MP4/FIDAR(2) ,FIDIW(2) , FIDWR2 ( 2 ) t SPHICI{4 ) ,CPHICI (4),  DA UX 09 30 

1  TIHI(4)tARBRI(4),     PS  I TEM (4 ) , SL PFAC (4 ) , DT STEP , DTTEST, DAUX09  40 

2  DTINT,TWOPIR,FRTEST{h) ,XMUI(4) , FRCPMU ( 4) ,HRTERM ,SLIP (4) ,  DAUX09  50 

3  SLIPT(4) ,RH0S(4>,EPSS(4),TERMP(4),TeRMB(4),TERM(4),    DAUX0960 

4  EPSSFCtFSXFAC(4),FSYFAC(^) ,FSZFAC(4) ,FRXFAC(4),  DAUX0970 

5  hRYFAC(4),FRZFAC(4),FCXFAC(4),FCYFAC(4),FCZFAC(^),       DAUXG960 

6  SFCDTR(4),SFSDTR(4),SFRCPR<4),SSLIP(4)fFCAV(4),  DAUX0990 

7  FSAV(4),FRCPAV(4),SLIPAV(4) ,RPSSM(4) ,FCSLSM(4),  DAUXIOOO 
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6  kRI j6l^)»T0FAC (4) »ARFAC1 (2) ,ARFAC2 ( 2 ) t RP SFA( 2 ) t RPSFB ( 2 ) , DA UX 10  iO 

9  RPSFC(2),RPSF0(2),HRPSFA(4) ,HRPSFB{ 4) ,HRPSFC{4), STEPD  DA UX 10 20 

COMMON    /C0MP4/       XeRAK(  16),IUVi.(4),IUVB(4)  ,lRPS.IDlCNT,lSIEP,Ii>TCP    DAUX1030 

LOGICAL       lUVSt  lUVBtlRPS  OAUXlO'^tO 

COMMON    /.INTR/    NEL'R,T1HR,DTR,VARR(12),DERR(12)  DAUXlOi.0 

DIME.NSILW    KP:>I  (^)  ,DRPS1(4)  DAUXlGtO 

E&UlVALLNC!i{VARR(l  ),RKSI  (  1)  ),  (UFRR(  1),DRPSI(  D)  DAUX  i0  7C 

COMMGN    /INSIIS/    X  IF  ,  RHOF  ,  7  i:,F  ,PHl  F  0,  PHI  FDD  ,  HEL^O  ,  DEL40D  t  I  SUS  ,  DAUXlOdO 

1  AKLiS  ,  AKDS  1  TAK.DS2  ,  AKDS3  ,  PHI  RC  (  50  )  ,  DTHF  (  5U  )  tDTHP  ( f?0  )  ,DAUX  10  Vu 

2  ^CAM^^  tNCAMR,NOTHF,NDlhR  DAUXllOO 
COMMON    /SUbLMP/    XMU:^  u2  t3  XN'RC2  ,  XMTR04»  ZFO  t  TSF02  ,  RH0F2  ,R  HFMUF  ,  DAUXlliO 

1  RriF2MF  ,'^F2MFI  ,RT  F,  RRTR  ,  D3PL;4  ,LoHD4  ,043  ,  r.>D3PH,  DAUX  11  ^0 

2  0D3K  4,ZF0iRF,ZRD34»RFPF,RPF2MTWFMF, PHF  P , PH I f  2 ,  DA  UX 1 1 30 

3  PHIFD2,RPHFD,2FD1,2FD2,ZRD4,7PF,SL0PE3,SL0PE4,  DAUXllAC 
s  PhI3L»PHl4C,DThFl,L'THr-2,DTHR3»UTHR4,DTDDl»  DAUX1150 
5                                             DIDD^,L'TDD3tLJTDDs,FjF(4)  tSNPF  LAUXllt.O 

OIMENSICN    DISP(4)  tVELCA)  DAUXIWO 

DAUX il to 

IF( ISTUP.Nt.O)     PETURN  DAUXllSO 

CALL     TMCNSl  IjAUXUOO 

ISi     =    iSUb+l  OAUXl^lO 

D1^U22     -    DEL1*DEL1    +    DtL2*DEL2  DAUX1220 

GO    !(.'     (  10,11,1  2),  ISI  DAUX  12  30 

10  XIXP  -  XMUF«(ZF*(ZF+D1PD2  )  +  .5*D12D22)  +  XMUk*ZRD3*ZRD3R  DAUX12't0 
XlYP  =  XlXP+kHOMUR*ZR03R  LAUX12  5C 
XIZP  =  T1Z+TIZ2  DAUX1260 
XIXZP  =  AMUF*ZFD12  -  BMUR*ZRU3  DAUXi2  70 
XIYZP  =  TMh*D1MD2-RHUMLIR*PHIK*ZRL>3R  DAUX12P0 
&AM2  =  XMUF*ZFD12  +  XMUR*ZRr.3R  DAUX12<?C 
GAM  3  =  GAM2-RH0MUP  DAUX 13 OC 
GAM4  =  XIYZP+^HMR2*PHIR  DAUXi310 
GAM5  =  I  lZ-XKUF*TF02*TF-lIZi  DAUX132(' 
GAr«6  =  XW(-*LD1P2  +  2.0*TG61  DAUX1330 
GAM7  =  XNiUF'!'(ZF*CDlP2  +  DELl*DELlD+DEL2*DEL2U)  +  2,0*ZRD3«TG6I  DAUXi3A0 
GAMS  =  2.0*(1M'^»DD1M2-RPR*TG61)  DAUX1350 
GAM9  =  AMUF*DD1.P2  -  2.0*F.*TG&1  DaUXIjcO 
GO    TO    3  DAUX 13 70 

11  XIXP  -  XMUF02* (ZFL1*ZFD1+ZFC2«ZFL2)  ♦  XMURC2* { ZRD3*ZRD3+ZR D4*ZRD4 ) DAUX 13 t 0 
XlYP  =  XIXP  DAUX 13  90 
XIZP  =  XMUr* (A*A+TFG2*1F02)  ♦XMUR* ( b*B* TRC2*Tk02 )  DAUX1400 
XIXZP  =  AXMFC^*(ZFD1+ZFD2)  -  BXMR02* ( ZRU3+ZRD4 )  DAUX1410 
XIYZP  =  XMTF04*ulMD2  ♦  XMTRn4*L)3MD4  DAUX1420 
GAM2  =  XMUF*:.FD12  ■♦•  XMUR*ZRD3h  DAUXi43u 
GAM5  =  XMUF*(A*A~TF02*1F02)  +  XMUR*  (B*L.-TKC?*I  Rn2)  DAUX14*tO 
GAM6  =  XMUF*DD1P2  ♦  XMUR*DD3P4  DAUX14?>G 
GAM7  =-  XMUF*(ZFD1*DEL1D+ZFD^*DEL2D)  ♦  XMUR* ( ZkD3*DFL3D+ZRD4*DELAD ) DAUX 1^60 
GAMS  =  XMUF*TFC2*DD1M2  +  XMUR  *-TR02  ♦DD3M4  DAUXK70 
GAM9  =  AMUF  +  DD1P2  -  BMUR*DD3P4  DAUXl'+fcO 
GO    10    3  DAUXW90 

12  XIXP  =  XMUF*ZFDl*2Ftn:  ♦  RHFMUF^ZFDl  ♦  XMUR«ZRD3*ZR1J3  ♦  RH0MUR*ZRD3DAUX  15  00 
XlYP    =    XIXP    ♦    RHFMUF*ZFD1RF    ♦    RH0MUR*ZRD3R  D/»UX1510 
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TIME       1725 


UPDATE    RECORD 


20 


21 


22 


23 


30 
31 

32 

34 


XIZ 

XIX 

XIY 

GAM 

GAM 

GAM 

GAM 

GAM 

GAM 

GAM 

GAM 

CAL 

CAL 

CAL 

CAL 

CAL 

IF( 

IF( 

DIS 

DIS 

VEL 

VEL 

GO 

DIS 

DIS 

VEL 

VEL 

GO 

IFl 

DIS 

DIS 

VEL 

VEL 

GO 

DIS 

DIS 

VEL 

VEL 

CAL 

CAL 

GO 

CAL 

GO 

CAL 

GO 

CAL 

CAL 

DU 

DV 

DW 

DP 


P  =  XMUF* 
ZP  =  AMUF 
ZP    =    -XMU 


=    XMUF* 
=    GAM2 
=     XIYZP 
=    XMUF* 
=     i.O*W 
=     2.0*Z 
=    -2.0* 
=    2.0*A 
VPOS 
VGORNT 
CIQD 
CTQB 
TIRFR 
ISTOP.NL. 
ISUS.EQ.2 
P(l  )     =    DE 
P{2)     =    DE 

(1)  =    DEL 

(2)  =   DEL 
TO    21 
P(l)     =    DE 
Pi2)     =   DE 

(1)  ^    DEL 

(2)  =    DEL 
TO    22 
ISUS.NE.l 
P(3»     =    DE 
P{4)     =   DE 

(3)  =    DEL 

(4)  ~   DEL 
TO    23 
P(3)     =    DE 
P(4)     -   DE 

(3)  =   DEL 

(4)  =  DEL 
L  SUSFRC( 
L  UMOMNT( 
TO  (30,31 
L  MATRIX 
TO    34 

L    MTRXIR 
TO    34 
L    MTRXSF 
L    SIMSOL( 
=    DMATXd 
=    DMATX(2 
=    DMATX(3 
=    DMATX(4 


(A*A+RFP 
»ZFD1  - 
F*RFPF*Z 
ZFDIRF  + 
-  RHFMUh 
+  RHF2M 
(A»A-RFP 
FMF  ♦  2. 
FD1*WFMF 
RFPF*WFM 
♦WFMF    - 


F^RFPF)     +    XMUR*(B*B*RPR*RPR) 

BMUR*ZRD3 

FDIRF    -  ^XMUR*RPR*ZRD3R 

XMUR*ZP*D3R 

-    RHOMUR 
F*PHIF    ■»■    RHMR2*PHIR 
F*RFPF)     •»•    XMUR*(a*B-RPR»RPR) 
0*TG61 

♦  2.0*ZRD3*TG61 
F  -  2,0*RPR*TG61 
2,0*B*TG61 


0)     RETUR 
)    GO    TO 
LI 

L2 
ID 
2D 

L1+TSF02 

L1-TSF02 
10+TSF02 
1D-TSF02 

)    GO    TO 

L3 

L4 

3D 
40 

L3+TS02* 

L3-TSQ2* 

3D+TS02* 

3D-TS02* 

DISPfVEL 

ISUS) 

,32)»IS1 


N 
20 


*PHIF 
*PHIF 
♦PHIFD 
♦PHIFD 

22 


PHIR 

PHIR 

PHIRD 

PHIRD 

) 


DMATX,10 

til) 

tU) 

»ll) 

tU) 


,10) 


DAUX1520 
DAUX1530 
DAUX1540 
DAUX13i)0 
DAUX1560 
DAUX1S.70 
DAUXlSeO 
DAUX1590 
DAUX1600 
DAUX  lolO 
DAUX1620 
DAUX  1630 
DAUXlc4G 
DAUXlbi^G 
DAUX16fcO 
DAUX  16  70 
DAUX1680 
DAUX  16  90 
DAUX170G 
DAUX  17  10 
DAUX1720 
DAUX1730 
DAUX 1740 
DAUX 1750 
DAUX1760 
DAUX1770 
DAUX1760 
DAUX  1790 
DAUX 18 00 
DAUX  16  10 
DAUX1&20 
DAUX1530 
DAUX1840 
DAUX  18  50 
DAUX1860 
DAUX  18  70 
DAUX1880 
DAUX1890 
DAUX 1900 
DAUX  1*^10 
DAUX 19  20 
DAUX  19  30 
DAUX 1940 
DAUX  19  50 
DAUX  19  60 
DAUX1«>70 
DAUX  19  80 
DAUX 1990 
DAUX  20 00 
DAUX2010 
DAUX  20  20 


417 


DATE       01/14/76            TIM5       1725  UPDATE    RECORt. 

DC    =    DMATX(3,ll)  DAUX^U30 

DR    =    DM  ATX  (6, 11)  DAUXZO^O 

DXCP    =    *vMTX(ltl)*U    ♦    AMTX(1,2)*V    +    AMTX(1,3)*W  DAUX2050 

DYCP    =    AMTX(2,1)*U    ♦    AMTX(2l2)*V    +    AMTX(2,3)*W  DAUX206C 

DZCP    -    AMTX(3tl)*U    ♦    AMTX(3»2)*V    *    AMTX(3,3)*W  DAUX2070 

DTHTTP    *-   Q*CPHTP    -   R*SPHTP  DAUX20bO 

OPHITP    =    P    +     (g*SPHlP    +    R*CPHTP)*TAN"JP  DAUX2090 

DPSHP     =    (U*i.PHlP    +    R*CPH1P)*SECTP  DAUX2100 

1F( ISUS.EQ.Z)    GO    ID    AO  ^                                   DAUX2110 

DDfTLID    =    DMATXlVtll)  DAUX^iiO 

DDP.L2D    =    DMATX(fa,ll)  DAUX2130 

DOS  LI     >    DEL  lb  DAUX21A-0 

jD^L2    =    DEL2D  DAUX2i^0 

GO    TO    41  DAUX2i60 

40  LiDELlD  =  DMATX(7,11)  DAUX217G 
IjPhIFj  -  DMATXO',11)  LAUX21fcO 
jDcLI  =  DEL  ID  DAUXI)90 
DPHIF  =  PHlhD  t-AUX2;?CG 
bO    10    43  DAUX22  10 

41  IF{  Ii,US.NE.l  )  GV  10  ^3  DAUX22iiO 
DLt:L3D  =  DMA1X(^,  ,11)  DA  UX  22  30 
DDEL4D  =  DMAlXdOtll)  DAU;(2240 
DD-;L3  =  DEL  3D  DAUX22^0 
DDi;L4  =  LEL4D  DAUX2260 
GO     10    44  DAUX22  70 

^i    DDcL3D    -    DMATX(S,11)  DAUX22eO 

DPHIKL    -   DMAIX( 10,11 )  DAUX2290 

uDELS    =    UEL3D  DAUX2300 

nPHIR    =    PHIRD  DAUX2310 

44    CDNTINUfc  DAUX2320 

1F(  IHIT.tQ.O.ANb.INDCRB.Gt.O)    RETURN  DAUX2330 

DPSIFI    -    PSIFID  DAUX2340 

TIPS!    =    0.0  DAUX2350 

T2PSI    =    0.0  DAUX2260 

IF(A8S(PSIFID).GT.fcPSPS)     TIPSI    =    S 1GN( CPSP ,P S JFI Dl  DAUX2370 

IF(S1GN(1., PSIFID)    .NL.    SIGN ( 1, , PS  I FI ) )    GO    TO    7  DAUX23e0 

ABSPSF    ^    ABS{PSIFI)  DAUX2390 

IFCABSPSF    .GT.    OMbPS)    T2PSI=S1GN ( ( AKPS*( ABSPSF-OMG PS ) )  ,PS IF  I)  DAUX2400 

7    DDPSFl     =    (HYU(1)*(HCAH1-XPS*C0S(PSIIP(1))*CTXG(1))*  DAUX2410 

1  FYU(2)*(HCAH2-XPS*CUS(PSIIP(2) )*GTX&(2))-  DAUX2420 

2  FXU( l)«(HCBHl+PHIl*HCGHl)-FXU{2)*(HCtH2+PHl2*HCGH2 )~  DAUX2^30 

3  T1PSI-T2PSI+FZU(1)*HCAH1*PHI1+F2U(2)*HCAH2*PHI2)/X1PS  DA UX 2440 

4  +(  (FIWJF*C0S(  PS  IF  I)  )/XIPS)  *(RPSI  (  1)  *  (  P+PHI IL  )  +  RPSI  (  2  )*  (  P  +  PHI2D  )  )  DAUX24f>0 
C  IN  STEER  DEGREE  CF  FR EEDOM.GYRCSCCPIC  PRECESSION  OF  SPINNING  WHEELSDAUX2460 
C                          StE    CONTINUATION    CARD    4    JbSl    ABOVE  DAUX2470 

RETURN  DAUX24b0 

END  DAUX24  90 
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SUBROUTINE    DAUXR(NTRA)  DAXROOIO 

C  HV0SM-VD2    VERSION  DA XR 00 20 

C  REVISED    OCTOBER     iVTi-  CALSPAN    CORPORATION  DAXR0030 

C0M^10N    /DlMV/XlP»X2P»X3PtX4P,YlP,Y2P,Y3P,Y4P,ZlP,Z2P,Z3P»Z4P,PHll,DAXR00^0 

1  PHl2tPHI3,PHl^tPSI 1,PSI2,PS13,PSI4,CAYW(4) ,CbYW(4),        DAXR005G 

2  CGYW(4)  .ZPGU^)  ,TH&I(4),PHGI  (4  )  ,  CPG  (^  )  ,SPG  (  4)  tCTG  (t )  ,  DAXR  00  60 

3  STG(^) ,CAGZ (^) ,CBGZ(4) ,CGGZ{4),D1(4),U2(A),D3(A),  DAXR0070 

4  XLMl{4),XLM2(4),XLM3(H),AMTX(3t3)  ,  CMT  X  (  3  , -♦  )  ,XGPP  (  4  )  ,    DAXR00  80 

5  YGPP(4) ,ZGPP(^)»DMATX (10,11 ) tDELTA(4) ,CAR(t) ,CbR(4) ,     DAXR0090 

6  CGR(4)  ,FR  (4)  ,Hi(4)  tt-CI-^)  ,TI(A),AX(4),BX(4)»CX(4)  ,  DAXRGIOO 

7  CTXG(4) ,U&(H),STXG(4) ,AY(^) ,bY(4) ,CY( A) ,CPY&(4) ,  DAXROllO 

8  SPYG('t)  ,VG(  A),PSIIP(A),PHICI  (4)  ,CAC(4)  ,CBC(A)  ,CGC  (4  )  ,  DAXP  01  20 

9  FCXU(4) ,FCYU(t),ECZU(4),FS(A ) tCAXW(4)  ,C6XW(4)  ,C&XW(4)DAXR0130 
COMMON    /DIMV/AS(4)  ,  B  S  U  )  ,  CS  (  4  )  »C  AS  (  4)  ,  CBS  (  A  )  ,  CGS  (4  )  ,BETP  (4  )  ,  DAXROl-ttO 

1  titTbR(4),FSXU('t),FSYU(4)  ,FSZU(4)  ,ERXU(A),FRYUlA),  DAXf-0150 

2  FRZU(4)  ,FXU(4) ,FYU(4)  ,FZUJ4),SI  (4),F1FI(2),FIRI(2),       DAXR0160 

3  F2FI (2> ,F2RI (2),CAH(A) ,CBh(4),CGH(h)  DAXR0170 
DIMENSION  XP(4) tYP(t) ,ZP (A)fPHII (4) ,PSII(4)  DAXR0X80 
EQUIVALENCE     (XP (  1 )  , X  IP  ) ,  ( YP ( 1 ) , YiP ) , ( ZP( 1 ) ,Z IP ) , (PHII (  1 ) ,PHI 1  )  ,  DA XR 01 90 

I  (PSII(l)  ,PSI1)  DAXR0200 

COMMON    /COMPN/    FRSP 1 4 ) ,F RCP ( A) , 1 C6HIT » JCBHIT »  DAXR0210 

1  DPSINT,TANPC1,TANPC2,PHIC1R,PHIC2R»AMUCMP,PHI1D,  DAXR0220 

2  PHI2D,LCB1(4) ,LCB2(4),IHIT»AJMTX(3,3),BMTX(3,3),  DAXR0230 

3  SFRX(<t)  ,SFRY(4),SFRZ(4),T1PS1,T2PSI  tXMUGI(4)  DAXR0240 
LOGICAL  LCblfLCB?  DAXR0230 
COMMON    /TIRIN/    AKT (4 ) , SI GT{4 ) » XLAMT(4 1 , AO ( A)  t AI( 4)  , A2 ( 4) .AS ( 4  )  ,  DAXR0260 

1  A4(^)  ,UM6GT(4)  ,AMU(4),RW(4)  ,FJP{35,4),A234(4),  DAXR0270 

2  A12(*t),0MT2A2(4)  ♦GMT2M1(4)  ,A23(4),IT1R(4)  DAXR02e0 
COMMON    /INPT4/    FIDJ ( 2 ) ,F I WJ (2 ) , ARBR (2 ) ,NXUGMU ,NXFRCP ,XXUGMU ( 6 ) ,  DAXR0290 

A  XXFRCP( 6) tXMUMAT (6,6,4) ,XMXPMT{6,6,4),  DAXR0300 

B  XMXSMT(6,6,4),SLIPMT(6,6,4) ,CT(4) ,XMUM(4) ,  DAXK0310 

C  XMUXP (4  ), XMUXS(4) ,RRMC(4) ,RRM(A),C0MEN4  DAXR0320 

EQUIVALENCE     (F IDJ ( 1 ) ,FID JF ) , ( FID J( 2 ) , FIDJR ) , ( HWJ( 1),FIWJF)  DA XR 03 30 

EQUIVALENCE     (FIWJ { 2 ) ,F IW JR) , ( ARBR( 1 ) , ARBRF ) , ( AKBR( 2 ) , ARbRR )  DA XR 03 40 

COMMON    /C0MP4/F1DAR{2) ,FIDIW(2) , FI DWR2 ( 2 ) , SPH ICl (4 ) ,CPHIC1 ( A) ,  DAXP 03 50 

1  TIHI (4), ARBRI(4),     PS  ITEM ( 4 ) , SLP PAC (4 ) ,DT ST EP ,DTTEST, DAXR0360 

2  DTINT,TW0PIR,FRTeST(4) ,XMUI(4) ,FRCPMU ( 4) ,HRTERM , SLI P (4 ) ,  DA XROS  70 

3  SL1PT(4) ,RH0S(A),EPSS(4),TERMP(^),TERMB(4),TERM(4) ,    DAXR0360 

4  EPSSFC,FSXFAC(4),FSYFAC14) ,FSZFAC(4) ,FRXFAC(4),  DAXRG390 

5  FRYFAC(4),FRZFAC(4),FCXFAC(4),FCYFAC(4),FCZFAC(4),       DAXR0400 

6  SFCDTR(4),SFSDTR(4),SFRCPR(4) ,SSLIP(4),FCAV(4),  DAXR0410 

7  FSAV('t),FRCPAV(4)  ,SLIPAV(4)  ,RPSSM(4)  ,FCSLSM(4),  DAXR0420 

8  ARTQ6(A),T0FAC(4),ARFAC1(2) , ARFAC2 ( 2 ) ,RPSFA( 2 ) ,RPSFB (2 ) ,DA XR0A30 

9  RPSFC(2) ,RPSFD(2) ,HRPSFA(4) ,HRPSFB ( A) ,HRPSFC (4),STEPD  DA XR 0^40 
COMMON  /C0MP4/  XBRAK(16  )  ,  lUVS ( 4  ) , lUVB (4 ) , IRPS,  IDTCNT , ISTEP, ISTOP  DAXR0450 
LOGICAL  IUVS,IUVB,IRPS  DAXR0460 
C0MM0N/INPT5/    IBTYP{2) ,AK1, AK2 , PONE ,PTWO, PZERO( 2 ), &N( 16, 2 ) , ZETAB ,    DAXR0A70 

1  C0NE,CTW0,CTHREE,TAUA,TAU0(4),TLF(51),TTAU(51I,  DAXR0480 

2  TRPME(12),TW0T(12) ,TCT( 12 ) , TT ( 101 ) ,TPC{ 101) , TTR( 101 ) DAXR 0490 
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3                                     »TTS(101),BTLF,ETLF,DTLF,NTLF,BRPM,ERPM,NRPM,  DAXR0500 

h                                     BTT,ETT,DTT,NTT1,NTT2,NTT3,NTTS,X1NPT5(9)  DAXR0510 

CCMM0N/C0MP5/    TAUU)  tTQD  (  2)  ,TCB  ( A)  ,PP  (  2  )  tTLAMBC  2  )  »  PCtRWDRI  Vt  JL;END,DAXR0520 

1  NtTYP,ARFAC3(2)tRPSFE(2),RHCSMX(3)  ,SLIPMX(3)  tSLlPP,     DAXR0f>20 

2  RH0MAX,RH0SAV{4),SRH0S(4),U&W<4},ABSUGW(4).V£CSt  DAXR0540 

3  DELTAE,P101^RfCOMEN5fT0EfRPME  DAXK05i.O 
COMMON  /INTR/  NEwR »TiMR, DTR ♦ VARR ( 12 ) i OERR ( 12 )  DAXROtfcO 
DIMENSION  KPSI(4) ,DRPSI(4»  DAXR05  7L 
EQUIVALINCE(VARR(1),RPSI ( l))f <DERR(1) tDRPSK 1))  DAXROSfiO 
Dli'-iENSION    XMUXJ4)  DAXR05O0 

C  OAXR06  00 

C  DA  XR  06  10 

C  NOTE    FRCP    RtvUIRES    FS    WHICH    IS    DETERMINED    LATER.    THE    INITIALIZDAXR06;lO 

C                                  C/tL    SHOULD    CORRECT    THIS    BY    RECOMPUTING    FS,  DAXR0630 

DC    100     1=1,4  DAXR0640 

IF     (FR(1))        4l,'.2f4l  DAXk06i>0 

^I     FRTFST(I)    =       (FR(I)     -    FS(1)    *    SPHICKD)  0iXH0f>60 

1F(FRTEST( I )  )    42,42,45  DAXR067a 

42  FC(1)=  0,0  DAXF06L0 
FS(  i)=  0.0  DAXR06  90 
FRCPd  )=  0,0  DAXR0700 
SLIP(I)  =  0.  DAXR0710 
SLIPTd  )  =  0.  DAXRO/20 
GO    TO    100  DAXR0730 

43  rRCP(l)     =    FRTESKl)    /CPHICKI)  DAXRG740 

VftS    =    SORT(UG(  1)**2    ♦    VG(I)»*2)  CAXR075.0 

ABSFRP    -    ABS(FRCPtl))  DAXK0760 

XM-IaTD    =    XMUGK  I)/XMUM<I  )  DAXR0770 

CALL     IN1PR(X,MUMAT,I,XXFRCP,XXUGMU,NXFRCP,NXUGMU,AESFRP  ,VECS,               DAXR0780 

1                                 XNMY,XT1,6,6)  DAXR0790 

CALL    INTPRIXMXPMT, I, XXFRCP,XXUGMU,NXFRCP,NXUGMU, ABSFRP  ,UGW(I),          DAXR0800 

1                               XNMXP,XT1,6,6)  DAXR0610 

CALL    lNTPR(XMXSMT,I,XXFRCP,XXUGMU,NXFRCP,NXUGMUfABSFRP  ,UGW(I),          DAXK0iJ20 

1                               XNMXS,XT1,6,6)  DAXR0630 

CALL     INlPR{SLIPMT,I,XXFRCPfXXLlGMU,NXFRCP,NXUGMU, ABSFRP  ,UGW(I),          DAXR0640 

1                                SLIPP,XT1,6,6)  DAXR0b50 

XMUni)     -    XNMY*XMRATU  DAXR0660 

XMUXPd)    =    XNMXP*XMRATO  DAXR0b70 

XMUXS(I)    =    XNMXS»XMRATO  DAXROCeO 

FRCPM       =          FRCPd)    *    XMUI(I)  DA  XR  08  90 

FRCPMU(I)    ^    FRCPM  DAXR0900 

FC( I )=    0.0  DAXR0910 

IF     dUVS(I))    60    TO    61  DAXR0920 

HRTERM       =    AbS(     hi  (I)     *    RPSId))  DAXR09  30 

IF     (hRTtRM    -    0.5)     49,60, bO  DAXR0940 

49    SLlPd)     =    0.0  DAXR0950 

CO    TO    6  3  Da XR 09 60 

60  SLIPd)  =  -1.0  »  SIGNd.OtUGWd)  )*  SIGN  d  .  0,  RPSI  (I  )  )  DAXR0970 
GO    TO    6  3  DA  XR  09  80 

61  SLIPd)     =    1.0      -    RPSId)     *    SLPFAC(l)  DAXR0990 
63    SLIPTd)    =    ABS    (SLIP(I))  DAXRIOOO 
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1F(     SLIPT(I)     .GT.    1,0)     SLIPT(I)     =    1.0  DAXXIOIO 

IFiSLIPTU  ).EQ.1.0)     SLIP(I)     ^    S  1  GN  (  1.0,  SL  IP(  I  )  )  DAXR10?0 

CCT    =    CT(I)/KKCP(I)  OAXf<1030 

IF(SLIPT(I).GE.SLIPP)    GO     IC    73  DAXR1040 

KK    =    0  DAXPlObO 

RMU    =    0.8  DAXR  lOfcO 

70  SC2  =  (RMU-1.0)*XMUXP( I)/(SLIPP-RMU*XMUXP( I)/CCT)**2  DAXR1070 
SCI  =  -2.0*SC2*SLIPP  DAXRlObO 
SCO  =  XMUXP( I)+SC2*SLIPP*»2  DAXR1090 
IK SC0.GT.0.1*XMUXP( I ) )  GOTO  71  DAXRllOO 
KK  =  KK  +  1  DAXKll  10 
IF(KK.GT.5)  GO  TO  999  DAXRil20 
RMU  =  RMU+0.5* (1.0-RMU)  DAXR1130 
GO    70    70  DAXRllAO 

71  SLIPI  =  RMU*XMUXP( I )/CCT  DAXRlI^O 
IF(SL1PT (1 ).GT.SLIPi )  GO  TO  72  DAXR1160 
XMUX(l)  =  CCT*SL1PT( I)*SlCN(i.O,SLIP{ I) )  DAXkll70 
GO    TO    74  DAXKll 80 

72  XMUXT  =  SC0  +  SC1*SLIPT(  I)-*SC2*SLIPT(  I)**2  DAXRllOO 
XMUX(I)  -  XMUXT*S1GN( 1.0,SL1P(I) )  DAXR12G0 
GO    TO    74  DAXK12  10 

73  SC5  =  I XMUXPd )-XMUXS(I) )/(SLlPP-l«0)**2  DAXR1220 
SC4  =  -2.0«SC5  DAXR  1230 
SC3  =  XMUXS«I)+SC5  DAXR12^0 
XMUXT  =  SCS+bCt^SLIPTC I) ♦SC5*SLIPT( I)**2  DAXR1230 
XMUX(I)     =    XMUXT*S1GN(  l.OtSLlPd)  )  DAXR1260 

74  CONTINUE  DAXR 12 70 
RHOS(I)  =  XMUX(1)/XMUI(I )  DAXR12fcO 
RHOMAX     =    XMUXPi I)/XMUI (I )  DAXR1290 

75  EPSS(I)  =  1,0/RH0MAX**2  DAXR1300 
IF(SLIPT{I).GT.SLIPP)    EPSS(I)    =     1. 0/RHOS ( I )*»2  DA XR 13 10 

77    FC(I)     =    -RHOSd)    *    FRCPM               *    S IGN  (  1 .0  ,UGW(  I  )  )  DAXR1320 

JFR    =    1  DAXR1330 

1F(I.GT.2)     JFR    =    2  DAXR13A0 

IF(PP( JFR)-PZERO(JFR ) )    81»81,80  DAXR1350 

80  FACTOR=     (-FRCPM/SQRT(tPSS{I)+TERMP(I) ) ) ^S IGN( 1.0 ,UGW (I ) )*S IGN ( 1 .0, DA XR 1360 
X          RHOS(l))  DAXR1370 

IF     (ABS(FACTOR)     .LT.    ABS(FC(I)))       FC(I)=FACTDR  DAXR13faO 

C  DAXR  1390 

81  FS(I)  =  0.0  DAXR1400 
BETDR(I)  =  0.0  DAXR1410 
EPSSFC  =  EPSS(I)  ♦  FC(I)  DAXR1420 
IF( (EPSSFC*FC( I) ).LT.(FRCPH«FRCPM-i.O))    GO    TO    86  DAXR1430 

C                                       BETBR(i)    SET    TO    CAUSE    SKID    INDICATION    ON    OUTPUT.  DAXRl^^O 

BETBR( I)    =    3.1  DAXR1450 

GO    TO    100  DAXR 1460 

C  LOGICAL    VARIABLE    lUVB    SET    UP    IN    SUBROUTINE    TIRFR    FOR    SIDE    F0RDAXR1^70 

C  IF    EITHER    ABS(UG(  I)  ).GT.0.5    OR    ABS  (  VG  (  I  )  )  .GT.0.5  ,    lUVBd)    IS    TRDAXR14«0 

86  IF(     .NOT.    lUVB(I))    GO    10    100  DAXR14V0 

87  FS(I)    =    SQRT(FRCPM*FRCPM      -    EPSSFC*FC ( I ) )  DAXR1500 
C                    CORRECT    FS    FOR    THE    SIGN    OF    BETBR    LATER.  DAXR1510 


421 


OATt       G1/1V76            TIME       1725                                                UPDATE  RECORD 

IF(FRCP(I).GT.DME&T(I)*A2(I))    GO    TO    88  DAXR15iO 

BETP(I)     =    TERMB(I)*A?34(  I)*KRCP(I»*(A4(ll-FRCP(n)    /  DAXR1530 

A                        UK  I)*FkCP(  !)*(  FRCP(n-A2(I)  )    -AO  ( I  )  *A2  ( I  )  )  DAXRli)40 

BETBRd)    =    (TERMd  )  +  BETP  (I)-PSITtM(I)  )*(A12(  1)*FRCP(I)  DAXRlt.;>0 

A                       *(FRCP{n-A2<l))     -AOd))    /    FSU)  DAXR1560 

GO    TO    8  9  LA  XR  lb  70 

88  BETP(I)  =  TERMBt 1)»0MT2A2(  1)  DAXR1580 
BETbRd)    =    (TERMCI)  +  BETP{I)-PSnEM(  1)  )*  DAXR1&90 

A                        (0MT2M1(I)-A0(I) )    /    FS(I)  DAXRibOO 

89  1F( A5S(btTBR (I )) •LT.3.0)G0  TO  VO  0AXR161O 
FS(1)  =  SIGN(FS(I)fBETBR(I))  r.AXR1620 
GO    TO    100  DAXR16iO' 

<yO    FS(n    =FS(  I)»(Bt:TbR(  l)-3ETtR(I)*ABS(BETBR(  n)/3.    ♦Pt  TBR  (I )  ♦♦3/27.  )  DAXf-.  16  AO 

100    CONTINUt  DA  XR  16.  SO 

C                             AT    103    SET    UP    DIFFERENTIAL    tOUATlONS    FOR    PINTIR  DAXRI06O 

C  DAXR16  70 

C       SJ15ROUTINE    ADJTQb    ADJUSTS    BRAKE    TORQUES    AT    EACH    WHEEL  D;^.XR16^ 

1F(NTRA.E0.2)    CALL    ADJTOB  CAXK.lCSO 

DO    107     1=1,'^  DAXK*1700 

KRVI(  I)     =    0.0  DAXM7  10 

1F(  ABStPPSKI)  ).GT.ZtTAB)RRM(I)    =-'?RMCI  I )  ♦FR  (I  )*SI  GN(1  .0  ,RPSI  (  I)  )    DAXR17  20 

107    COMTINUb  DAXP1730 

lOb    J-0  DAXR1740 

DO    110       1    =    l,3t    2  DAXR17SC 

J=    J    ♦     1  DA XR 17 60 

ARFTT    -    6.0    ♦    At^BRCJ)    *    TwD(J)  D^XRi770 

DRPSi  (I  )-RPSFA(J)*(12.*TQB(I  ) +ARFTT  )-FC  { I  )  ♦H  I  (I)^RPSFA(J)  DAX^sl7b0 

1  -RPSFb(J)*(12.0«TUE( I+1)+ARFTT)+FC(I+1)»HI { I+I)«RPSFb( J)  DA XR 1790 

2  fRPSFAC J) *RRM(1 )-RPSFB(J)*RRM( I+l)  DAXRlfaOC 
DRPSI(I+1)-RPSFA(J)«(12.0*TQB( I +  1) ♦ARFTT ) ~FC ( l4 1 )*HI (I ♦ 1 )^RPSFA( J ) DAXR lb  10 

1  -RPSFb( J»*(12.0*TWB(I)+ARFTT )    ♦    FC(I)     *    Hl(l)    »  RPSFBlJ)          DAXR1620 

2  +RPSFA(J)*RRM{l+l)-kPSFB(J)*RRM(I)  DAXRlb3C 
110    CONTINUE  DAXRiBAO 

RETURN  DAXRloiiO 

999    WRIT£(o,1000  )    I ,CCT, XMUX P ( 1 ) , KK , RMU,SCO ,SClt SG2  DAXRlbtO 

1000    FORMAT (IK    »4bHERR0R     IN    CALCULATION    UP    XMUX,     SUEROUIINE  DAUXR         /       DAXklb70 

A       5X,3HI    =tl4»2X,i>MCCT    =  ,  F8  .3  .  2X  f  7HXMUXP    =f  FB  .  3,  2X  ,4HKK    =t  I'V,  DAXRlbbO 

b       2X»t>HRMU    =,F0.4    /    i>X,5HSC0    =,  E 12 .6,2X,  5hSCl    =fE12.6,  DAXKib90 

C    2X,5hSC3    =,E12.6       )  DAXR19C0 

STOP  DAXR191G 

END  DAXR1920 
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SUBROUTINE    DRI VER( PS  IF F . P SI F FD, J J )  DRIVOOIO 

C  HVGSM-VD2    VFRSIDN  DRIV0020 

C  REVISED    OCTOBER     l'^7b       CALSPAN    CORPORATION  DRIV0030 

C0MM0N/INPTl/YClP»YC.iP»ZC^PtDELTCtPHICl»PHlC2tAMUC,XIPSt  DRIVOOAO 

1  CPSPfOMbPS,AKPS,EPSPS,XPS,RWHJB ,RWHJE,DRWHJ,INDCRB,        DRIVOO^O 

2  PSlFIOrPSlFL-O  DRIV0060 
DIMENSION  YCIP(2)  DRIV0070 
EOUIVALhNCE  ( YC I P { 1 ) , YCl P  )  DRIV0080 
COMMON  /lNTG/NtQ,TfDT,VAR(30) fDEP( 50)  DRIVOCVO 
EQUIVALENCE     (U,VAR(1)),(V»VAR(2)),(W,VAR(3)),(P,VARK) ),(Q»VAR(5 ))DRIV0100 

1  » (R,VAR(6))t(DEL1,VAR(7) ),(DEL1D,VAR(8)) , ( D EL2 , VAR ( 9 ) ) , DR I VOl 10 

2  (DtL2DtVAR(10)) ,(DEL3,VAR ( 11) ) , (DEL3D,VAR( 12) ) t  DRIVOI^O 

3  (PHIR,VAR(  13  )  )»(PHIRD*VAR(  14)  )  ,(  THrTTP,VAR(l!>)  )  ,  DRIV0130 

4  (PHlTPtVARdO))  ,(  PSITP  ,VAR(  17)  )  ,  (XCP,VAR(  18)  ),  DRIVOIAO 
i>  (YCP,VAR(19)  ),(ZCP,VAR(20)  ),(PSIFI,VAR(21)  )  ,  DRIV0150 
6                                    (PSIFIU,VAR( 22) )                                                                                                              DRIV0160 

EQUIVALENCE     (DU,DER(  1)  )t  (DV,LiER(2)  )  ,  (  DW  ,  DER  (  3  )  ) ,  (DP»DER  (4)  )  ,  DRIV0170 

1  (DQ,DER(5)  ),  {DR,DER(6) )  , { DDEL 1 , DE R ( 7 ) ) , ( DD EL  ID ,DER ( 6 ) ) DR IVOl fcO 

2  , (DDELZiDERC?) ), (DDEL2D,DER( 10) ) , (DDEL3,DER(11) ),  DRIV0190 

3  (DD£L3D,DER(  12) ) , (DPHIR,DER( 13 ) ) , (DPH1RD,DER( 14) )  ,  DRIV0200 

4  (DTHTTP,DER<  li?)  ),  (DPHITP,DtR(  16)  )  ,  (  DPS  11  Pf  DER  (  17)  )  ,  DRIV02  10 

5  (DXCP,DER( 18 ) ),(DYCP,DtR(19) ) ,(DZCP,DER(20)) t  DRIV0220 
b                                  (DPSIFI,DER( 21) ),<DDPSFI,DER(^2)  )  DR1V0230 

COMMON    /DIMV/XlPtX2P ,X3P , XhP, YIP ♦Y2P, Y3P , Y4P ♦ ZIP ,Z2P»Z3P»Z4P ,PHI 1 , DR IV02  40 

1  PHI2,PHI3tPHl4,PSIl,PSI2,PSi3,PSl4,CAYW(4),CBYW(4),       DRIV0250 

2  CGYW(4)  ,ZPGI(4),THGI(4),PH&I < 4)  ,CPG (4  )  ,SP&(4) ,CTG (4 ) ,DR IV02 60 

3  STG(4),CA&Z{4),CBGZ(4),CGGZ(4),D1(4),D2(4),D3(4),  DRIV0270 

4  XLM1(4) ,XLM2(4),XLM3(h),AmTX(3,3) tCMTX(3,4),XGPP(4),    DRIV02  80 

5  YGPP(4) ,ZGPP(4) ,DMATX(10,11) ,DELTA(4) ,CAR(4),CbR(4) ♦    DRIV0290 

6  CGR(4),FR(4),HI(4) ,FCt4) ,TI(4),AX(4),BX(4),CX(4),  DRIV0300 

7  CTXG{4) ,UG(4),STXG(4),AY(4),BY(4) ,CV(4),CPYG(4),  DRIV0310 

8  SPY6(4) ,VG(4),PSIIP(4),PHICI(4),CAC(4),CBC(4)  ,CGC(4) ,DRIV0320 

9  FCXU(4) ,FCYU(4),FCZU(4),FS(4) »CAXW(4) ,CBXW(4) ,CGXW( 4)DR IV0330 
COMMON    /DIMV/AS(4) ,BS(4) ,CS (4) ,C AS (^) tCBS (4 ) , CGS (4 ) ,BETP( 4 ) ,  DR IV 0340 

1  BET6R(4),FSXU(4)  ,FSYU(4)  ,FSZUU)  »FRXU(4),FRYU(4),  DRIV0350 

2  FRZU(4)  ,FXU(4),FYU(4)  ,FZU(4),SI(^),F1FI(2),F1RH2),       DRIV0360 

3  F2FI(2),F2RI(2),CAH{4),CBH(^),CGH(4)  DRIV0370 
DIMENSION  XP{4),YP(4),ZP(4),PHII(4)tPSII(4)  DRIV0380 
EQUIVALENCE     (XP ( 1 ) , XIP  ) ,  ( YP( 1 ) , YIP ) , ( ZP ( 1 ) tZlP ) , (PHIK 1 ) ,PHI 1 ) ,  DRIV03  90 

1  (PSIK  1)  ,PSI1)  DRIV0400 

COMMON    /C0MP/SUMM,THETNtPHIN,PSINtPItRAD,GAMl,GAM2 tGAM3,GAM4,GAM5,DRIV04lO 

1  GAM6tGAM7tGAMbtGAM9 ,THETT,PHIT,PSIT,ZR0tTR02»  DRIV0^20 

2  TF02,TIZ,RH02fRH0MUR,AMUF,BMUR,ZPRf TM4,RHMR2,A02APB»    DRIV0430 

3  B02APB,RFTF ,TS02»RRTStBROMUR»XMUP02»AXMF02»XMTF04,  DRIV0440 

4  XlZRtRTR,RHMR2ItXIXP,XIZP,XIXZPf XIYZPtDlPD2,DlMD2,  DRIV0450 

5  ZRD3,ZRD3R, ZFD3R ,ZFD12 tT IZ2 , TG61 ,DD1P2 ♦0D1M2 t RPR tPHRPDR IV0460 

6  ,TANTP,SPHTP,CPHTP,SECTPtSFXStSFYS»SFZS,SNPStSNTS»  DRIV0470 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYU,SFXU,SFYUF,  DRIV0460 

8  SFYURtSFZUtCOSTH,SlNTH,C0SPS,SINPStC0SPH,SINPH,ANGl ,    DRIV0490 
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TIME   1725 


UPDATE  RECORD 


COMMON 


DIMENSI 
EOUIVAL 

CU^MON 
COMMON/ 


COMMON/ 

I  PATH 
IbRlV 
ITCHN 
ITtST 

COHMUN/ 


1 

3 

( 
1 
2 
3 

5 
6 
7 

8 


COMMON/ 


ANG2tCP 

/COMP/TRH,DIS 

ZE7A3D, 

TERM2,S 

HCAH3th 

,PHIRD2» 

XX2,YY1 

ON    HC  AH ( 4 ) , HC 

bNCE     (HCAH(l) 

/EINDEX/    FOK 

tlNL£X/    TWOPI 

COSTH 

STHET 

CRIVTT/TPATR, 

IDRVER 

1    -    STOP    FOR 

E    -    NOT     ZERO, 

C   -    NOT     ZERO, 

T,TCTEST(6)    - 

URlVl/NtN,EMD 

TESTBO, 

TL,S(5, 

VGR12,V 

TESTT(5 

BFPl,bF 

DRIVE/EN, FKUf 

TfcSTRl, 

TRKIN,T 

APDtOEL 

AXP,AYP 

TtKMX,T 

PSIFFH, 

PPD(IO) 

DENC 


HI,SPHI,CPSI,SPSI,PI»P7,P3,P4,P5,P6,TX,TY,TZ 
TX,D1STY,DISTD,DISTS,D21,ZETA4,ZETA4D,ZETA3, 
SFZl ,SNPU,SNTU,HCGHl,HCGH2,HCGh3,HCGHt,TERMl, 
NPSUtSNPR tHCBHl,HC6H2,HCBH3,HCBH4,HCAHl,HCAH2 
CAH4,UQ,WP,UR,(iRtVP,PR,P2,Q2,R2,VR,WQ,PQ,PHIR 
RPHRD,GCTm,GSTH,GCTSP,GCTCP,XXX,YYY,IX,IY,XX1 
,YY2,THGl,TH&2,PHGl,PHG2tZZi,ZZ2,LLL 
BH(4) ,HCGH(4) 

»HCAHl),(HCbH( l),HCBHl), (HC&H(l ),HCGHI) 
cULER    ANGLE    INDEX ING, MAIN ,CNSTNT,DAUX,TMCNST 
,PI02,PlC4,XINDN,XINDL,THElTL,PHlTL,PSnL, 
N,SINTHN,COSPSN,SlNPSN,CCSPHN,SINPhN,CTHETP, 
PtCPSTP,SPSTP,BNMTX(3,3),    CNMTX( 3, 3 ) ,ENDE IN 
DELPTH,TCTLST(6),ITtSTT,ITCHN&,lPATHT,10RIVE, 
»IBUG 

DRIVER    MGUEL 
SAMPLE    TIME    FOR    DRIVER    MODEL 
CHANGE    DESIRED    SPEED    AND    UlSTANCF 
INDEX    AND    INPUT    TIMES    FOR    SPEED   CHANGES 
T,FS»DS,APDMAX,FKD0,FKP0,FKS10,FKS20,FKSKD0, 
TSTSiG,TSTS20,TSTR10,TSTR2G,LMEGAO,TAUF,TIL, 
2)  ,NTRAN,YTRANS(6),GEARl,G£AR2,GEAR3,GEAR4t 
&R23,VGK34,VGR43,VGR32,V6R21, 
),0ESSI(5>,DIST1(5),PS1FH0,XIMP0P(9), 
P2,DRIEND 

FKP,FKSltFKS2,FKSKID,TESTB,TESTSlfTESTS2f 
TESTR2,THLSKD,FbRK,APB,DS0£S, 
MT,DESS,DIST,DISTC,CONMPH,UT,UTMPH, 
TAX,DELTV,TJ,TTEM,TTPS1T,PSISKD,ST,STS02,CAY, 
,DItUP,XVP,YVP,SLOPE,SLOPtR,PSIJ,XINT,X,Y, 
LRMY , T  EMPGR , aE , EI , £ WT , ARE  H  7 ) , aRCAPE  <  7 ) , ET , 
TITE,DPSISF,DPSILF,PSIM,APSI,aPSIM,TPD(10), 
,NPD,KC0UNT,ISKIDP,ISMAIN»IGEAR,WEIGHT(10)» 


JJ    =    1 

UT    =    SORTlU*U+V*V+W*W) 
C  CALCULATE    AT    INITIALIZATION    AND    ON    IDRIVE    -    1,    IF    NOT    TIME 

C  FOR    DRIVER    SAMPLE     ( IDRIVE. NE . 1)     BRANCH    TO    50    AND    CONTINUE 

C  FILTER    SUMMATION    FOR    PSlr.    ALSO    DONOT    CHAGt    APD,FBRK. 

C  BRAKING,     DRIVING    TCROUE    COMPUTED    IN    CTQB    AND    CTQD    GIVEN 

C  FBRK,APD. 

IFdBUG.GT.l.    OR.IbU&*IDRIVE,N£,0)     WRITE  (  6,3001 )    T, IDRIVE 
3001    F0RMAT(3H   T=,F9.5,bH    1DRIVE=,12     ) 

IF(IDRIVE.EO.O)    GO    TO    50 
211    IDRIVE    =   0 

THESKD    =   0.0 

IF(U.NE.O.O.OR.V.Nt.O.O)     THESKD 

1F(ISKIDP.EQ,2)     GU    TO    228 

IF( A8S(THESKD).GT.TESTR1 )    GO    TO 

ISKIDP    =   0 


=    ATAN2{V,U) 


22  5 


DRIV0500 
DRIV0510 
DRIV0520 
,DRIV05  30 
2DRIV0540 
,DRIV055C 
DKIV05  60 
DRIV05  70 
DR IV 05  60 
DRIV0590 
DR1V0600 
DRlV06iO 
DRIV0620 
DR  IV  06  30 
DRIV0640 
DR1V0650 
DgiVC.6  60 
DR  IV  06  70 
DRIVOoSO 
DRIV06  90 
DP  IV07  00 
DR-IV0710 
DR IV 07 20 
DRIVO/30 
DR IV 0740 
DRIV0750 
DRIV07  60 
DRIV0770 
DRIV07  60 
DRIV0790 
OR  IV  Ob  00 
DRIV0610 
DR  IV  06  20 
DR  IV  08  30 
DRIV08  40 
DR1VG8  50 
DR  IV  06  60 
DRIV0870 
DRIVOfcEC 
DRIV0e9O 
DRIVO*^00 
ORIV0910 
DRIV0920 
DRIV0930 
DRIV09  40 
DRIV0950 
DR  TV  09  60 
DR IV 09 70 
DRI»^09b0 
DP  IV  09  90 
DRIVIOOO 
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GO    TO    215  DRIVIOIO 

225    ISKIDP    =    1  DRIV1020 

APU    =    0.0  DRIV102G 

FBRK    =    0.0  DRIV1040 

IF( IBUG.NE.O)    WR1TE( 6»3005)     T , THLSKD, APD ♦ FBR K  ,  PS ISKD, I  SKI  DP  DkIV1050 

3005  FORMAKjK    T=,F9.5t'     THESKD- •  ,  FIO  .4 ,  •    APD=«,F8.2t«    FBRK  =  »,F8,2,  DRiVlObO 
X                      •    PSISKD=»,F10.4, •     ISK1DP=« ,14, •     STMT     225*     )  DRIV1070 

IF{ABS(THESKD)  .LT.TESTR     )    GO    "10    300  DRIVIOEO 

ISKIDP    =    2  DRIV1G90 

228    PSISKD    =    FKSK1U*(THESKD-PSIFF)  DRIVllOO 

IFdBUG.NE.O)    WRITE(6,3006)     T  ,  THESKD,  APD  ,  FBRK  ,  PS  ISKD ,  I  SKIDP  DRIVIIIO 

3006  F0RMAT(3H    T  =  ,F9.5, •     THESKD- ', F 1 0  .4 ,  •    APD=«,F8.Z,«     FBRK-«,F8.2,  DKIV1120 
A                     •    PSISKD=»F10.4,»     ISKIDP=', 14, •     STMT    228'     )  DRIV1130 

GO    TO    49  DRIV1140 

C  PSISKD    IS    AN    ENTRY    INTO    PUSH-DOWN    TABLE,     BYPASS    PATH    FOLLOWING    DRIV1150 

C  PSIFF    IS    OUTPUT    FROM    PREVIOUS    SAMPLE     TIME     FUR    PATH    FOLLOWING  DRlVlltO 

C  DR  IV  11  70 

C  ISKIDP    NOT    ZERO    INDICATES    PSISKD    HAS    BEEN    USED    INSTEAD    OF  DRIV1180 

C  PATH    FOLLOWER  DRIV1190 

C  VEHICLE    ORIENTATION    NOT    TO    CHANGE    MORE    THAN    90    DEG.     IN    A    SKID       uRIVi^OO 

C  DKIV1210 

215    CALL    DRIVP  DRIVii:20 

IF( IBUG,NE.0)WRITE (6,3003)    T, APD, FBRK  DRIV1230 

3003    FORMATOH    1=,F9.5,'     APD=«,F8.2,'     FBRK  =  »,Fb.2,     •    FROM    DMVP»     )  DPIV1240 

300    CONTINUE  DRIV1250 

UPP    =    AMTX( 1,1 )*U+AMTX(1 ,2)*V+AMTX( 1,3)*W  DRIV1^60 

VPP    =    AMTX(2,1)«U+AMTXI2,2)*V+AMTX(2,3)*W  DRIV1270 

ST    =    DS/UT  DRIVliiBO 

STSC2    =    ST*ST/Z.0  DRIV1290 

QAY    =    UT«UT*PSIM/(APB* (1 .0+FKD*UT»*2) )  DRIV13C0 

AXP    =    AMTX( 1,2)*QAY  DklV13lO 

AYP    =    AMTX(2,2)*QAY  DRIV13<:0 

ET    =    0.0  DRIV1330 

C  NEN     IS    NO.    OF    SAMPLE    POINTS    ALONG    PROJESTED    PATH    (MAX. OF    7)  DRIV1340 

DO    70    1=1, NEN  DRIV1350 

Dl    =    FLDAT( I  )  DRIV1360 

XVP    =    XCP+ST*D1*UPP+STS0Z*DI**2*AXP  DRIV1370 

YVP    =    YCP+ST*DI*VPP+STS02*DI**2*AYP  CRIV1380 

SLOPX    =    UPP-»-ST*DI*AXP  DRIV1390 

SLOPY    =    VPP+ST*DI*AYP  DRIV1400 

SLOPER    =   -(SLOPY/SLOPX)  DRIV1410 

C  DRIV1420 

C  PSIJ     IS    ANGLE    OF    ROTATION    TO    ACHIEVE    NEW    AXTS,    Y",     ALONG  DRIV1430 

C  THE    ERROR    LINE    BY    A    CLOCKWISE    ROTATION  DRIV1440 

C  THE    PURPOSE     IS    TO    HAVE    THE    SIGN    OF    THE    ERROR    IN    THIS    AXIS  DRIV1450 

C  SYSTEM    INDICATE    THE    DIRECTION    OF    STEERING  DRIV1460 

C  PSIJJ    FOR    THE    ERROR    LINE,    WHICH    IS    ANGLE    OF    PREDICTED    PATH  DRlVlt70 

C  ♦    PI/2    •  BUT    ROTATE    BY    (-PI+PSIJJ)    WHICH    IS    ANGLE    OF  DRIV1480 

C  PREDICTED    PATH    -    PI/2         SINCE    STEERING     IS    NEGATIVE  DRIV1490 

C  COI/^TERCLOCKWISE    BUT    PSIJJ    IS    POSITIVE    CLOCKWISE    BY  DRIV1500 

C  MATHEMATICAL    CONVENTION    .  DRIVI510 
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DATE       01/14/76 


TIME       1725 


UPDATE    RECORD 


PSIJ    =    ATAN2tSL0PX»SL0PY)    -    PIU2 


XliMT    = 
C  SOLV 

C  IF    N 

DO  60  J 
Y  =  ^S 
IF( Y.GT 

60  CONTINU 
IPATHT 
WR IT  E  (  6 

3010    FOKKAT ( 
RETURN 

61  X  =  S(J 
TERMX  = 
TEKMY  = 
At  =  SW 
TEMPQR 

C  EI     I 

C  cT    H 

EI    =    SI 
EWT    =    t 
AREK  I  ) 
ARCAPf ( 
70    ET    =    cT 
IFdBUG 
98    FORMAT ( 
DPSISF 
1F(A6S( 
C  NPD 

C  EACH 

NPD    =    N 
PPD(NPD 
TPD(NPD 
C  PSIM 

PSIM    = 
GU    TO    t 
^9    IF(ABS( 
NPD    =    H 
PPDCNPD 
TPDINPD 
PSIM    = 
50    KCOU^T 
PSIFF    = 
PSIFFD 
IF(NPD. 
DO    7^    J 
TITE    = 
IFdITE 
IF«TIT£ 


ON    CLOSEST    VALID    DESIRED    PATH    EQN. 
T    =    I 

'ER-S(J,2)) 
LE.YTRANS( J+1) )    GC    TO    61 


XVP-SLOPFR*YVP 

L    FOR    X,Y    COORDo 

U    SOLUTION,     IPATH 

=  1,5 

tJ,l)-XINT)/(SLOP 

•YTRANS( J).AND.Y. 

fc 

=    1 

,3010)    T, IPATHT 

3H    T=,F9.5,»     1PATHT=»,I4» •    NO    SOLN.    FOR    ERROR*     ) 


,1)*S(J,2)»Y 

X-XVP 

Y-YVP 
RT(TtRMX**2+TtPMY 
=    SIN(PS1J)*I ERMX 

S    THE    ITH    ERROR, 
OLDS    ACCUMULATION 

gn(a;e,tempor) 

1 ♦WEIGHT (  I) 

=    El 
I)    =    EWT 

♦    cWT 
.N£.0)WK1TE(6,96) 


**2) 

+COS(PSIJ)«TERMY 
EWT    IS    THE    WEIGHTED    ITH    ERROR 
OF    WEIGHTED    ERRORS 


T  ,AREI,ARCAPE 

,7F10.3,    /•    EWT=«  ,7F1G.3    ) 


ND,PSIFF*DPSISF.GT.O,0)    GO    TO    50 
I»S    IN    PUSH-DOWN    TABLE-PPO 11). 
ASSOCIATED    TlMh-TPD(I) 


IFF 


=    FKP*ET 

PS1FF),GE,0MGPS.A 
=    NO,    OF    DELTA-PS 

DELTA-PSI    HAS    AN 
PD+1 

)    =    DPSISF 
)    =    T 

IS    UNFILTERtD    PS 
PSIM    +    DPSISF 
0 

PSIFF). GE.OMGPS. AND. PSIFF*PSISKD.&T. 0.0)60    TO    50 
Pu+1 

)    =    PSISKD 
)    =    T 

PSIM    +    PSISKD 
=    0 

PS  I F  FH 
=   0.0 

tC.O)    GO    TO    75 
=  1,NPD 

T-TPD{J)-TAUF 
.LT.0.0)    GO    TO    74 
•GE.l.O)    GO    TO    73 


DRIV1520 

DRIV1530 
DR  IV 15 40 
DRIV1550 
OR  IV 15  60 
DK IV 15 70 
DRIV15B0 
DRIV1590 
DR  IV 16  00 
DRIVI610 
DRIVi620 
DR  IV  1630 
DR IV 1640 
DR  IV  16  50 
DRIV1660 
DR  IV  16  70 

DRivifcan 

DR1V1690 
DRIV17G0 
OR  IV  17  10 
DRIV1720 
DRiV17  30 
DR IV 17  40 
DRIV1750 
DR  IV 17  60 
DR IV 17 70 
DRIV17b0 
DRIV1790 

DRivieoo 

DPIV1810 
DR IV 18 20 
DRIV1830 
DR  IV  18  40 
DR IV  lb  50 
DRIVI06O 
DRIVlfa70 
DRIVl&ftO 
DR IV 18 90 
DR IV 1900 
Dk  IV  19  10 
DR1V1920 
DR1V193G 
0RIV1«*40 
DRIVi950 
DR  IV  19  60 
DRIV1970 
DR  IV  19  60 
DR1V1990 
DRIV2000 
DRIV2010 
DR1V2020 
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DATE       01/14/76  TIME       1725  UPDATE    RECORD 

72  DPSILF  =  PPD(J )*{ 1.0-TMT*EXPI-TITE/T1L) )  DRIV2030 
PSIFF  =  PSIFE  ♦  DPSILF  DRIV20MJ 
PSIFFU  ^  PSIFFD+(PPD(J)-DPS1LF)/TIL  DR1V20^0 
GO    TO    74  DRIV2060 

73  DPSILF  =  PPD(J)  DRIV2070 
KCOUNT  =  KCOLINT  +  1  DR1V2080 
PSIFF    =    PSIFF    +    DPSILF  DRIV2090 

74  CONTINUL  DR1V2100 
IF(KCOUNT.EO.O)  GO  TO  75  DRIV2ilO 
DO    16    J-1,KCCUNT                                                                                                                     .  DRIV2120 

16  PSIFFH  -  PSIFFH+PPD( J)  DRIV2i30 
NPD  =  NPD-KCL»UNT  DRIV2140 
DO  17  J=1,NPD  DRIV21S0 
PPD(J)  =^  PPD(J  +  KCOUNT)  DRIV2160 
TPD(J)     =    TPD(J*KCGUNT)  DRIV2170 

17  CONTINUE  DRIV?180 
KCOUNT    =   0  DKIV2190 

75  CONTINUE  DR  IV2200 

DR1V2210 

PSIJD    =    PSIJ/RAD  DRIV^210 

IF( IBUG,GT.1.0R.IBUG*IDRIVE.NE.0)    WRITE(6,97)    T, PSIFF,  DKIV2230 

X               PSIFFH, DPSILF, DPSISF, PSIJD,  DRIV2240 

X                                      ISKIDP,NPD,  ( PPD(K) ,K=1,NPD) , (TPD(K)  ,K  =  1,NPD)  DRIV2250 

97    F0RMAT(3H    T=,F9.5,»     PS  IFF=  • ,  F  10  •  i>,  •    PS1FFH=  •  ,  F  10.5  ,  •    DPSILF  =  »,  DRIV^260 

A                    F10.5,«     DPSISF=»,F10.5,»     PSIJD=» , F 10, 5 , , •     ISKIDP=',I2,  DRIV2270 

b                     •    NPD=»,I2       /    •    PPD,TPO=«,    10F10.5/'     SIOFIO.S     )  DRIV2280 

DR  IV  22  90 

APSI    =    ABS(PSIFF)  DRIV2300 

IF{APSI.LE.OMGPS)    GO    TO    79  DRIV2310 

PSIFF    =    SIGN(OMGPS, PSIFF)  DRIV2320 

79    APSIM    =    ABS(PSIM)  DRIV2330 

IF( APSIM.GT.OMGPS)    PSIM=S IGN( OMGPS , PSIM )  DRIV2340 

IF{ABS(PSIFFH) .GT.OMGPS)     PS lFFri=SIGN( OMGPS , PS IFFh)  DRIV2350 

89    RETURN  DRIV2360 

END  DRIV2370 
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DATE   01/14/76 


TIME   1725 


UPDATE  RECORD 


OP,UO,VO,WO, 

20D,DEL30Dt 

,OMEGF»CFP,EHS 

HKAX,DTCOMP,TO 

.HMINfBETtG, 

PH1C(50),L;ELB, 

),TB,TE,TINCRf 

(2,5 ),NEX(5)  , 

,YINCR(5),NY(5 
) ,UVWMIN,PQ^MI 
HED(20) , 


fc),ITESTT, ITCHN&,IPA7HT,IDRIVEt 


SUBROUTINE    DRIVID 
C  HVCSM-VD2    VERSION 

C  REVISED    OCTOBER    1975  CALSPAN    CORPORATION 

COMM0N/lNPT/PHIO,THETAO,PSIO,P0,Q0,R0,XCOP,YCt;P,ZC 

1  A,U,DEL10,DEL10,DEL30,PHIR0,DEL10D,DEL 

2  PHlRODfTF,TR,ZF,ZR»RHO,AKRStXMUR t 

3  XMS,XMUF,XIX,XlY,XIZ,XIXZ,CFtAKF»XLAMF 

4  RF,CR,AKR,XLAM.R,DME&R,CRP,EPSR  ,RRtTS,T 

5  T1,DTCMP1,DTPRNT,M,0DE,EBAR,£M,AAA,HMAX 

6  HED(36) ♦DADS (3) tXlK ,X1 tYl , Zl , X2, Y2 ,Z2f 

7  DELE,DDEL,ND6L,PS1F{50),T0F(50),TCR(50 
B  NZTAB»NZ5,XB0RY(4t5)»PSbDRY(4,5),YB0RY 
9  NBY(5),NTBLltNTBL2,NT9L3tZGP(21,21t5  ) 

C0MM0N/lNPT/XB(i),XE«5),XlNCR(5),NX(5),YB(5),YE(5) 
1  XXZGP5(21) »YYZ&P5{21) ,AMU&(5) ,PS6DR0{4,5 

COMMON /HEAD/    VHtD(20  )  ,CH ED( 20 ) , GHE D( 20) t SHED (20) ,T 
1  NPA&l-(20) 

C0MM0N/bRIVTT/TPATH,DELPTH,7CT£ST( 
1  IURVER,1BU& 

C  IPATHT    -    STOP    FOR    DRIVER    MODEL 

C  I-DRIVE   -    NOT     ZERO,    SAMPLE    TIME    F 

C  ITCHNC   -    NOT     ZERO,    CHANGE    DESIRE 

C  ITES1T,TCTEST(6)    -    INDEX    AND    INP 

CGMM0N/UR1VI/NEN,EMD1,FS,DS,APDMAX 

1  TESTcO,TSTS10,TSTS20, 

2  TL,S(5,2) ,NTRAN,YTRAN 

3  VGR12,VGR23,VGR34,VGR 

4  T£STT(5),DESSH5),DIS 

5  BFP1,BFP2,DRIEND 
C0MM0N/DRlVE/fcN,FKD,FKP,FKSl,FKS2, 

1  TESTRi,TESTRi,THESKD, 

2  TRKIN,TMT,DESS,DIST,D 

3  APD,DELTAX,DFL1V,TJ,T 

4  AXP,AYP,DI,UP,XVP,YVP 
3  T£RMX,TERMY,T£MPOR,A£ 

6  PSIFFH,TITE,DPS1SF,DP 

7  PPD(IO) ,NPD,KC0UNT,1S 
B                                    DEND 

WRITE (6,  1001)    LN,tMD 
1001    FURMATdHO, 


OR  DRIVER  MODEL 

SPEED  AND  QISlANCt 
UT  TIMES  FOR  SPEED  C 
,FKD0,FKP0,FKS10,FKS 
TSTR10,TSTR20,D«EGA0 
S(6),GEAR1,G£AR2,GEA 
43tVGR32,VGR2l, 
T1(5),PS1FH0,XIMP0R( 


FKSKID, 
FBRK.AP 
ISTCCO 
TEM,TTP 
.SLOPE, 
,tI,EWT 
SILF.PS 
KIOP.IS 


TESTB,TESTS1, 

B,DSGES, 

NMPH,UT,UTMPH 

SIT,PSISKD,ST 

SLOPER,PSIJ,X 

,AREI(7),ARCA 

IM,APSI,APS1M 

MAIN,IGEAR,WE 


MANGES 
20,FKSKD0, 
,TAUF,TIL, 
R3,GEAR4, 

9), 

TESTS2, 


,STSC2,QAY 

INT,X,Y, 

PE(7),ET, 

,TPD(10), 

IGHT(IO), 


A      9X,52hNO.0F 

B      F8»2       / 

C    10X,52HTIME    BETWEEN 

D      F6.2,2X,3HSEC         / 

E    10X,52HINCREMENTAL 

F      Fb,2,2X,6HINCHES 

G    10X,52HSTEERING    FIL 

H      F6,2,2X,3HStC 

I    10X,52hSTEERING    FIL 


T,DS,TAUF,TIL,TL 
SAMPLE    POINTS    ALONG   PROJECTED    PATH 
DRIVER    SAMPLES 


DISTANCE    ALONG    PROJECTED    PATH 

/ 

TER    TIME    DELAY 

/ 

TER    TIME    LAG 


EN 

EMCT 

DS 

TAUF 

TIL 


DRVDOO  10 
DRVD00  20 
DI^VD00  30 
DRVDOO  40 
DRVDOO 50 
DKVDCC60 
F, DRVDOO 70 
,  DRVDOO  CO 
DRVDOO 90 
DRVDOIOO 
DRVDOl 10 
DRVDOiiO 
DRVD0130 
),DkVD0140 
N  DRVD  015,0 
DRVD0160 
DRVD0170 
DR  VDOlfaO 
DRVD0190 
DRVD02  00 
DRVD02  10 
DRVD02  20 
DRVL02  30 
DRVD02  40 
DRVD02  50 
DRVD02  60 
DRVD02  70 
DRVD02fcO 
DRVD02  90 
DRVD0300 
DRVD0310 
DRVD03  20 
LRVD0330 
DRVD03  40 
DRVD03  5C 
DkVD0360 
DRVL'03  70 
OR VD 05 60 
DRVD03  90 
DRVD0400 
DRVD0410 
DRVDG*.2C 
DRVD0430 
DRVD04  40 
DRVD04  50 
DRVD0460 
DRVD04  70 
DRVD04b0 
DRVD0490 
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DATt       01/14/76 


TIM^ 


1725 


UPDATE    RECORD 


J       F8 

K.    lOX 

L       F8 

WRIT 

1002    FORM 


1003 


9X 

Fb 

lOX 

F8 

10  X 

F8 

lOX 

F& 

lOX 

Fb 

lOX 

F8 

WRIT 

FORM 

9X 

F6 

10  X 

F8 

lOX 

Fb 

lOX 

F8 

WRIT 

FORM 

9X 

F8 

lOX 

F& 

lOX 

F8 

WRIT 

1005    FOi^M 

A    IX  t 

B 

C 

D 

E 

F 

G 

H 

I 

WRIT 

1008    FORM 

A    IX, 

B 

C    IX, 


1004 


IX 


IX, 


•2,2X,3H 

,52HSThE 

.2,2X,3H 

E(6,  1002 

AT( IH    , 

,^2HSPEE 

•2,2X,6H 

,52HSPEE 

.2,2X,6H 

,52HbRAK 

.2,2X,9H 

,52hSKlD 

•2,2X,7H 

,52HSKID 

.2,2X,7H 

,52HCONT 

•/, 2X,6H 

E(6,1003 

AT( IH    , 

,52HSKID 

.2,2X,7H 

,52HSPEE 

.2,2X,12 

,52HSPEE 

.2,2X,12 

,52HHAND 

•2,2X,11 

E(6,10  04 

AT(1H    , 

,52HMAXI 

.2,2X,6H 

,52hBRAK 

.2,2X,6H 

,52H 

.2,2X,9H 

E(6,1005 

AT( IhO, 

49H 

BOH 

32H 

49H 

30H 

32H 

49H 

30H 

32H 

E(6,1008 

ATdh    , 

49H 

30H      TES 

49H 


FIL 


SEC 

RING 

SEC 

)    TESTSl 


Y» 
TIM 


D    RESPON 
IN/SEC 
D    RbSPON 
IN/SEC 
E    PEDAL. 
IN/SEC** 

CONTROL 
RADIANS 

CONTROL 
RADIANS 
ROL    GAIN 
RAD/IN 
)    FKSKID 

CONTROL 
RAD/RAD 
D  RESPON 
HLB/IN/S 
D  RESPON 
HIN/IN/S 
LING  QUA 
H(SbC/IN 
)  APDMAX 

MUM  ACCE 

INCHES 

E  SYSTEM 

PSI/LB 

FORCE  CO 

PSI/LB** 

) 

DESI 

SPEED  C 

IMPOR 

TRANSIT 

DES 

WEIG 

POIN 

SP 

FUN 

) 

YTRANS 
TT     DE 

IN 


/ 

TER  TIME  LEAD  TL 

) 

,TtSTS2*,TESTb,TbSTRl,TESTR2,FKP 

SE    THRESHOLD  TESTSl 

/ 

SE    INDIFFtRENCE    LEVEL  TE STS2 

/ 

APPLICATION    INDIFFERENCE    LEVEL       TESTB 
2      / 
THRESHOLD  TESTRl 

/ 
INDIFFERENCE    LEVEL  TESTR2 

/ 
FOR    FRONT    WHEEL    STEER    ANGLE  FKP 

) 
,FKS1,FKS2,FKD 

GAIN  FKSKID 

/ 
SE    BK>sKE    PEDAL     FORCE     GAIN  FKSl 

tC**2         / 

SE    ACCELERATOR    PEDAL    GAIN  FKS2 

EC**2         / 

LITY    CONSTANT  FKD 

)**2  ) 

,bFPl,BFP2 

LERATOR    PEDAL    DEFLECTION  APDMAX 

/ 
PRESSURE    VS.    BRAKE    PEDAL  BPFl 

/ 
EFFICIENTS  BPF2 

2      /  ) 


RED    PATH    DATA 

HANGE    DATA 

TANCE 

ION 

IRED 

HTING 

TS 

EED 

CTION 


ERROR  , 

X»     INTERCEPT 
NULL  , 

WEIGHTING    , 

DISTANCE       , 
FUNCTION 


/ 

SLOPE 

/ 


SSI 


5(1,1) 
DISTI 
IN 


S(I,2) 


DRVD05  00 
DRVD05 10 
DRVD0520 
DRVD05  30 
DRVD05  40 
DRVD05)50 
DRVD05  60 
DRVD0570 
DRVDObbO 
DRVD0i9G 
DRVDOoOO 
DRVD06  1C 
DRVD0620 
DRVL0630 
DRVD06  40 
DRVD06  5>0 
Df<VD0b60 
DRVD06  70 
DRVD06  80 
DRVD0690 
DRVD0700 
DRVD07  10 
DRVD0720 
DRVD0730 
DRVD07A0 
DKVD07  50 
DRVD0760 
DkVD0770 
DRVD0780 
DRVD0790 
DRVD08  00 
DRVD08  10 
DRVD0&20 
DRVD06  30 
DRVDOfa^O 
DRVD06  50 
DRVD0e60 
DRVD08  70 
DRVD0880 
OR  VD  06  90 
DRVD0900 
DRVD0910 
DRVD09  20 
ORVD09  30 
DRVD0940 
DRVD0950 
OR VD 09  60 
DRVD09  70 
DRVD09  80 
DRVD09  90 
DRVDIOOO 
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D  30H  SFC  IN/SEC  I  iM  i       /        ) 

WRITE (6,  1006)     (YTRANS(I) , S ( 1 1 1 ) » S ( I ,2 ) ,T E STT ( I ) , DE SSI ( I ) ,D I  ST  I ( I ) 
A  XIMPDR(X)f WEIGHTC I),I=1,5) 

1006    F0;^MAT(eX,F8.2»'^X,F10.2t4X,  Fe.2,&X,F8.2,2X,F6.2,2X,Fb.2t  10X,F6,2, 
A  tX,Fb.2     ) 

WRITE  (6, 1007)     (XIMPORd)  ,WEIGHT{  I)  ,1=6,7) 
3  007    F0K'-^AT(F8X,FB,2,6X,F8.^     ) 

Wrll  Tfr(6,1009)    GLAR1,VGR12:,VGR43,G£AR2,V&R2  3,VL-R32, 
1  GtAR3,VGR34,VGR21,GEAR4 

1009    FORMAT! IhO, 

A       vX,50hTRANSMlSSICN  ENGINE    UPSHIFT  ENGINE    DOWNSHIFT 

b    10X,f>0H    GEAR    RATIO  SPEED    -   RPME  SPEED    -    nPME 

C  10x,i>HlST  =,F7.3,5X,7HVGR12  =,  F7,  1  ,^  X,  7HVGR43  =,F7.1  / 
D  10X,L.h2N0  =,F7,3,^X  ,7HVGR23  =,  F7. 1  ,4X,7HVGR32  =,F7,i  / 
£  10X,5H3RD  =  ,F 7  .3 , 5X ,7HVGR34  =, F7. 1 ,4X ,7HVGP21  =,F7.1  / 
F    10X,5h4TH    =,F7.3  } 

'RETURN 
tN'J 


DP  VD  10  10 

Id) 

,DRV010  20 

DRVD1030 

6,2, 

DRVDIOAO 

OR VD 10 50 

DRVLiOf,0 

DRVDlO/0 

DRVOIOFO 

DkVDlOVO 

DRVDllOO 

/ 

DRVDlllO 

// 

DRVD1120 

DRVD1130 

DRVDllA^O 

DRVD115.0 

DRVD1160 

DRVL  1170 

QRVL^libO 
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DATE       01/1^/76  TIME       1725  UPDATE    RECORD 


SUBROUTINE    DKIVP  DRVPOOIO 

C                                       HVOSM-VD*:    VERSION  DRVP0020 

C                                       REVISED    OCTOBER    197f>          CALSPAN    CDRPGRATIDN  DRVPC030 

C0MMCN/DRIVTT/TPATH»[)£LPllH,TClEST(6),ITESTT,ITCHNGtIPATHT,IDRlVEf  DRVPOOAG 

1                                          IDRVERjIEUG  DKVPOOt/G 

C                      IPATHT    -    STOP    EGR    DRIVER    MODEL  DRVPOOfcO 

C                      lURIVt    -    \G7     ZtRU,     SAMPLE    TIME    FOR    DRIVER    MODEL  DRVP0070 

C                     ITCHNG    -    NOT     ZEPO»     CHANGE    DESIRED    SPEED    AND    DISTANCE  DRVPOOfcO 

C                     ITESTT  ,TCTES1 (6)    -    INDEX    AND    INPUT    TIMES    FOR    SPEED    CHANGES  DRVP0090 

COMMON/L>RIVI/NENtEMDT,FS , DS . APDMAX , FKDO, FKPO , FKS 10 , FKS20 ,EKSKDO ,  DRVPOIOO 

1  TESTBO,TSTSiU,TSTS20,TSTR10,TSTR20,OME&AO,TAUF,TTL,  DRVPOllO 

2  TL,S(5,2) ,NTRAN,YTRANS(6) ,GEARl,&tAR2tGEAR3,GEAR^,  DRVP0120 

3  VGR12,VGR23,VGR3A,VGRA3,VGR32tVGK21i  DRVP0130 

4  T£STT(5),DESS1 (i),DlSTI(5),PSIFH0,XIMP0R(9),  DRVPOIAO 
b                                    LiFPl,BFP2tDP,lEND  DRVP0150 

COMMON/URI VE/£N,FKD,FKP,FKS1,FKS2,FKSKID, IE  STB, TESTS 1»TESTS2,  DRVPOltO 

i                                      TESTRl,TESTR2,THESKD,FBRK,APb,DSCES,  DRVP0170 

2  TRKIN,TMT ,DESS,DIST ,DISTC,CONMPH,UT,UTMPH,  DRVP0180 

3  APD,DELTAX,DEL  f V t T J ,TTEM ,TTPSIT , PSI SKD ,ST , STS02 ,QAY v  DRVP0190 

4  AXP,AYP»DI,UP,XVP,YVP»SLOPE,SL0PER,PSIJtXINT,X,Y,  DRVP0200 

5  TERMX,TERMY,TEMP0R,AE,£1,EWT,AREI(7),ARCAPE(7),ET,  DRVP0210 

6  PSIFFH,TITE,DPSISF,DPSILF,PSIM,APSI,APSIM,TPD(10) ,  DRVP0220 

7  PPD(IO) ,NPD,KCDUNT,ISKIDP,ISMAIN,lGEAR,WEIGHT(iO),  DRVP0230 
6                                      DEND  ORVP02<tO 

C  DKVPC2i.O 

C                       I:■^MAIN    NOT    ZERO    FOR    SPEED    MAINTENANCE,     DO    NOT    UPDATE    DIST  DRVP0^60 

C  DRVPC2  70 

10     IF( ISMAIN.NE.O)     GO    TO    15  DRVP02B0 

DIST    =    DIST~UT*EMDT  DRVP0290 

IFIDIST.GT.O.O)    GO    TO    15  DRVP0300 

DIST    =    DISTC  DRVP0310 

ISMAIN    =    1  DRVP0320 

C                    NOTE:     TESTT(l)    MUST    =    TO  DRVP0330 

15    IFdTCHNG.EQ.O)    GO    TO    25  DRVP03A0 

C                       CHANGE    OESIRFD    SPEED    AND    DISTANCE    HERE  DRVP0350 

ITTT    =    ITESTT-1  DRVP0360 

IF(1TTT.GT.5)    GO    TO    25  DRVP0370 

DESS    =    DESSKITTT)  0RVP03e0 

DISTC    =    DISTI(ITTT)  DRVP0390 

DIST    =    DISTC  DRVP04G0 

ISMAIN    =   0  DRVP0410 

IFdBUG.NE.O)    WRITE{6,99)    I  TTT,  DESS  ,DIST  DRVP0420 

99    FORMATdH    ,5X,6H    ITTT  =  ,I  2  ,12H  ,    DES  .SPEED=  ,F10«3  ,  7H  ,    DIST  =  ,F10.3)  DRVP0A^30 

25    DELTV    =    DESS    -    UT  DRVP0440 

FBRK    =    0.0  DRVP0450 

IF(DELTV.G£.0)    GO    TO    31  DRVPO^eO 

IF(ABS(DELTV),GE,TESTS2)     GO    TO    32  DRVP0A70 

C                       NO    CHANGE    IN    APD  DRVP0480 

31    IF(DELTV.LT.TESTSl)    GO   TO   50  DRVP0490 
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32    DELTAX     =    (DELTV*UT )/DlST 
IF(DELTAX,GT.O.O)    &G    TU    ^b 
IF( AeS(LtLTAX)  .LE.TESTb)     GG 
C  HERE     DtLTAX     li>    NEGATIVE, 

C  THEKEEORB    CHANGE     SIGN     TU 

APU    =    0.0 

EBRK    =-FkS1*DELIAX 

GO    TO    1..U 
C  AT     STMT     45,     ACCtLERATlCN 

C  0^     IE    DELAX    NEGATIVE    BUT 

45  APD    =    APD+EKS2*DELTAX 
IF(APD)     46,50,47 

46  APD     =    0.0 
60    TO    50 

47  IFI APD.GI.APUMAX)  APD  =  APDMAX 
5  0  RETURN 

END 


n  4  5 

FKSl    IS    INPUT    AS    POSITIVE, 
GET    POSITIVE    PC     TN    CTOB 


INCREASE,     INCREASE    ACC. PEDAL 

NOT     bRAKING,     DECREASE    APD. 


DEFL 


DRVP 
DRVP 
DKVP 
DRVP 
DRVP 
DRVP 
DKVP 
DRVP 
DRVP 
DRVP 
DRVP 
DRVP 
DRVP 
DKVP 
DRVP 
DRVP 
DRVP 


0500 
05  10 
05  2-0 
05  30 
0540 
05  50 
05  60 
05  70 
05  tO 

05  90 

06  00 
OoiO 
06  20 
Oo  JO 
06  40 
06  50 
06  6  0 
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SUBROUTINE    DRVCNS  DKVCOOIO 

C  HV0SM-VD2    VERSION        -  DRVC0020 

C  REVISED    OCTOBER    1975  CALSPAN    CORPORATION  DRVC0030 

C0MM0N/INPT/PHI0tTHETA0tPS10,P0,Q0»R0,XC0P,YC0P,ZC0PtU0,V0,W0,  DR VC 00 40 

1  A,B,DEL10,DEL20,DEL30,PHlRO,DEL10b,DEL20DtDEL30D,  0RVC0G50 

2  PHIROD.TFtlR tZF,ZR»RHO,AKRS»XMUR»  DRVC0060 

3  XMStXMUF  ,XIX,XIY,XIZ,X1XZ»CF,/IKF,XLAMF  ,OME  GF  »CFP  ,  EPSF  ,DR  VCOO  70 

4  RF,CR,AKR,XLAMR,OME&R,CRPtEPSR,RR,TS»THMAX,DTCGMP,TO,    DRVCOO&O 

5  Tl,DTCriPliDTPPNT»MODE,EBAR»EM,AAA,HMAX,hMlN»BET,G,  DRVC0G90 

6  HED(36) ,DADE <3) ,XIR,X1 ,Y1,Z1,X2,Y2,Z2,PHIC(50),DELB,        DRVCOIOO 

7  DELE,DDLL,NDCL,PSIF(50) ,TQF(50) ,TQR(50),7B,Tt,TINCR,       DRVCOllO 

8  NZ  TAb,lMZ5tXBDRY{4,5)  ♦PSBDRY(4,5)  tYBDRY(2»5  ),NBX(5)  ,  DRVC0I20 

9  NbY(5),N7BLl»N7BL2tNlBL3,ZGP(21f 21,5J  DRVC0130 
C0MM0N/INPT/XB(5) ,XE ( 5 ) , X INCR ( 5 ) ,NX ( 5 ) , YB ( 5 ) , YE ( 5) ♦ YINCR ( 5 ) , NY ( 5 ) ,DR VC 01 40 

1  XXZGP5(21)  ,YYZGP5(21)  ,  AMUG(  5  )  ,PSBDRO(  4.»5  )  ,UVWMIN  ,PORMI  N    DRVC0150 

C0MM0N/1NPT1/YC1P,YC2P»ZC^P,DELTC»PHIC1,PHIC2»AMUC,XIPS,  DRVC0160 

1  CPSPfOMGPS,AKPS,EPSPStXPS,RWHJB,RWHJE,DRWHJ,INDCRBt        DRVC0170 

2  PSIFI0,PSIFD0  DRVGOifcO 
DIMENSION  YCIP(2)  DRVC019G 
EQUIVALLNCE  ( YC  IP (  1  )  » YC 1 P  )  DRVC0200 
COMMON    /C0MP/SUMM,THETN,PHlN»PSINtPI,RAD,GAMl,GAM2 ,GAM3 » GAM4, GAM5 , DR VC 02 10 

1  &AM6,GAM7,&AMb,GAM9,THETT,PHIT,PSIT,ZR0tTR02,  DRVC02^0 

2  TF02.TIZ,RHC2TRHGMUR,AMUF,BMUR,ZPR,TM4,RHMR2f A02APB,     DRVC02  30 

3  B02APB,RFTF,TSD2,RRTS ,BR0MUR»XMUF02,AXMF02,XMTF0A,  DRVC02A0 

4  XIZRfRTR,RHMR21,XIXP»XlZPtXlXZP»XIYZP,DlPD2,DlMD2,  DRVC0250 

5  ZRD3,ZRD3R, ZFD3R , ZFD12 ,T I Z2, TGo 1 ,DD1P2 tDDlM2, RPR , PHRPDRVC02  60 

6  ,TANTP,SPhTP,CPHTP,SECTPtSFXS,SFYS,SFZS,SNPS,SNTS,  DRVC0270 

7  SNPSStTPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYU,SFXU,SFYUF,  DRVC02b0 

8  SFYUR»SFZU,COSTH,SINTH,COSPS,SINPSfCOSPHtSINPH,ANGl,    DRVC02  90 

9  ANG2,CPHI,SPHI,CPSI,SPSI,P1,P7,P3,P4,P5,P6»TX,TY,TZ  DRVC0300 
COMMON    /CQMP/TRH»DISTX,DISTYtDISTD,DISTS,D21,ZtTA4,ZETA^D,ZETA3,       DRVC03  10 

1  ZETA3D,SFZ1 f SNPU,SNTU,HCGhl,HCGH2,HCGH3triCGHH,7ERMl,     DRVC0320 

2  TERM2,SNPSU,SNPR,HCBMl,HCBH2tHCBh3»HCBH4,HCAHltHCAH2tDRVC03  30 

3  HCAH3,HCAH4,UQ,WP,URtttR,VP,PR,P2,Q2,R2,VR,W0,PQ,PHIR2DRVC03A0 

4  ,PHIRD2,.<PHRO,GCrH,GSTH,GC7SP,GCTCPtXXX,YYY,IX,IY,XXl,DRVC03  50 

5  XX2,YYl,YY2,THGl,THG2,PHGl,PHG2tZZl,ZZ2,LLL  DHVC0360 
DIMENSION  HCAH(4) ,HCBH(4) ,HCGH(4)  DRVC0370 
EQUIVALENCE  (HCAH(l) ,HCAHl ) , ( HCbH( 1) .HCBHl) , ( HCGH( 1 ) ,HCGH1 )  DRVC03  80 
COMMON    /COMPN/    FRSP{ 4 ) fFRCPC^ ) , ICBHIT , JCBHIT ,                                                          DRVC0390 

1  DPSINT,TANPC1,TANPC2,PHIC1R,PHIC2R,AMUCMP,PHI1D,  DRVC0400 

2  PHI2D,LCB1(4) ,LCB2(4),IHIT,AJMTX{3,3),BMTX(3,3),  DRVC0410 

3  SFRX(4) ,SFRY(4),SFRZ(4),TlPSItT2PSI ,XMUGI(4)  DRVC0^20 
LOGICAL  LCB1,LCB2  DRVC0430 
COMMON    /DI MV/Xl P, X2P, X3P,X4P,Y1P,Y2P,Y3P,Y4P,Z1P,Z2P»Z3P,Z4P, PHI 1,DRVC 0440 

1  PHI2,PHI3,PHI4,PSI1,PSI2,PSI3,PSI4,CAYW(4 ),CBYW(4),        DRVC0450 

2  CGYW(4) ,ZPGI (4),THGI{4),PHGI(4) , CPG (4 ) ,SPG (4 ) ,CTG (4 ) ♦DRVC0460 

3  STG(4),CAGZ(4) ,CBGZ(4),CGGZ(4),D1(4),D2(4),D3(4),  DRVC0470 

4  XLMl(4)  ,XLM2(4),XLM3(h),AMTX(3t3),CMTX(3,4) ,XGPP(4) ,    DRVC0480 

5  YGPP(4) »ZGPP{4) tDMATX(10,ll) ,DELTA{4) ,CAR(4),CBR(4),     DRVC0490 
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6                                        CGR(^),FR  (4  )  ,H1  {^)  , 

7                                      CTXG('t)  ,UG(4),STXG( 

8                                      SPYG(4) »VG(4),PS1IP 

"y                                      FCXU(4)  ,FCYU(4),FCZ 

COMMON    /DIMV/AS  (4)  ,bS(4)  ,CS(A-)  ,L 

1                                      BETbR(4),FSXU(4) ,FS 

2                                      Fi^/0(^)  ,^'XU(4)  ,FYU( 

3                                      F2rl  (2)  ,F2RI  {2),CAH 

DIMtNSiLN    XP(4) ,YP(4),ZP (h),PH1I 

EiJlVALENCt     (XP ( 1 )  ,X1P),  ( YP { 1  ) » Y 

1                                    (PSII (1)  ,PSI1) 

CO^-IMGN     /1NPT4/     rlCJi  2)  tFIWJ(^  )  »A 

A                                            XXFRCP(fc)  ,XMUV.aT  ( 

b                                             XMXSMT(6,6,4) ,SL1 

C                                               XMUXP (4)»XMUXS{4) 

EUJiVALLNCE     (F1DJ(1),H0JF),(F1D 

EQUlVALLMCt     (FIWJ(2)  ,FIWJR)  ,  (AKB 

C0MMUN/II.PT3/    IbTYP(2),AKl,AK2,P 

1                                       CONb,CTWD,CThREE,T 

2                                       TRPMt { 12),TWUT(12) 

3                                     ,TTS(101),BTLF»ETLF 

4                                       bTTtETTTDTT,NTTl,N 

tOMMON/CCHPi?/    TAU(h)  ,Tt,D(2)»TQb( 

1                                         NBTYP,ARFAC3J2) tRP 

2                                         RHOMAX tRHi SAV(4),S 

3                                        DLLTAL,PI01i^R,C0ME 

COMMON    /\H1R/    NhCR,TIMR,DTR»VARR 

DiMtNSlLN    RPSl (4),DRPS1{A  ) 

fcQUIVALbNCE( VARRll) » RPS I ( 1 ) ) , ( DE 

CGMMON/CRlVTT/TPATH,DtLPTH,TCTES 

1                                            lLRVER,ieUG 

o 

IPATHT    -    STOP    FOR    DKlVtR    MODbL 

c 

IDRIVL    -    NOT     ZfcRO,     SAMPLE    TIME 

f 

ITCHNG   -    NOT     ZERO,     CHANGE    DhSI 

c 

ITESTT,TCTEST(6)    -    INDEX    AND    T 

COMMON/URlVl/NEN,rMDTtES»PS,APDM 

i                                      TELTB0,TSTS1G,TSTS2 

2                                      Tl»S{5,2) ,NTRAN,YTR 

3                                      VGK12tVGR23, VGR34,V 

h                                    TESTT(5),[:ESSI(5),D 

b                                      BFP1,BFP2,DR1£ND 

C0i>1M0N/CRIVL/tr4»FK0,FKP,FKSl,FKS 

1                                      TE^TR1,TESTR2,THLSK 

2                                     TRKIN,T!>^T,DESS,DIST 

3                                      APD,DELTAX,DbLTV,TJ 

4                                        AXP,AYP,D1,UP,XVP,Y 

5                                      TERMX,TERMY,TEMPGR, 

6                                      PSIFFH,TITE,DPSISF, 

7                                    PPD(IO) ,NPD,KCOUNT, 

3                                    DEND 

DIMENSION    V&RU(3),VGRD(3  )  ,GEAR(4 

FC(4) 
4)  ,AY 
(4)  ,P 
U(4), 
AS(4) 
YU(A) 
4),FZ 
(t)  ,C 
(4),P 
IP)  t( 


,T1( 
(4)  , 

HICI 
FS(4 
,CBS 
»FSZ 
U(4) 
BH(4 
SIK 
ZPli 


A  ),AX(4)  ,BX(4)  ,CX(4)  , 
bY{H),CY(4),CPYG(4), 
(A) ,CAC(4),CbC(4) ,CGC(4) 
)  ,CAXW(4)  ,CFXW('t)  ,CGXW(4 
(4)  ,CGS(4),BE1P(4) , 
U(4)  ,FRX'J1^)  tFRYU(4)  , 
,SI (4) ,F1FI(2 ),F1R1(2), 
) tCGHit) 
4) 

)  tZlP)  ,  (PHIK  1)  ,PH11  ), 


R3R(2) tNX 
&, tf4 )  ,XM 
PMT (6,6»4 

,RRMC('r)  , 

J( 2),F1DJ 

R( 1), AkbR 
0NE,PTW0t 
AUA,TAUO( 
,TCT{ 12), 
,DTLF,NTL 
TT2,NTT3, 
4) ,PP(2 ), 
SFE(2  ),RH 
RHCS(4  ),U 
N5,T0E,RP 
(12  ),DERR 

RR ( 1) ,DRP 
T(6),ntS 


FOR  DRIV 
RED  SPEED 
NPUT  TIME 
AX,FKD0,F 
CTSTRIO, 
ANS  (6)  ,GE 
GR43»VGR3 
1STI(5),P 

2,FKSKI0, 
D,FbRK,AP 
tDlSTCCO 
,TTEM,TTP 
VP, SLOPE, 
AEjEl ,tWT 
UPSlLFtPS 
ISKlDPtIS 


UGMU 
XPMT 
),CT 

;<RM( 
«),( 

F),  ! 

PZER 

4),T 

TT(  1 

F,BR 

NTTS 

TEAM 

OSMX 

GW(4 

ME 

(  12) 


,NXFRCP,XXlJGMG(fc  )  , 

I  6,6,4 ) , 

(4)  ,XMLJK(h  )  , 

4) ,C0MEN4 

FlWJi 1),F1WJF) 

ARBR(  2),AWbRR  ) 

0(2),GN(l6,2)  ,ZETAL, 

LF(!:.l  ),TTAU(51)  , 

01)  ,TPC( 101 ),TTR(101 

PM,ERPM,NRPM, 

,XINPTt(9) 

b(2),PC,RWDRIV,JDE\D 

(3),SLIPMX(3)  ,i.LIPP, 

)  ,AbSUGW(4) ,VECS, 


SKI)) 

TT, ITCHNG, IPATHT, I  DRIVE, 


ER    MODEL 

AND    DISTANCE 
S    FOR    SPEED    CHANGES 
KP0,FKS10,FKS20,FKSKC0, 
TSTR20,0MLGA0,TAUF,TIL, 
ARl ,GtAR2 ,GEAR3,&EAR4, 
I,VGR?1, 
SIFHO,X1MPOR(V), 

TESTE, TESTSl,TtSTS2, 

b,DSGLS, 
NMPH,UT ,UTMPH, 
SiT,PbISKD,ST,STSD2,QAY, 
SL0PER,PSIJ,X1NT,X,Y, 
,AREI(7), ARCAPF (7), FT, 
IM,APSI ,APSIM,TPD( 10) , 
MaIN,1GEAR,WEIGHT( 10), 


DRVC 
DRVC 
,DRVC 
)DRVC 
DRVC 
DRVC 
DRVC 
DKVC 
DRVC 
DRVC 
DRVC 
LRVC 
DRVC 
DRVC 
DKVC 
DRVC 

DRVC 
DR  VC 

)DRVC 
DRVC 
DRVC 

,  DRVC 
DRVC 
DRVC 
DKVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DkVC 


Ob  00 

or.  10 

0^20 
C530 
OS  40 
03  SO 
05  60 
0^70 

05  BO 
CS'iO 

06  00 
Go  10 
06^0 
06  30 
06  40 
06  bO 
06  6  0 
Gg70 
06fcG 

06  90 

07  do 
0710 
07<.0 
07  30 
07  40 
07  SO 
G7feU 
07  70 
07&G 

07  SO 
CbOO 
01'  10 
06  20 
Ofc30 

08  40 
06  50 
0fc6G 
Ob  70 
Ob  8  0 
0690 

09  00 
09  10 
09  20 
09  30 
09  40 
09  SO 
09  60 
09  70 
09  80 
09  90 
1000 
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ECU  I  VALENCE     (VGkU( 1) ,VGR 1?) , (V&RD{ 1),VGR4  3 ) ,  ( &EAR( 1 ) ,Gt ARl )  DRVCICIO 

C  DRVClOi^O 

C                        TRKIN    IS    JUST    LARGER    THAN    T    ON  FIRST    RK    STEP.     (HALF     INTERVAL)       DRVC103(' 

TRKIN    =    10    +    0.51«DTCnMP  DRVCIOAO 

TTPSIT    =    PSIO*isAD  ORVC1030 

CONMPH    =    3600./(12«*:^160,  )  DkVClOtO 

THfcSKD    =    0.0  DkVC 1070 

FbRK    =    0.0  DRVCIOEC 

FKD    =    FKDO  DRVCIOVO 

IF(OMGPS.EQ.O)     OMGPS    =    30.0*RA0  DRVCllOO 

PSIFFH    =^    PSIFIO  DRVClllO 

APB    =    A+B  DRVC1120 

FKP    =    (i..0*APB*(1.0+FKD*2.7bE5)  )/(  EN*DS*DS)                                                                DkVC1130 

C                           2.7eE5     IS    SUUARk     UF    30    MPH    IN  IN/SEC                                                                           DRVC1140 

DO    61    1=1, NEN  •                                               DRVClltO 

DI    =    FLOATd  )  DRVC1160 

61    WEIGHT(l)    =    XIMPORd  )/(DI*Dn  DKVC1170 

TMT    =    (T1L-TL)/1IL  DRVClifcC 

C                       TMT    IS    MULTIPIER    FOR    FIThKING    EOUATIN    IN    DRIVER  DRVCliSO 

FKSl    =    FKSIO  DRVL12  0G 

FKS2    =    FKS20  DRVC  12  10 

FKSKID    =    FKSKDO  DRVC1220 

TEST BO  DkVC12  30 

=    TSTSIO  DRVCUhO 

■-   TSTS20  DRVC1250 

■■    TSTRIO  DRVC1260 

■■    TSTR20  DRVC1270 

■■    1  DRVC12fa0 

■-    EMDT  DRVC1290 

TO    +    DELPTH  DRVC1300 

'E,     TPATH    AND    DELPTH    USED    TO    DETERMINE    DRIVER    SAMPLE    TIME       DRVC13iO 

IE    SPEED    MAINTENANCE    MODE    UNTIL    SECOND    CHANGE    TIME  DRVC1320 

DO    13    1  =  1,5  DRVC1330 

13    TCTEST(I)    =    TESTT(I)  DRVC1340 

ISMAIN    =    1  DRVC1350 

ITCHNG    =    0  DRVC  1360 

ITESTT    =    2  DRVC  1370 

DESS    =    DESSKl)  DRVC  1380 

DISTC    =    DISTKIJ  DRVC1390 

DIST    =    DISTC  DRVC1400 

GET    INITIAL    APD    FOR    EQUILIBRIUM  DRVC1410 

L    =    1  DRVC  14  20 

IF( JDEND.E0.2)     L=3  DRVC1430 

DO    10    1  =  1,4  DRVC  1440 

10    RPSKI)     =U0/H1(II  DRVC1450 

RPMOTR    =   PI015R*ARBR(JDENU)*(RPSI(L)+RPSI(L+1))  DRVC1460 

DO    70    1=1,3  DRVC1470 

IGEAR    =    I  DRVC 1460 

IF(RPMOTR*GEAR(I).LT.VGRU(I) )    GO    TO    71  DRVC1490 

70    CONTINUE  DRVC 1500 

IGEAR    =    4  DRVC1510 


TESTS  = 

TESTSl 

TESTS2 

TESTRl 

TESTR2 

IDRIVE 

DELPTH 

TPATH  = 

c 

IDRI 

c 

ASSUi 
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71 


11 


30 


24 


34 


37 


ITTR 
KPME 
DF  = 
DO  1 
DF  = 
TyD{ 
TQF 
DO  3 
iA  = 
TEST 
IF(  T 
IF(1 

coNr 

lA     = 

TUWO 

TQCT 
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TQWO 
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RETU 

END 


1 

D 
JD 

0 


ES 
RP 

IN 
N 
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0 
0 
T 


GLAR( 
KPMOT 
CDNE*U 
1=1,4 
F-PRMC 
LNL)  = 
TC'D{  JD 
I=2,NR 
-1 

AfcSi  R 
7.LT.0 
M  L  (I  A  ) 

ue 

=    TWbT 
•f  CT  (  I 
37 

=  (RPM 
-  TWPT 
=     ICK 

(IQE- 
T7TS*A 


IGEAR) 
R*TTTk 
0*AHS(UO )-CTWO*UO-CTHREt*SIGN(l. , Uu ) 

(I)«FR( I )/HI ( I) 
-DF*0.5*(HI(L)-»-Hl  (L+1  )  )/(  ARBR  (  JD  END  )*  12.0  ) 

END)/TTTR 

PM 

PME-TRPME(IA) ) 

.05)    GO    TO    2h 

•  LE.RPMF.AND.PPr-IF.LT  .TRPME(  I  )  )    GO    TO    34 


(IA) 
A) 

f-TRPMF(  1A))/(TRPME(IA  +  1)-TRPME(1A)) 
{1a)+RaT1D*( TwOT{ IA+1)-TW0T(IA)) 
14)     +RAT1(J*(  TCT(IA  +  1)-TCT  (IA)  ) 

TQCT)/(TUWOT-TWCT) 
PDMAX 


RN 


DRVC 
DKVC 
DRVC 
DRVC 
DRVC 
DRVC 
DkVC 
DkVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DRVC 
DkVC 
DRVC 
DRVC 
DkVC 
DRVC 
DRVC 
DRVC 
DRVC 


1^20 
1530 
1540 
15  50 
1560 
1570 
15t0 

15  90 
It  00 

16  10 
lb  20 
16  30 
1640 
16  50 
16  60 
16  70 

16  EC 
16«'0 
WCO 

17  10 
1720 
17  30 
17  40 
1750 
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DATE       01/14/76  TIME       1725>  UPDATE    RECORD 


SUBROUTINE    GCP(I)  OCR    00  10 

HV0SM-VD2    VERSION  GCP    0020 

REVISED    OCTObER    IV7^         CALSPAN    CORPORATION  GCP    00  30 

COMMON    /DIMV/XlP,X2P,X3P,X4P,YlP,Y2P,Y3P,Y4P,ZlP,Z2P»Z3PtZ4P,PHIl,GCP    00 AO 

1  PHI2,PHI3,PHI4,PSI1,PS12,PSI3,PSI4,CAYW(4 )»CBYW(4),        GCP    0050 

2  C&YW(4)  ,ZPGI(A)  »THGI(^),PH&I('+)  ,CPG(4  )  ,SPG  (4  )  tCTGCt  )  ,  GC  P    00  oO 

3  STG(4) ,CAGZ(^) ,CBGZ(4),CGGZ(4),D1(4),D2(4  ),D3(4) ,  GC P    00 70 

4  XLM1(4) ,XLM2(4) ,XLM3(4),AMTX(3,3),CMTX(3,4)»XGPP(4) ,    GCP    0060 

5  YGPP(4) ,ZGPP(4) ,DMATX(10,11) ,DELTA(4) ,CAR(4),CbR(4) ,    GCP    0090 

6  CGR( A)  f KR{4)  ,HI (4) ,FC(A),TI (^), AX(^),BX(4) ,CX(4) ,  GCP    0100 

7  CTXG(4) »UG(4),STXG(4) ,AY(^),eY(4),CY{4),CPYG(4)»  GCP    0110 

8  SPYG(4),VG(4),PSIIP(4),PHICI(4),CAC(4),CBC(4) ,CGC(4),&CP    0120 

9  FCXU(4) ,FCYUlt),FCZU(4),FS(4),CAXW{4) ,CBXW(4) ,CGXW(4)GCP  0130 
COMMON    /DIMV/AS(4) ,BS(4) ,CS14),CAS(4) ,CBS(4) ,CGSl4),bETP(A),  GCP    0140 

1  BETbR(4) ,FSXU(4) ,FSYU(4),FSZU(4) ,PRXU(A),FRYUI4) ,  GCP    0150 

2  I^RZU(4)  ,FXU(4),FYU{4)  ,FZU(4)  ,SI  ('t»,FlFI(2),FlRU2),       GCP    0160 

3  F2FI(2) ,F2RI (2),CAH(4),CBH(4) ,CGH(h)  GCP  0170 
DIMENSION  XP(4)»YP(4),ZP{4),PHII(4),PSII(4)  GCP  0180 
EQUIVALENCE     (XP (  1 )  ,X IP  ),  ( YP ( 1 ) , YIP ) , ( ZP ( 1 ) » ZIP ) » ( PHII ( 1 ) ,PHI 1 ) ,  GCP    0190 

1  (PSIK  1)  ,PSI  1)  GCP    0200 

COMMON    /C0MP/SUMM,THETN,PHIN,PSIN,PI,RAD,GAM1,GAM2 ,GAM3 , GAM4, GAM5 , GC P    0210 

1  GAM6,GAM7,GAM6,GAM9,THtTT,PHIT,PSlT,ZR0,TR02,  GCP    02  20 

2  TF02,TIZ,RH02,RHOMUR,AMUF,BMUR.ZPR,TM4,RHMR2,A02APB,    GCP    02  30 

3  B02APB, KrTF,TS02»RRTS ♦BR0MUR,XMUF02tAXMF02fXMTF04,  GCP    0240 

4  XIZR,RTR,RHMR2I,XIXP,XIZP»XIXZPtXIYZP,DlPD2tDiMD2»  GCP    02  50 

5  ZRD3,ZRu3Rt ZFD3R,ZFD12,TIZ2,TG6l,0DlP2»DDlM2f RPR.PHRPGCP    0260 

6  ,TANTP,SPHlP,CPHTP,SECTP,SFXS»SFYStSFZS,SNPS,SNTS,  GCP    02  70 

7  SNPSS,TPRtCAY,CBY,CGY,CAX,CBX,CGX,SFYUtSFXUtSFYUF,  GCP    0^60 

8  SFYUR,SFZUtCOSTh,SINTH»COSPS»SINPS,COSPH,SINPH,ANGl,    GCP    0290 

9  ANG2tCPHI,SPHl,CPSI,SPSI,Pl»P7,P3,P4,P5»P6,TX,TY,TZ  GCP  0300 
COMMON    /C0MP/TRH,DISTX,DISTY»DISTD,DISTS,D21,ZfcTA4,ZETA4U,ZtTA3f       GCP    03  10 

1  ZeTA3D,SFZl  ,SNPU,SNTU,HCGH1,HCGH2,HCGH3,HCGH4,TERM1,    GCP    0320 

2  TERM2tSNPSUtSNPRtHCBHl,HCbH2,HCBH3»HCbHttHCAHltHCAH2,GCP    0330 

3  HCAH3,HCAH4f UQtWPtURf QRtVP,PK,P2f02tR2,VR,WQ,P0tPHIR2GCP    0340 

4  ,PHlRD2,RPHRD,GCTH,GSTH,GCTSP,GCTCP,XXXtYYY,lX,IY,XXl,GCP    03  50 

5  XX2,YYl,YY2,THGl,TH&2tPHGl,PHG2,ZZl,ZZ2,LLL  GCP  0360 
DIMENSION  HCAH(4),HCBH(4)  ,HCGH(4)  GCP  0370 
EQUIVALENCE  (HCAH( 1 ) ,HCAH1 ) , ( HCbH( 1 ) ,HCBHl ) , {HCGH( 1 ) »HCGH1 )  GCP  03fc0 
COMMON    /TIRIN/    AKT  (4  )  ,  SI  GT(  A)  ,XLAMT(  A  )  ,  AO  (^)  ,  Al  {  4)  ♦  A2  (  4)  ,  A3  (4  )  »  GCP    0390 

1  A4(4) ,0MEGT(4),AMU(4),RW(4),FJP(35,A) ,A234(4),  GCP    0400 

2  A12(4),0M12A2(^) ♦0MT2M1(^) ,A23(A),ITIR(4)  GCP    0^10 
.       XLMl(I)    =    XP(I)*CAYW(I)+YP(I )*CBYW(1 )+ZP(l)*CGYW( 1)                                         GCP    0420 

XLM2(I)    =    XPd )*CAGZ (I )*YP(1)«CBGZ(I)+ZPGI(I)«CGGZ(I)  GCP    0430 

XLM3(I)     =   Did )*XP(I )+D2(I)*YP(I )+D3(I)*ZP(I)  GCP    0440 

>    CMTXdtl)    =    CAYW(I)  GCP    0450 

CMTX(1,2)    =    CBYW(I)  GCP    0460 

CMTX(1,3)    =    CGYW(I)  GCP    0470 

CMTXd,4)    =    XLMl(I)  GCP    0480 

CMTX(2,1)    =    CAGZ(I)  GCP    0490 
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UPDATE    RECORD 


SUBROUTINE     IDOUl 
C  HVCSM-VD2    VERSION 

C  REVISED    OCTObtR    197!?      CALSPAN    CORPORATION 

COMMON /HEAD/    VHLD{20) , CHED ( 20 ) , GHE D (20) t SHED ( 20 ) ,THE D ( 20 ) , 
1  NPA0E(20) 

COMMnN/lNPT/PHlO,THtTAO,PSIO,PO,OOf RO,XCOF,YCOP,ZCOP,UO,VO,WO, 

1  A,b,DEL10,DEL.20,D£L30,PHIRO,DEL100,DEL20DtDEL30D, 

2  PHIR0D,TE,TR  » ZE ,ZR t RHO ♦ AKRS t XMUR * 

3  XMS,XMUF,XIX tXlYfXTZtXiXZtCF, AKF.XLAMF ,OMEGF,CFPtEPS 

4  RF,CRf AKK, XLAMR,OMtGR,CRP»EPSR fRR tTS,THMAX,DTCOMP,TO 

5  Tl,DTCMPl,DTPRNTTMODEf  EBAR.EM , AAA ,HMAX ,HMI Nt bET ,G , 

6  HED(36),DADE(3),XIR,X1,Y1,Z1,X2,Y2,Z2,PHIC(50),DELB, 

7  DELE,DDEL»NDtL,PSIE (50) ,T OF ( 50 ) ♦ TOR ( 50 ) .TB , T E, T I  NCR t 

8  NZTAb,NZ5,XBDRY(4,5) »PSfaDRY(4,5) ,YBDRY(2»5 ) ,NBX(5) » 

9  NbY(5) ,NTBLl,NTbL2,NTBL3,ZGP( 21,21,5) 
C0MM0N/1NPT/XB(5),XE(51,XINCR(5) ,NX (5 ) , YB ( 5 ) , YE ( 5 > ,YINCR ( 5 ) ,NY ( 5 

1  XXZGP5(21)  ,YYZGP5(21) , AMUG{ 5 ) ,PSBDR0( 4,5  )  ,UVWM IN ,PORMI 

COMMON/lNPTl/YClP,YC2P,ZC2PtUELTC,PHICl,PHIC2,AMUC,XIPS, 

1  CPSP,OMGPS»AKPS,EPSPS,XPS,RWHJB,RWHJEtDRWHJ,INDCRB, 

2  PSIFIOtPSlFQO 
DIMENSION    YCIP(2) 
EQUIVALENCE     (YC IP ( 1 )  ,YC1 P  ) 

COMMON    /C0MP/SUMM,THETN,PHIN,PSIN,P1,RAU,6AM1,GAM2 ,&AM3 ,GAM4,GAM 

1  &AM6,GAM7,GAM8,GAM9,THtTT,PHIT,PSIT,ZR0,TR02, 

2  TFa2,TIZ,RH02,RHDMUR,AMUF,BMUR,ZPR,TM4,RHMR2,A02APB 

3  B02APB,RFTF,TS02,RRTS,bR0MUR,XMUFG2,AXMF0  2,XMTFD4, 

4  XIZR,RTR,RHMR2I,XIXP,XIZP,X1XZP,X1YZP,D1PD2,DIMD2, 

5  ZRD3,ZRD3R,ZFD3R,ZFD12,TIZ2,T&61,DD1P2,DD1M2,RPR,PH 

6  ,TANTP,SPHTP,CPHTP,SECTP,SFXS,SFYS,SFZS,SNPS,SNTS, 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYU,SFXU,SFYUF, 

8  SFYUR,SFZU,C0STH,SINTH,CaSPS,SlNPS,COSPH,SINPH,ANGl 

9  ANG2,CPHI,SPHI,CPSI,SPSI,PI,P7,P3,P4,P5,P6,TX,TY,TZ 
COMMON    /C0MP/TRH,DISTX,DISTY,DISTD,DISTS,D21,ZETA4,ZETA4D,ZETA3, 

1  ZETA3D,SFZ1 ,SNPU,SNTU,HCGH1,HCGH2,HCGH3,HCGH^,TERM1 

2  TERM2,SNPSU,SNPR,HCBHl,HCbH2,HCBH3,HCBH4,HCAHl,HCAH 

3  HCAH3,HCAH4,UQ,WP,UR,QR,VP,PR,P2,Q2,R2,VR,WQ,PU,PHI 

4  ,PHIRD2,RPHRD,GCTH,GSTH,&CTSP,GCTCP,XXX,YYY,IX,IY,XX 

5  XX2,YY1,YY2,THG1,THG2,PHG1,PHG2,ZZ1,ZZ2,LLL 
DIMENSION    HCAH(4),HCBH(4),HCGH(4) 

EQUIVALENCE     (HtAH(l) ,HCAH1), (HCBH( 1 ),HCBH1), ( HCGH( 1 ) ,HCGH1) 
COMMON/ iNPT3/    AKFC,AKFC . , OMEGFC , AKFE, AKFEP ,OMEGFE, AKRC , AKRCP , 

1  0MEGRC,AKRE,AKREP,0MEGRE,END3 

COMMON/ APT ABL/    APFR ( 21 ,2 ) , I APFR ( 2) , DAPFb, DAPFE , DDAPF,N APF , 

1  DAPRB,DAPRE,DDAPR,NAPR 

DIMENSION    APF(21),APR(21  ) 

EQUIVALENCE     (APFR ( 1 , 1 ) ,APF( 1 ) ) , ( APFR( 1 ,2 ) , APR ( 1 ) ) 
COMMON    /TIRIN/    AKT (4 ) , SIGT ( 4) ,XLAMT (4 ) , AO (4 ) , Al (4) , A2 ( 4 ) , A3(4) , 

1  A4(4) ,0MEGT(4),AMU(4),RW(4) ,FJP( 35, 4) , A234(  4) , 

2  A12(4),0MT2A2(^) ,0MT2M1(4) , A23 (4) ,ITIR( 4 ) 


IDOTOOIO 

ID0T00  20 

IDGT003G 

I  COT  00  40 

ID0T0050 

I0  0T00  60 

IDCT00  70 

IL'OTOObO 

F. 

»IDOT00  90 

, 

IDOTOIOO 

IDOTOIIO 

ID0T0120 

ID  OT  01  30 

ID0T0i40 

IDOTOi50 

) 

,  1D0T0160 

N 

ID07  0170 

IDCT0180 

IDGT0190 

I  DOT  02 00 

ID0T0210 

IDOT02  20 

5 

,ID0T0220 

ID0T02A0 

» 

IDOT02  50 

I00T02  60 

ID0T02  70 

RP1D0T02B0 

ID0T02  90 

ID0T0300 

, 

I  DOT  03 10 

IDCT0320 

ID0T03  30 

♦ 

I  DOT  03  40 

2 

,ID0T0350 

R2ID0T0360 

1. 

, I DOT  03 70 

ID0T03  80 

ID  OT  03  90 

IDOTOIOO 

ID0T0410 

ID0T0420 

1D0T0430 

ID0T04  40 

ID0T04  50 

I  DOT 04 60 

ID  OT  04  70 

ID0T0480 

ID0T0490 
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DATE       Ul/1^/76  TIME       1725  UPDATE    RECCRD 

COMMON    /INSUS/    X  I  F , KHGF , T SF , PHI FOt PHI FOD , DELAO » DtL40L, 1 SUS ,  1D0T0500 

1  AKDS  ,  AK  DS  1  ,  AKD  S2  ,  AKDS3  ,  PHI  RC  (  50  )  ,  DTHF  (  50  )  ,  DTHR  (  50  )  ,  IDOT  05  10 

2  MCaMF  ,NCAMR,NDTHF tNDTHR  ID0T0520 
C0Mf'10N/DRIVTT/TPATH,DtLPTH,TCTEST{6),ITESTT,ITCHNG,lPATHT,lDRIVE,     ID  OT  05  30 

1                                          IDRVEi^tlBUG  1DLT05AG 

C                     IPATHT    -    STOP    FOR    DRIVER    MODEL  IDCTu550 

C                      IDRIVE    -    NOT    ZERO,     SAMPLT    TIME    FOR    DRIVFR    MODEL  IL0T0560 

C                     nCHNG   -    NOT     ZERO,    CHANCE    DESIRED    SPEED    AND    lilSTANCE  ID0T05  7G 

C                      ITESTT,TCT tST(6)     -    INDEX    AND     INPUT    TIMES    FOR    SPEFD    CHANGES  ID0T05eC 

COMMUN    /iNPT4/     FIDJ(  2),FIWJ(2  ),  ARbR(2)  ,NXUGMU,NXFRCP,XXUGMU(6),  ■lD0T05<yG 

A                                              XXFRCP(6)  ,XMUMAT((S,6,A)  tXMXPMT  (6,f,4)»  I0LT06OO 

b                                            XKXSMT(6,6»A),SLIPMT(6t6,^) »CT(4) ,XMUM(A) ,  ID0T0610 

C                                            XMUXP  (A  ),XMUXS(A)  fRRMCI^)  ,RRMK)  ,C0MtN4  IDOTOt^U 

EQUIVALENCE     ( F ID J ( I) , F ID JF  )  , ( FI D J( 2  )  t F J D JR ) , ( F 1 W J{ 1 ) , F 1 WJF )  IjOT0630 

EQUIVALENCE     (FIWJ(2)  tFlWJP)  ,  (  ARbR{  DtAi-BRF)  ,  (  ARBR.(2)tARFRR)  IDOTOt-^G 

CGMMUN/NErtCRB/    YC3P , YG4P , YC5P tYC6P , YCLPt  lD0T06bG 

1  ZC5P,ZC4P,ZG5P,ZC6P,ZCLP,  lDCTG6fcO 

2  PHIC3,PHlGH,PHiC5,PHIC6,NCRESL,  TD0TG670 

3  TANPC3,TANPCt,TANPC5tTANPC6,TANPCL,  IDOTObPG 
-+  PHlC3R,PHlC4R,PHlC5RtPHIC6K,PHlCLRf  ID0TG6<V0 
5                                          YCMP(6) ,ZCMP(o),PHlCM(6)  IDOT070G 

C  ID0T07  1G 

DATA     ZFHO/0.0/  ICOT07  2G 

DIMiNSlUN    TTARGI5G)     ,NTARC(10)  IDCT0730 

DATA    TTARG/5u*0.0/    ,     N  TA  RC/ lOO/  ID0T074C 

DIMENSION    TXARG(21 ),     TYA^Gi^l)  ID0T075G 

'         LATA    TXARG/21*0,0/tTYARG/ti*0.0/  ID0TG76G 

DATA    C0Nl/4HC0NS/»     V  A;^I/AhVAR  1/  ID0T07/0 

DIMENSION    UlNCh(2)  ,DEG(2)  »DIPS(2),DPS(2) ,PSZPT(3),PS2I (3),  IDOTGYfcC 

1  DIPS2(3) ,PIHR(3)»RAPRA(2 ) ,RA0S(2  ),RPI (2)  »RPI2(3)  t  I OCT 07 90 

2  '<PI3(3),PP1  (2)  tPPI3(2)  ♦PSPI(3),RAPS(2)  IDnTGlGO 
DATA  DINCH/AH1NCH,^HES  /♦  DEG/tHD  EGR  ,m-HE  ES  /  IDOTOblG 
DATA  LPS/4HDEG/,HmSEC  /t  DI PS/ AH  1 N/S t AHEG  /  ID070S2C 
DATA  RAPRA/4HRAD/»^riRAD  /»  RADS/ AHRAD I , An ANS  /  IDOT0630 
DATA  RPI/AHRAJ/,AHIN  /,  PP 1/4HLB/ I , 4HN  /  IDOTOE^O 
DATA  PPI3/AHL6/lf AHN**3/,  RAPS/tHRAD/ ,^HSEC  /  ID0T08  50 
DATA  PStPl/AHLF-Sf  AHEC**  ,^H2/1N/,  PS2  I/AHLB-S  ♦  AHEC**,  AH2-I  N/  IDCTO&t-O 
DATA  DiPS2/AHIN/S,AHEC**, 4H2  /,  P IP R/AHLB-I t AHN/RA , A HD  /  ID0T0e70 
DATA  RP12/AHRAD/,AHIN**  ,AH2  /t  R  PI  3/ AHRAD/ ♦  AHI\*« ,  AH3  /  IDLTOiiBG 
DATA  PSPI/AHLb-StAHEC/I .AHN  /  ID0T0P90 
DATA  SEC/AHSEC  /  IDCTCVOO 
DIMtNSION  PD1(2)  IDOTGVlO 
DATA  PDI/AHLB-I  .AHN  /, PD/AHLB  /  1D0T0920 
DT^ENSION  TD1{2),TD2{2)  ID0TG93C 
uATA  UD2/AHDEL^/,UPF/4HPhlF/,UDA/AHDELA/,UPR/4HPhIR/  10 OT 09  AC 
DATA  UDE/AHO  =/,UVE/^HOD  =/  ID0T09:>0 
DIMENSION  TNU2(2 )fTNU3(3  )  ID0T0960 
DATA  TNU2/^HN0T  ,AHUSED/t  TNU3/AHN0T  ,AHUSED,AH  /  ID07097G 
DIMENSION    TD3(2),T3D1(3) »T?D2(3)  IDOTOveO 

C  ID  OT  09  90 

11    WR1TE(6,1000)     (HEDd  ),I=1»16)  tDADEd)  ,DADE(2)  f  IDOTIOOO 
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DATE        Ol/lA/76  TIME       1725  UPDATE    RECORD 

1  (VHLDd  ),  1=^1»10),  (THED(I),I  =  1,  10),  (CHtD(  I)  ,1=1»10  )  ,  IDOTIOIO 

2  {GHED(I)»  1  =  1, 10), (SMEDd)  ,1=^1,10)  ID0110i:0 
1000    FGRMAT< lhl,9X, 18Ah,30X,2A^    /    5X,3(10A^)     /    5X,2(10A4)    /     )  ID0T1030 

WRITE  (6,  100  1)     TO,SEC,T1,SLC,-01COMP,SEC,MODE,DTPRNT,SEC  I  DOT  10  40 

100  1     FORMAT  (  1H0,24X,39HP    ROCRA.M          CONTROL          LATA  /                  1001  10  50 

1    10X,33HSTART    TIME                                                       TO               =,F 10 ,4,2 X, A4  /                 IDGT1060 

J.    10X,3ohEN.-    TIME                                                                Tl                =,  FIO  .4, 2  X,  A4  /                  ID0T1G7C 

3  10X,38HINTEGRATI0N  INCREMENT  DTCCMP  = , F 10  .4,2 X , A4  /  IDOTlOtO 
H  62X,30H(0=VARIAbLE  SI EP  ADAML-MOULTON  /  ID0T1090 
b    10X,3faHINTEGRATI0N    MODE                                         MODE          =,15,  IDOTllOO 

6  8X,16H-)1=    RUNGA-KUTTA             /  IDOTlllO 

7  62X,28H(2=    FIXED    STEP    ADAMS-MOULT  ON          /  ID0T1120 

8  10X,3fahPRlNT  INTERVAL  DTPRNT  = , F 10 .4,2 X , A4  )  ID0T1130 
WRITE(6,1002)     ISUS,INDCRB,DELTC,SEC  IDOTUhO 

1002  FORMATdH    ,  ID0T1150 

1  61X,50H(0=     INDEPENDENT    FRONT     SUSPENSION,     SOLID    REAR    AXLE  /               IDOTiifcO 

2  10X,3aHSUSPENSI0N    OPTION                                     ISUS          =,15,  10011170 

3  8X,42H-)1=    INDEPENDENT    FRONT     AND    REAR    SUSPENSION         /  ID0T1160 

4  62X,42H(2=    SOLID    FRONT    AND    REAR    AXLES                                            /  ID0T1190 

5  62X,42H(0=    NO    CURB,     NO    STEER    DEGREE    OF    FREEDOM                  /  ID0T1200 

6  10X,38hCURB/STEER    OPTION                                     INDCRB    ^,15,  IDDT1210 

7  6X,10H-)1=  CURB  /  ID0T1220 
b    62X,42H(-1=STEER    DEGREE    OF    FREEDOM,    NO    CURB                          /  ID0T1230 

9  10X,3dHCURB  INTEGRATION  INC^  .  DELTC  = , F 10. 5 ,2 X , A4  )  ID0T1240 
WRITE (6,  1003)    C0MEN4  IDCT12  50 

1003  FORMATdH    ,  IDCT12dO 
A    9X,3?,-iWHEEL    SPIN    EQUATION    FACTOR            COMEN*t    =,F10.5          )  ID0T1270 

II-;  MODE  .l,0„0)    WRnE(6vl006)     EBAR  ,EM  ,  AAA  ,  HMAX  ,  HMIN,  BET  ID0T1280 

1003  F0RMAT(1H0,9X,34HARGUMENTS    FUR    MODE    0     INTEGRATION    :       /  ID0T1290 
A                     eX,6(2X,F12.3 )        )  IDOT1300 

WRITE(6,1004)    XC0P,DINCH ,UO,DIPS    , YCOP,DINCH , V0,DI PS,  ID0T1310 

A                                       ZCOP,DINCH,WO,DTPS  ID0T1320 

1004  FORMAK  1H0,//,52X,38HI    NITIAL          CONDITIONS  //               IDGT1330 

1  40X,    8HXC0P          =,F8.2,3X,2A4,39X,6HU0          = , F6 .2 , 3X, 2A4  /                 ID0T1340 

2  10X,3aHSPRUNG    MASS    C.G.     POSITION              YCOP         = ,F8. 2,3X ,2 A4 ♦  ID0T1350 

3  7X,3&HSPRUNG    MASS    LINEAR    VELOCITY               VO          =, F8. 2,3X ,2A4  /               ID0T1360 

4  40X,  8HZC0P  =,FS.2,3X,2A4,39X,6HW0  = , F8 .2 ,3X, 2A4  )  ID0T1370 
WRITE{6,1005)    PHIO,DEG,PO,DPS,THETAO,DEG,QO,DPS,  IDOTISEO 

1                                       PSIO,DEG,RO,DPS  ID0T1390 

1005  FORMAT <1H    ,  ID0T1400 

1  39X,    8HPH10         =,F8.2,3X,2A4,39X,6HP0         = ,F8 .2 ,3X, 2A4  /                 ID0T1410 

2  10X,38HSPRUN&    MASS    ORIENTATION                    THETAO    =,F8. 2 ,3X ,2 A4  ,                  ID0T1420 

3  7X,38hSPRUN&    MASS    ANGULAR    VELOCITY            QO          = , F8. 2 ,3X ,2 A4  /                 ID0T1430 

4  40X,  8hPSI0  =  F8.2,3X ,2A4,39X,6HR0  = , F8 .2,3X, 2A4  )  ID0T1440 
IF(ISUS.E0.2)  GO  TO  101  ID0T1450 
UMPl  =  UD2  I  DOT  1460 
TDKl)  =DINCH(1)  ID0T1470 
T0I(2)  -  DINCH(2)  ID0T1480 
TD2(l)  =DIPS(1»  ID0T1490 
TD2(2)  =  DIPS(2)  IDDT1500 
UMP    =    DEL20  ID0T15  10 
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DATE   01/14/76 


TIME       1 72  i> 


UPDATfc    RECORD 


101 


102 


bO 
UMP 
Tl,'1 
TDl 

TD2 
ID? 
UMP 
UMV 
WRI 
I 
1006    FOR 

1  10 

2  7 

UMP 
TDl 
TDl 
TD2 
TD2 
UN'P 
UMV 

10  3  UMP 
TDl 
TDl 
TD2 
TD2 
UMP 
DMV 

104    WR  I 
1 
100  7    hOR 

1  40 

2  10 

3  / 
WRI 

1 
2 

WRI 
1 
2 
2001     FOrt 


TO 
1 

(1 
(  2 
(  1 
(2 


TE 

MA 

X, 

X, 
IS 

X 

( 1 

(2 
(1 

<2 


TO 

1 

(  1 

(2 

(1 

(2 


DLL200 

102 

UPF 

=    DEG 

=    DE& 

=    DPS 

=    DPS 

PHIFU 

PHlFOD 
(6,1006 


(1) 
(2) 
(1) 
(2) 


i> 

10 

5 

10 

5 

TDl 

TDl 


Tl 

X, 
X, 
X, 
TE 


TE 


MA 
X, 
X, 
X, 
X, 
X, 
X, 

(1 

(2 


T(1H0,3 

50hiUNSP 
3  0^'UNSP 
US.EQ.l 
=    UPR 

-  DEG 

-  DEG 
=  DPS 
=    DPS 

PHIRO 
PhlROD 
10*t 
DD4 
=    DIN 
=    DIN 
=    DIP 
=    DIP 
DtL40 
DEL4CD 
(6,1007 


)    DtLlO, 

UNV,TD 

S'X,ehDEL 

RUNG     MAS 

RUNC    MAS 
)     bC    7  0 

(1  ) 
(2) 
(1) 
(2) 


Ch(  1) 
CH(2) 
S(  1) 
S(2) 


DlNCh,DEL10D,DlPS,UMPl,UDb,UMP,TDl ,UMP1,UVE, 

2 

10       -,F8.2,3X,2A4,37X, 

S    POSITIONS  ,2Ah 

o    VELDCnitS  ,2A4 

105 


&HDEL10D     =,Fe.2,3X,ZA4/ 

»Fb .2  t  3X , 2A4 , 

tFE ,2,3X ,2A4  ) 


T(lM  ,3 
t  A  H  ,  F  8  , 
36HSTEE 
38hSTEE 
(o,  1000 
(VHtD( I 
(  bh  ED  (  I 
(6,2001 


T(  IHO, 
3  7HSP«U 
32HFRCJN 
37HFR0N 
32hRbAR 
37HREAR 
32HFRON 
)  =  TNU 
)     =    TNU 


)    DLL30, 

UMV,TD 

9X,dHDEL 

-i,3X,2A4 

R    ANGLE 

R    VELCCl 

)     (HCDd 

), 1=1,10 

)tl  =  l,  10 

)    XMS,PS 

XMUF,P 

XMUR,P 

NG  MASS 
T  WHEEL 
T  UNSP^U 
WHEEL  X 
UNSPRUN 
T  WHEEL 
2(  1) 
2(2) 


DINCH,DLL30D,0IPS,UMP1 
^,PSIF10,DEG,PS1FD0,DP 
30  -,F3.2,3X,2A4,37X, 
,37X,2A4,FS.2,3X,2A4 

PSIF 
lY  PSIF 

),I=l,ie) ,DADl( 1) ,DADE 
),  (THtDd  ),  1=1,10),  (CH 
), (SHED(! ) ,1=1,10) 
^Pl,  A,D1NCH, 

S2PI ,  e,DINCH, 

S2PI,  ZFjDINCh 


,UDfc,UMP,Tni ,UMP1,UVF, 

bHDtL30D     =,Ft,2,3X,2A4/ 

/ 

TO    =,F8,2,3X,2A4, 

DO     =,F8.2,3X,2A4  ) 

(2). 

FD(1  ),1  =  1,10  ), 


X    LOCATIUN 
NG    MASS 

LOCATION 
G    MASS 
Z    LOCATION 


A 
B 
ZF 


XMS 

=  t 
XMUF 

=  ♦ 
XMUR 


=,F10.3,1X,3A4, 
f 10.3,1X,2A4 

=,F10.3,1X,3A4, 
F10.3,1X,2A4 

=,F10.3,1X,3A4, 
F10.3,1X,2A4 


ID0TI!J20 
IDOTlijJO 
lD0Tlb40 
IDOTISSC 
IDCT  ilifO 
IDCTli>7G 
IDCT  \t  80 
IDOTIL'^G 
I  DOT  16  GO 
IDOT  1610 
I  DOT  16^0 
IDOT 1630 
IDOT 1660 
IDCT io SO 
IDLT lo60 
IDOT  1670 
IDCT  I6i'0 
TDCT16<'0 
IDOT  17-CO 
IDOT  17  10 
iD0T17«iG 
IDOT 1720 
IDCT 17  40 
IDOT 17  30 
IDOT 17  60 
IDOT  17  70 
I  Li  01  17  bO 
IDOT  1790 
IDOT IB  00 
iDOTlelO 
IDOT  18  2  0 
IDOT  It  30 
IDOT  lti4C 
IDOT  18  LO 
lDCTlf^60 
IDOT  16  70 
IDOT  IE  EG 
IDOT  16  90 
IDCT 1900 
IDOT  19  10 
ID0T1920 
IDCT1930 
IDOT  19  40 
ID0T19S0 
IDCT  19  60 
IDOT  19  70 
IDOT 19  80 
I  DO!  19  90 
IDOT 20  00 
IDCT  20  10 
IDOT  20  20 
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DATE       01/14/76            TIME       1725  UPDATE    RECORD 

IF( ISUS.EQ.2)    GO    TO    201  ID0T2030 

GO    TO    202  ID0T20A0 

201  TDKl)  =  DINCH(l)  ID0T2030 
T01(2)     =    DINCH(2)  I1jOT2060 

202  CONTINUE  I0OT2O7O 
WRITE(6,2002}    XIX,    P  i,2 1 1  ZR       tOlNCH,                                                                        1D0T2O80 

1  XIY,    PS2I,  TF       ,D1NCH,                                                                            10  0120  90 

2  XIZ,    PS2It  TR       .DINCH,                                                                        ID0T2100 

3  XIXZ,PS2If  RHOF.TDl                                                                                   1D0T2110 

2002  FORMAT (IH    ,  I00T2120 

1  9X,37HX   MOMENT    OF    INERTIA  XIX          =,F 10.3 , IX , 3A4     ,                  ID0T2130 

2  5X,32HREAR    WHEEL    Z    LOCATION  ZR          =,                F10.3,1X,2A4    /                   ID0T21A0 

3  10X,37HY    MOMENT    OF    INERTIA  XIY          = ,F 10. 3 , IX , 3 A4    »                  IDOT2150 

4  5X,32HRONT    WHEEL    TRACK  TF          =,               F10.3»1X,2A4    /                  1DCT2160 

5  10X,37HZ    MOMENT    OF    INERTIA  XIZ          = ,  F10.3 , IX ,3A4    ,                  ID0T2170 

6  5X,32HREAR    WHEEL    TRACK  TR         =,               Fi0.3,lX,2A4    /                  ID0T2180 

7  10X,37HXZ    PRODUCT    OF     INERTIA  XIXZ       = ,  F10.3, IX »3A4     ,                  ID0T2i90 

8  5X,32HFRONT  ROLL  AXIS  RhOF  =,  F1C.3»1X»2AA  )  IDOT2200 
DO  203  K=l,3  1DCT22  10 
T3D1{K)     =    TNU3(K)  ID0T2220 

203  T3D2(K)  =  TNU3(K)  IUOT2230 
DO  204  K::^l,2  ID0T2240 
TDIU)  =  TNU2(K)  ID0T2250 
TD2(K)     =    TNU2(K)  IDOT2260 

204  TD3(K)  =  TNU2(K)  ID0T2270 
IF( ISUS.EQ.l)  GO  TO  206  10072260 
DO  205  K=l,2  ID0T2290 
T3D2(K)  =  PS2I(K)  ID012300 
TDKK)    =   DINCH(K>  ID0T2310 

205  TD3(K)  =  DINCHIK)  1D0T2320 
T3D2(3)    =PS2I(3)  IDOT2330 

206  IF( ISUS.NE.2)  GO  TO  208  I00T2340 
DO  207  K=l,2  ID0T2350 
T3D1(K)    =    PS2I(K)  ID0T2360 

207  TD2(K)  =  DINCH(K)  IDOT 23  70 
T3D1(3)    =    PS2I(3)  ID0T2380 

208  WRITE(6,2003)    XIF,    T3D1,     RHO,    TDl,  ID0T2390 

1  XIR,    T3D2f     TSF,    TD2t  ID0T2400 

2  G         ,DIPS2,      TStTD3  ID0T24i0 

2003  FORMATdH    ,  IDOT  2420 

1  9X,37HFR0NT    AXLE    MOMENT    OF    INERTIA      XIF          =,F10,3 , IX ,3 A4    ,  ID0T2430 

2  5X,32hREAR    ROLL    AXIS  RHO       =,               F10.3,1X,2A4    /                 ID0T2440 

3  10Xf37hREAR    AXLE    MOMENT    OF  INERTIA         XIR          = ,F 10.3 , IX , 3A4    t                  ID0T2450 

4  5X,32hFR0NT    SPRING    TRACK  TSF       =,               F10.3,1X,2A4    /                 ID0T2460 

5  10X,37HGRAVITY  G               = ,F 10,3 , IX ,3A4    t                  ID0T2^70 

6  5X,32HREAR  SPRING  TRACK  TS  =,  F10.3,1X,2A4  )  ID0T24eC 
DO  209  K=l,3  IDOT 2490 
T3D1(K)  =  TNU3(K)  ID0T2500 
T3D2(K)  =  TNU3(K)  ID0T2510 
IF(K.EU.3)  GO  TO  209  ID0T2520 
TDKK)    =   TNU2(K)  ID0T2530 
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TD2(K)  =  TNU2(K) 

TD3(K)  =  TNU2(K) 

209  CONTINUt 

IF{ ISUS.EQ.l)  GO  TO  211 

TDK  1)  =  RAPRA(l) 

TD1(2)  =  RAPRA(2) 

GO  10  213 

211  DO  212  K=l,3 

T3D1(K  )  =  RPli(K) 

T302(K  )  =  RPI3(K) 

ie(K.FQ.3)  GO  TO  212 

TD2(K)  =  RADS(K) 

TD3IK)  =  RPI  (K) 

212  CONTINUE 

213  WRlTtt 6,^004)  XI, 

DINCH, 

b               Yl, 

DINCH, 

Z                                       Zl, 

DINCH, 

3           xr. 

DINCH, 

4                Y^., 

DINCH, 

5               Z2, 

DINCH, 

DATE       01/14/76  TIME       172b  UPDATE    RtCORD 

1D0T2540 
IDOI  25  SO 
IDOT25  60 
ID  OT  25  70 
IDCT2i)80 
ID0T25  90 
lDaT2600 
ID0T26  1G 
ID0T2620 
IuOT2630 
ID0126A0 
IDGT26  50 
ID OT  26 to 
I DOT  26 70 
RF,  PIPR,  ID0T26fc0 

RR,  PIPR,  ID0T2690 

AKKS,  TDl,  ID0T27C0 

AKDS,  TD2,  ID0T2710 

AKDSi,  TD3,  ID0T2720 

AKDS2,  T3D1,  1D0T2730 

6  AKDS3,  T3D2  ID0T27  40 

200t    FOHVAT ( 1H0,39X,7HX1  =     ,F 10 ,2 , IX , 2A4       ,  10012/50 

1  9X,32hFRUNT    AUX    ROLL    STIFFNESS       RF  = , F 10 . 2  ,  IX, 3AA    /  lD0T2?t0 

2  10X,37nACCELERDMETF  R     1    POSITION  Yl  =  ,  F  10.  2  ,  IX  ,  2  A4     ,  1l.0T2770 

3  9X,32HKEAR    AUX    ROLL    STIFFNESS  RR  =,  Fi0.2,lX,3A4    /  IDOT27tO 

4  40X,7HZ1  =,F10,<i:  ,iX,2A4  ,  I0012790 
b       9X,32HREAR    RULL-STLER    CCEF.                AKKS     =,                F10.4,1X,2A4    /  ID0T2b00 

6  40X,7HX2  =,F10.2,lXt 2A4    ,33X,6HAKDS    =  ,  F 10  .3 , IX , 2A4  /  IDCT2fcl0 

7  10X,37HACCELEROMETEP,  2  POSITION  Y2  =  ,F  10.  2,  IX  ,  2  A4  ,  IDGT2820 
b  9X,32r-.REAR  DEFL-STEER  CCtFS.  AKDS1  =  ,  F10,3,1X,2A4  /  IDGT2830 
9  40X,7HZ2  =,F10.2,lX,2A4,3i>X,6HAKDS2  =  ,F10.3,lX,3A4  /  IDCT2t^0 
A101X,6HAKDS3=,F10.3,1X,3AA       )  ID0T2850 

WRITE{6,20  05  )    X I  PS , Pb2 I , CPSP , PD 1 ,EPSPS , R APS , AKPS ,P IPR,  1D0T26  60 

1  OKGPS,RADS  ,XPS, DINCH  ID0T2fa70 

2005    FORMAT( 1H0,I5X,29HS    TEbRING         SYSTEM  /  IDDT2660 

1  10X,31hM0MtNT    OF     INERTIA  XIPS       = , F 10.3 , IX ,3 A^    /  1DCT2S90 

2  10X,^1mC0UL0MB    FRICTION    TOKQUE    CPSP       = , F 10.3 , IX ,2 A4    /  luOT2900 

3  10X,31HFRIC1I0N  LAb  fcPbP  = , F 10. 3 , IX ,2 A4  /  IDOT2910 
h    10X,31HANGULA-^    STOP    RATL                     AKPS       =  ,  F  10.  3  ,  1X,3  A4    /  IDOT2920 

5  10X,51hAN&ULAR    STOP    POSlTIuN  DMGPS    =  ,F  10. 5 ,  IX  ,4i  A4    /  ID0T2930 

6  10X,31HPNtUMATIC    TRAIL  XPS         = , F 1 G. 3  ,  1X,2 A4    )  IDGT29AO 
WRITE  (6,2009)    FIWJF,PS2I  ,  FI W  JR,  PS2  I  ,ARbRF  ,  ARBRR,  FI  DJF,  PS2I  ,  lDGT29i,0 

1  FIDJR,PS2I  ID0T2960 

2009    FORMAT(  1H0,13X,28HD    RIVELINEDAIA  /  ID0T2970 

A    10X,33HFR0NT    WHEEL    SPIN    INERTIA  FlWJF    - , F8 . 3 , 1 X, 3A4  /  IDOT29fcO 

B    10X,33hKEAR    WhFEL    SPIN    INERTIA  FIWJR    = , F6 .3 , 1 X, 3A4  /  ID012990 

C    10X,33hFR0NT    AXLE    RATIO  ARbRF     =F8.3,  /  ID0T30O0 

D    10X,33HREAR    AXLF    RATIO  ARBRR    =F8.3,  /  IDOT3010 

E    10X,33HFR0NT    DRIVELINE    INERTIA  FIDJF    = ,F8 .3 , IX, 3A4  /  ID013020 

F    10X,33HREAD    DRIVELINE    INERTIA  FIDJR    =  ,  F£ .3 , IX, 3A4  )  ID0T3O30 

WR1TE{6,2006)     AKF,  PPI ,  AKR,  PPI,  IDOT3U40 
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DATE       01/14/76 


TIME       1725 


UPDATE    RECORD 


1  AKFCt 

2  AKFCPf 

2006  FORMAT( 1H0,36X,16HFR0NT 

1  10X,41HSUSPENSI0N    RATE 

2  9X,8HAKR  =,F10.3»1X 

3  lOXfHlHCOMPRESSlON    STOP 

4  9X,8HAKRC  =tF10.3tlX 

5  43X,8nAKFCP       =,F10.3,1X 
WR1TE(6,2007»    AKFEt 

1  AKFEP, 

2  OMEGFC, 

3  OMEGFE, 

2007  FORMAT ( IH    , 

1  9X,4lHtXTENSI0N    STOP    C 

2  9X,     BHAKRE  =,F10,3,1 

3  43X,    BHAKFEP       =fF10.3,l 

4  10X,41HC0MPRESSI0N    STOP 

5  9X,    bhOMEGRC    =,F10.3,1 

6  10X,41HEXT£NSilJN    STOP    L 

7  9X,    ahOMEGRE    =,F10.3,1 
WRITE( 6,2008)    XLAMF, 

1  CF,  PSPIt 

2  CFP,  PD, 

3  EPSF,  DIPS, 

2008  FORMAT (IH    , 

1 

2 

3 

4 


PPI,  AKRC,  PPI, 

PPI3,  AKRCP,  PPI3 

SLIS^PENSION,20X,15HREAR    SUSPENSION      // 

AKF  =,F10.3,IX,2A4, 

,2A4      / 

COEFS.  AKFC         =,F10.3, IX ,2A4, 

,2A4       / 

,i^A4,9X,6HAKRCP       =,F  10.3,1  X  ,2A4  ) 

PPI,  AKRE,  PPI, 

PPI3,  AKREP,  PPI3, 

DINCH,  OMtGKC,  DINCH, 

DINCH,  OMEGRE,  DINCH 


AKFE 


=,F10.3,1X,2A4, 


OEFS. 

X,2A4       / 

X,2A4,9X,8HAKREP       =, F10,3, 1X,2 A4       / 

LOCATION 
X,2A4       / 
OCATIQN 
X,2A4       ) 


OMEGFC    =,F10.3,1X,2A4, 
OMEGFE    =,F10.3,1X,2A4, 


XLAMR, 
CR, 
CRP, 
EPSR, 


9X,41HST0P    ENERGY    DISS 
18X,     ehXLAMR       =,F10.3 
10X,41HVISC0US    DAMPING 

5X,    8HCR  =,F10,3,1 

5  10X,41HC0UL0MB    FRICTION 

6  13X,    8HCRP  =,F10.3,1 

7  10X,41HFRTCTI0N    LAG 

8  9X,  bhEPSR  =,F10,3,1 
IF(ISUS.EQ.2.AND.IAPFR(1 
WRITE(6,1000)     (HED(I),I= 

1  (VHED(I), 1=1,10), <T 

2  (GHEOd  ),I  =  1,10),(S 
IF(ISUS*EQ.2)    GO    TO    301 
DO    306    K=l,2 

TDl(K)     =    DINCH(K) 

306  TD2(K)     =    DEG(K) 
IFdSUS.EO.l)    GO    TO    308 
DO    307    K=l,2 

TDKK)     =    TNU2(K) 

307  TD2(K)     =    TNU2(K) 

308  WRITE(6,3001 )    DINCH, DEG, 
3001    FORMATdHO, 

A  10X,18HFRONT  WHEEL  CAMB 
B  6X,23HFR0NT  HALF-TRACK 
C  18X,2HVS,24X,2HVS,24X,2 
D      9X,21HSUSPENSI0N    OEFLE 


IPATION    FACTOR 

/ 

COEF, 

X,3A4      / 

X,1A4       / 


PSPI, 

PD, 
DIPS 

XLAMF  =-,F10.3, 

CF  =,F10.3,1X,3A4, 

CFP  =,F10.3,1X,1A4, 

fcPSF  =,F10.3,IX,2A4, 


X,2A4       ) 

)+lAPFR(2).E0«0)    GO    TO    404 

1,18),0ADE(1),DADE(2)  , 

HEDd  ),I  =  1,10),(CHED(I),I=1,10), 

HED(I),I=1,10) 


TD1,TD2, DINCH, DINCH, TD1,TD1 

ER,    8X,17HREAR    WHEEL    CAMBER, 

CHANGE,    4X,22HREAR    HALF-TRACK    CHANGE      / 
HVS,24X,2HVS      / 
CTION,    5X,2lHSUSPENSION    DEFLECTION, 


ID0T30  50 
ID0T3060 
ID0T3070 
IDOT30  60 
IDOT3090 
ID0T3100 
ID0T3110 
ID0T3I20 
ID0T3130 
IDU7  3140 
I00T315G 
ID0T3160 
I00T3170 
ID0T3ie0 
ID0T3190 
ID0T3200 
ID0T32  10 
IDCT32  2G 
ID0T32  30 
ID0T3Z40 
I00T3250 
IDCT32  60 
ID0T32  70 
ID0T32b0 
ID  OT  32  90 
ID0T33  00 
ID0T33  10 
I  DOT  33 20 
IDDT3330 
IDOT33  40 
IDOT33  5>0 
ID0T3360 
ID0T33  70 
ID0T3380 
1D0T33  90 
ID  OT  34  00 
ID0T3410 
ID0T3420 
ID0T3^30 
I DOT  3^40 
ID0T3450 
ID0T3460 
ID0T34  70 
ID0T3480 
1D0T34  90 
ID0T3500 
ID0T35  10 
ID  OT  35  20 
ID0T3530 
ID  OT  35  40 
1D0T35  50 
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E       5X,2  1hSUSPENSICN    DEFLECTION,    5X, 2iHSUSPENS ION    DEFLECTION  //       ID0T3b60 

F    12X,15.HDEL7AF               PHI  C»  IIX,  16HD  ELTaR               PHIRC    t  ID0T35  70 

G    10X,15HDELTAF               D THF, IIX ,1 5HDELTAR               DTHR       /  ID0T3380 
H    12X,2AH,2X,2A4,8X,2A4t2X,2A4,8X,2A4,2X,2AH,8X,2A4,2'X,2A4                  )       IDQT3590 

Y  =  UELb  1D0T3600 
DO  302  1=1, NOEL  ID0T3610 
TTARG(  I  )    =    Y  ID0T3620 

Y  =    Y+DDEL  IDCT3630 
302    CONTINUE  IDGT364G 

WKnE(6,3002)     (TTARGd  ),PHIC(  I),TTARG(I  ),PHIRC(I  ),  IDL736bC 

1                                          TTARGd  ),[THF(  i)  ,  TTARGd), DTHRd)  ,1  =  1, NOEL)  IDLT3660 

5002    F0RMAT(lH0,4(ex,F8.2,2X, Fe.2)/( 1X,4(PX,F8.2,2X,FP.2))                   )  IDOT36/0 

301    CONlINUt  1007  3680 

IF(     lAPPR(l)     .EQ.O    .AND.     1APFK(2)     .L&.O)     GO    TO    400  ID073690 

WRITE  (fc,H004)  iD0T37  00 

4U0^    FORKAT( lH0,8X,'t8HANTl-PITCH    TABLES    FOR    CIRCUMFERENTIAL    TIRE    FORCE    1DDT3710 

1  //    VX,llHFkONT    WHEEL, 5X,3HAPF,^X,10HREAR    WHEE  L,  i>X  ,3HAPR    /  IDLT372C 

2  9X,11HDEFL.    -    IN . ,3X ,&HLB/Lb-FT , bX , 1 OHDE FL.-    IN.,  IDCT3730 

3  3X,8HLd/L6-F7  /  )  1DC73740 
FDEF  =  LAPFB  lD0737i>G 
RDEF  =  L/^PRB  ID0T3760 
MAP  -  NAPF  IDCT3770 
1F(NAPF .NE.NAPR)  MAP  -  M I  NO (NAPF ,NAPR )  IDGT37&0 
IF(NAPF.tO.O)  GO  TO  402  I0CT3790 
lF(i\APR  .:Q.O)  GO  TO  406  IDCT38O0 
DO  401  1=1, MAP  l00T38i0 
WRI7E(6,4005 )     FDEF,APF(I  )  ,RDEF,APR(1)  lDnT5o20 

4005    F0RMA7  (i>X,^d$X,Fb.4)  )  IuOT3b3C 

FDEF    =     FDEF+DDAPF  1D0T3840 

401  RDEF  =  RL-EF  +  ODaPR  ID0T3850 
IF(NAPF.EO.NAPR)  GO  TO  404  100T3860 
IF(NAPR.GT.NAPF)    GO    70    402  ID0T38  70 

M)6    MAPI    =    MAP+1  1007  38  80 

CO    403     1=MAP1,NAPF  ID0T3&90 

WRI7C(6,A006)    FDEF,APF(1)  ID073900 

^006    FORMAT( 5X,2 (5X,Fe,^) )  TD0T391C 

403  FDcF  =  FDEF  +  DDAPF  ID0T3y20 
GO    70    404  1D073930 

402  MAPI  =  KAP+1  1D073940 
CO  405  I=MAP1,NAPR  iD0T3950 
WR1TE(6,^07)     RDEF,APR(T)  ID0T3960 

4007  F0KMAT<31X,2(5X,F8.4))  ID0T3970 
405    RDEF    =    RDEF+DDAPR  ID0T39b0 

GO    TO    404  1D0T3990 

400    WRITE<6,^008 )  IDC74000 

4008  F0RMAT(21H0N0    ANTI-PITCH    TABLES)  iDGTMJlO 

404  CONTINUE  TOOT 40 20 
1F(TINCR.EU.0.0.AND. IDRVER.EQ.O)  GO  TO  408  1007^030 
WRITE(6,1000)     (HEDd ) ,I=l,lo) ,DADt( 1) ,DADE(2)  ,  ID0T4040 

1               (  VHEDCI  ),I=1,1C),  (THEDd  ),  I=l,iO),(CHED{I),I=l,10  ),  ID0T405C 

^                (GHEDd  ),I  =  1,10),  (SHEDd  ),I=1,  10)  IDOT4060 
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NTPR    =    0  IDCT4070 

TTARG(l)    =    0.0  IDGT4080 

IF(TINCR.tQ.O.O)    GO    TO    30^  ID01A090 

NTPR    =     (TE-TB)/TINCR    ♦    1  .  f>  IDOTAIOO 

Y  =  TB  1DGT4110 
DO  305  I=ltNTPR  IDOT^lifG 
TTARG(  I  )    =    Y  IDDT4130 

Y  =    Y  +  TINCR  ID0T414G 
305    CONTINUE  1D0T4150 

WRITE(6,3003)  ID0TA160 

3003  FORMAT( 1H0,//56X,21HDRIVER    CONTROL    TABLES       //  ID0T4170 

1  4(32H               T               PSIF               TQF               TOR     )               /  ID0T4180 

2  4(32H            SEC               DEG            LB-FT          LB-FTl               /)  ID0T4i90 
;                       NTPR4   IS    NUMBER    OF    LINES    FOR    TABLES    IN    FOUR    GROUPS    PER    LINE            IDCTA200 

NNADD    =    0  1DOT42  10 

IF( (M0D(NTPR,4) ).NE.O)    NNADD=1  ID0T4220 

NTPR4    =    NTPR/4    +    NNADD  ID0T'+230 

NTPR43    ~    3*NTPR4  1D0TA240 

DO    303    J=1,NTPRA  IDOT4260 

II    =    J  ID0T't260 

14  ~  M1N0(NTPR  tIl+NTPR43)  ID0T4270 
WRnE(6,3004){  (TTARGdl)  .PSIF  ( 1 1  ) ,  TQF  (  1 1 )  ,TQR(II  ))  ,  11=  1 1  ,I4,NTPR4  nD0T42  80 

3004  FORMAT( lX»4(F8.3,F8.3,F8.1fF8.1)        )  ID0T4290 

303  CONTINUE  ID0T4300 

304  CONTINUE  IDGT^310 
IF(IDRVER.NE.O)    CALL    DRIVID  I[:CT4320 

408    CONTINUE  ID0T433O 

;  ID  OT  43  40 

WRITE(6,1000)     (HEDd  ),I=1»18),DADE(1) ,DADE{2)  .  ID0T4350 

1  (VHE0(  I),I  =  1,I0),  (THEDd  ),  I=1,10),(CHED(I)  il=l,10),  ID0T436C 

2  (GHEDd). 1  =  1, 10), (SHED(I)  ,1  =  1,10)  IDOT4370 
WRITE(6,4001)  I0CT43e0 

4001  FORMAT! iH0,60X,17HT  IRE  DATA  /  ID0TA390 
A    54X,2HRF,10X,2HLF,10X,2HRR,10X,2HLR       )  ID0T44C0 

WRITE(6,4002)    AKT.PP I , SI GT,DINCH,XLAMT , AO , Al , A2,A3 ♦A4  ID0T4410 

4002  FORMAT (IHO,  ID0T4420 
A  9X,39HTIRE  LINEAR  SPRING  RATE  AKT  =,4( F10.3, 2X ) ,2A4  /  ID0T4430 
B  10X,39HDEFL.  FOR  INCREASED  RATE  SIGT  =,4( F10.3, 2X ) ,2A4  /  ID0T4440 
C  10X,39HSPRING  RATE  INCREASING  FACTOR  XLAMT  =  ,4( F 10,3 ,2X )  /  ID0T4450 
D  41X,  bHAO  =,4(F10,3,2X)  /  ID0T4460 
E  41X,  8HA1  =,4(F10,3,2X)  /  ID0T4470 
F  10X,39HSIDE  FORCE  COEFFICIENTS  A2  =,4{ FIO. 3,2X )  /  ID0T4480 
G  41X,  8HA3  =,4(F10.3,2X)  /  ID0T4490 
H    41X,    8HA4               =,4(F10,3,2X)          )  ID0T4500 

WRITE(6,4003)    0MEGT,RW,DINCH,XMUM,CT,PD,RRMC,AMU(1)  IDOT^SIO 

4003  FORMAT (IH  ,  ID0T45  20 
I  10X,39HTIRE  OVERLOAD  FACTOR  OMEGT  =,4( F10,3 ,2X )  /  ID0T4530 
J  10X,39miRE  UNDEFLtCTED  RADIUS  RW  =,4{  FIO.  3,  2X  )  ,2A4  /  ID0T4540 
K  10X,39HTIRE  MEASUREMENT  FRICTION  XMUM  =,4( F10.3,2X )  /  ID0T4550 
P  10X,39HCIRCUM.  FORCE  STIFFNESS  CT  =,4( F10.3, 2X ) , A4  /  ID0T4560 
L    10X,39HR0LLING    RESISTANCE    MOMENT   COEF    RRMC  =,4( F10.3 ,2X ) ,                  ID0T4570 
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M          2X,8HLb-IN/Le          /  ID0T4580 

N    10X,34HN0MINAL    GROUND    FRICTION    COLF    AMU    =,F10.4                     /)  IDGT4590 

CALL     IUUUTA(HtD,DADE  )  IDCT*t6C0 

IF( INDCRB.NE.l )     GC    TO    70?  IDD74610 

WRITt(6  t  1000)     tHEDd  ),  l=l,lfc)  ,DADE<  1)  tOADECi:  )  ,  IuC1^620 

1  (VHfcDd  ),  1=1,  10)  ,  (THED(  I)  ♦1  =  1,10),  (CHED(  I  )  ,1  =  1,10),  IDCT^630 

2  IGHbO(  I  )  ,1=1,10)  ,(SHEL.(I)  ,1  =  1,  10)  IDDT4640 
WR1TL(6,6010)  IDCT4650 

6010  FO'^MAT  (  1H0,22X,17HC  URB  OAIA  //  IDCT46tC 
A  10X,54HCU^cJ  SLOPE  CHANGE  ELEVATION  AT  CU"E  FACE  ANGLE  /  I00T^70 
a  10X,3AH  LATERAL  POSITION  SLOPE  CHANGE  /  IDUT^6b0 
C    lBX,6HlNChES,  11X,6HINCHES,11X,7hDEGREES               //       )  ID0Ti;690 

WRITH(6,6011 )    YClP,                                            PHICl,  IDDT^700 

A                                       YC2P,               ZC2P,               PhIC2,  I00T4710 

B                                       YC3P,               2C5P,                PHIC3,  ID0Ti720 

C                                        YC4P,               ZC4P,               PH1C4,  IDCT4730 

D                                         YC&P,                ZC5P,                PHIC5),  iDCT^r^O 

fc                                         YC6P,                ZC6P,                PHIC6,  IDCT47^G 

F                                         NCRESL,          AMUt  IDCT^7c.0 

6011  FORMAT  (Ih  ,  ID0T^770 
A  llX,6hYClP  =,F9.2,23X ,7HPH1C1  =,F9.2,  /  10074760 
b  l2X,6hYC2P  =,F9.2,3X,6HZC2P  =, F 9 . 2 ,5X, 7HPH IC/  =,F9.2,  /  ID0TA790 
C  12X,6hYC3P  =,F9,2,3X,6HZC3P  =, F 9. 2 ,5 X , 7HPHIC3  =,F9.2,  /  IDCT48G0 
D  12X,6HYC4P  =,F9,2,3X,6H?C4P  =,  F'>.  2  ,5  X  ,  7HPHI  C4  =,F9.2,  /  ID0T4E10 
E  12X,6HYC5P  =, F V  .2 , 3 X , 6mZC^ P  = , F9, 2 ,5X ,7HPHl C b  =,F9,2,  /  ID0T^£20 
F  12X,6HYC6P  = ,  F9  ,  2  ,  3X,  6HZC6  P  = ,  F9,  2  ,i>X  ,  7HPHI C6  =,F9.2,  /  ID0T4830 
G  12X,8HNCRBSL  =,I4  /  IP0T4eH0 
F    10X,43HCURB    FRICTION    COEFFICIENT    FACTOR            A.YUC       =,F8.3  )     IDOT^teS'O 

WKiTE(6 ,7001 )     KWHJB, RWHJE,ORWHJ  IDCT^E60 

7001  FC'^.MAT(  37H0WHEEL    RADIUS-RACIAL    SPRING    \-0R    TAdLE       /17H    kWHJB  (  BE  GIN  )  IDOT  ^8  70 

1  =,F8.3,7H    iNChES    /    17H    RWHJE(FNO)                =,F8.3,5H          ••    /,  IDCT48E0 

2  17H  DRWHJ  (  INCRL.  )  =,F6.3,S.H  ••  )  I  DOT  ^8  90 
NFJP  =  0  I00T^900 
1F{DRWHJ,EQ.0.0)  GO  TO  702  ID0T4910 
NFJP  =  (RWHJt-RWHJB)/L.RWHJ  ♦  1.2  ID0T^920 
IFCmFJP.LE.O)    go    to    702  IDuT4930 

Y  =  RWhJb  IDCT49*»0 
DO  701  1=1, NFJP  ID0T49i;0 
TTARGd  )    =    Y  ID  OT  49 60 

Y  =    Y    +    DRWHJ  ID0T49  70 

701  CONTINUE  IDOT^9&0 
WRITt(6, 7002)  ID0T4990 

7002  F0RMAT(//1H  ,3X,5HRW-HJ,6X,4HFJP.,6X,4HFJP,,6X,4HFJP.,6X,4HFJP.  /  IDCT5C00 
A  i3X,3HlN,,7X,4HLBS.,6X,^HLbS.,6X,4HLbS.,6X,4HLtS,  /  IDOTbOiO 
b                     16X,2HRF,8X,2HLF, &X,2HRR,8X,2HLR          /       )  ID0T3020 

DC    703    J=1,NFJP  ID0T3030 

WRITE{6,7003  )    TT  ARG  (  J  )  ,  (  FJP(  J  ,  1 1  ) ,  1 1=  1  ,4 )  IDCTi>0^0 

7003  FORMATdH    ,  G9.3  ,4G  10  .3  )  IDCT5050 
703    CONTINUE  IDOTi)OfcO 

702  CONTINUE  ID0Tt*070 
IF(NZTAB.EQ.O)     GO    TO    700  IDOTt-OBO 
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DO  601  1=1,50 

601  TTARG( 1)  =  0.0 
DO  602  1=1 t 10 

602  NTARG( I)  =  0 

DO  603  I=1,NZTAB 
TTARG(  I  )  =       XB(I  ) 
TTARG<5  ♦  1 )=  XE(I) 
TTARGdO  +  I  }  =  XINCR(  1) 
TTAkG(15  ♦  I)  =  YB(I  ) 
TTARG(20  ♦  I )  =  YE(I  ) 
TTAR6<25  ♦  I)  =  YINCRJ I) 
TTAR&(30  ♦  I)  =  AMUGd  ) 
NTARGd  )       =  NbX(  I) 
NTARG(5  ♦  I)  =  NBY(I) 

603  CONTINUE 

WRITE  (6,  1000)     (HEDd  )  ,  1=  1  ,18  )  ,DADE  (1 )  ,DADE  (  2  )  , 
i  (VHEOd  ),I  =  1,10),  {THEDd),I=l,10),(CHE0(i),I=l,10), 

2  (GHEDCI  ),I=1,10  ),(SHEDd  ),I=1,10) 

WRITE(6,6001) 

6001  F0RMAT(//1H    ,26X, 25HTERR AIN    TABLE    ARGUMENTS  ) 
WRITE(6,6002)        (TTARG( I ) , 1=1 , 5 ) , 

1  {TTARGd),I  =  6,10), 

2  (TTARG< I) ,I=11,14),ZER0, 

3  (TTARGd)  ,1  =  16,20), 

4  (TTARG( 1)  ,1  =  21,25), 

5  (TTARGd)  ,1=26, 29), ZERO, 

6  (NTARGd)  ,1  =  1, i>), 

7  (NTARGd)  ,1=6,10), 

8  (TTARGd)  ,1=31,35), 
V  NZTAB 

6002  FORMAT( 1H0,25X,11H    XB( BEGIN )= ,5F 12.3, 7H    INCHES 

XE(END)  =,5F12.3,5H 
XdNCR)  =,5F12.3,5H 
YB(BEG1N)=,5F12.3,5H 
YE(END)  =,5F12.3,5H 
YdNCR)       =,5F12.3,5H 

B0UNDS=,I8,4I12 


26X,11H 
26X,11H 
26X,11H 
26X,11H 
26X,11H 
25X,12HN0.X 


/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
/ 
) 


G  25X,12HN0.Y    BQUNDS= , 18 ,41 12 

H  26X,11H    AMUG  =,5F12.3 

I  25X,18HN0. TERRAIN    TABLES=,I4 

IF(NZ5.E0.0)    GO    TO    600 

WRITE  (6,  1000)    (HEDd  )  ,  1=  1  ,18  )  ,DADE  (1)  ,  DADE  (  2  )  , 

1  (VHED(I),I  =  I,10),(THEDd),I=I,10),(CH£Dd),I=l,10), 

2  (GHEDd),  1  =  1,  10),  (SHED  (I),  I  =1,10) 
NX5    =   NX(NZTAB) 

NY5    =    NY (NZTAB) 

WR1TE(6,6004)    NX5,     ( XXZGP5( I ) ,1  =  1,  NX5 ) 
6004    FORMAT (66H0    ARGUMENTS    FOR    TERRAIN    TABLE    WITH    VARYING    INCREMENTS 
lAST    TABLE)    /lOH    NO.OF    X    =,    I3,2X,9H,    X(ZGP)=,    12F9 .3/24X ,9F9.3 ) 

WRITE(6,6003)    NY5,     (  YYZGP5d  )  ,  I  =  1,NY5  ) 
6003    FORMAT (lOHONO.OF    Y    =,     I3,2X,9H,    Y( ZGP ) =, 12F9 .3/24X ,    9F9.3) 


ID015090 
ID0T5100 
ID0T51  10 
IDCT51L0 
I0GT5120 
ID0T51^0 
ID0T5150 
ID075160 
ID0T5170 
IDCT5180 
IDCT5190 
I  DOT  52  00 
ID  OT  52  10 
ID0T5220 
IDCT5230 
IDGT5240 
ID0T5250 
IDGT5.260 
ID  OT  52  70 
ID0T52b0 
ID GT  52  90 
I00T53  00 
ID0T5310 
ID0T53  20 
ID0T5350 
ID0T5340 
I  DOT  53  50 
ID0T5360 
ID0T5370 
ID0T5380 
IDCT5390 
ID  OT  54  00 
ID  OT  54  10 
ID0T5420 
ID0T5430 
ID  OT  5440 
ID0T5450 
I  DOT  54  60 
IDCT5470 
I00T5480 
ID0T54  90 
ID0T55  00 
ID  OT  55  10 
ID  OT 55 20 
ID0T5530 
ID  OT  55  40 
ID  OT  55  50 
(LIDCT55  60 
ID  OT  55  70 
ID07  55  80 
ID  OT  55  90 
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600 
60  4 


606 
6  0U5 


6  006 
6U07 


605 


60*^ 
607 
611 

612 

olO 
6008 

6009 


1F(M 
WRIT 

1 

2 

LINE 

DO  6 

NN3X 

NNEY 

NNX 

NNY 

LINE 

IF(I 

IF(L 

WRIT 

1 

1 
LINE 
WRIT 
FORM 

X  IX, 
WRIT 
FORM 
WRIT 
FORM 
IF( 
AN  AM 
Y=  X 
YYY 
DO  6 
TXAR 

Y  = 
CON! 

Y  = 
YYY 
DO    6 
TYAR 

Y  = 
CONT 
GU  1 
AN  AM 
DO  6 
TXAR 
DO  6 
TYAR 
WRIT 
FORM 

X     ) 
DO    6 
WRIT 
FORM 


ZTAb 

E(6, 

(  VH 

(GH 

S    =3 

14     1 

=    N 

=    N 

=    NX 

=    NY 

S    = 

.EQ. 

INEi, 

F(6, 

(VH 

(GH 

S    =3 

E(6, 

AT(1 

16H 

h{6, 

AT(i 

E(6, 

AT  (1 

i.Ey 

E    = 
B(l) 

=  XI 
05  J 
G(J) 

Y  + 
iNUh 
Yfc{  I 
=  YI 
09  J 
G{  J) 

Y  * 
INUL 
0    cl 
E    = 

11  J 
G(  J) 

12  J 
G(  J) 
E(6, 
AT  (  1 


)  60 
1000 
ED(  I 
ED  (I 

=ltN 
BX(  I 
bY(I 
(I) 
(I  ) 
LINE 
1)  G 
.LT 
1000 
ED(N 
f:D(N 

6005 
9H0 

X 
6006 
X,16 
6007 
X,  16 
.NZT 
CONl 

NCR{ 
=1,N 
=    Y 
YYY 

) 

NC«( 
=^ltN 
=    Y 
YYY 

0 

VARI 

=1»N 

=  X 
=1,N 

=  Y 
6008 
HO,  A 


4,700,604 

)     (HED(I),  1=1,18)  ,DADEU),DADE(2)  , 
),I=1,10), (THEDd ), I=1,10),(CHED( 1) ,1=1,10), 
),I=1,10), (SHED(I),I=1,10) 


ZTAB 

) 

) 


S    +    9    ♦     (NNY+l)*(NNX/7    +    2) 

0    TO    606 

.55)    GO    TO    60c 

)     (HEU(N),N=i,lb),DADE(l) ,DADE(2) , 

),N  =  l,i0  ),(THtC(N),N=l,10),(CHEL!(N),N=l,10), 

),N  =  1,10),  {SHED(N),N=1,10) 


)     I,AMUG(I  )♦  (XbDRY( JtI  )  ,J  =  l,NNbX) 

TERRAIN    TABLE    NO.     ,13,       20X ,    cH    AMUG=, 

B0UNDARIES=,4F13.5) 

)     (PSBDR0( J, I ),J=1,NNBX) 

H    PSI    B0UNDARIES=,4F13.5) 

)     (YBLRY( J,I  )  ,J  =  l,NNbY) 

h       Y       BUUNDARlES=,2F13.5) 

Ab     .AND.    NZ5.NE.0)     GO    TU    607 


I) 

NX 


F13.5// 


I) 

NY 


13  11=1, 
E( 6,6009 
AT(/2X,3 


NX 

XZGP5(J) 

NY 

YZGP5(J) 

)ANAME, {TXARG(J ) ,J=1,NNX) 

^,  17H.    INCREMENTS  X= ,2X , 7F1 3.5/26X ,7F13. 5/28X, 7F13 

NNY 

)    TYARG(  II), (ZGP( JJ,1I ,1) ,JJ  =  1,NNX) 

H    Y=,F13.5,    6X,7F13.5/26X,7F13.5/2bX,7F13,5) 


ID  OT  56  00 
ID0T5610 
IC0T5620 
ID0T5630 
I  DOT  5o  40 
ID0T56  50 
I  DOT  56  6C 
1D0T56  7C 
ID  OT  56  80 
I  DOT  56  90 
IUOT57  00 
1  DOT  57  10 
I  OCT  57  20 
1DCT5730 
ID0T57  40 
ID  CT  57  50 
I  DOT  57  60 
ID  DT  57  70 
ID0T57b:C 
IDDI57  90 
IDCT58  00 
IDL.T58iO 
ID0T5c20 
IuOT5b3G 
I D  OT  5c  40 
ICCT5650 
I  DOT  5b  60 
10  01  58  70 
ID  OT  5b  80 
I  DOT  5b  90 
I  DOT  59  00 
I  DOT  59  10 
ID0T5920 
IDOT5930 
I  DOT  59^0 
ID OT 59  50 
ID0T5960 
ID  OT  59  70 
ID  OT  59  80 
IDOT  59*^0 
IDCT60  00 
ID  OT  60  10 
ID0T60k;0 
ID0T60  30 
ID  OT  60  40 
IDCT6050 
,5100160  60 
I  DOT  6070 
ID0T6080 
ID  OT  60  90 
I00T6100 
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613 
614 


DATt   01/14/76 

CONTINUl 
CONTINUE 


TIME       1725> 


UPDATE    RECORD 


700    CONTINUE 

WRITE(t.,9007) 
9007    FOKMAT(lHl) 

RETURN 
END 


ID0T61  10 
IDDT6120 
ID0T6i30 
ID0T6140 
IDCT6150 
I00T6160 
IDGT6i70 
IDD16180 
IDGT6190 
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SUBROUTINE    IDOUTA    (HDD, DATE)  IDTAOOIO 

C                                     HV0SM-VU2    VFRSION  IDTA0020 

C                                     REVIStU    OCTOBER    1975          CALSPAN    CDRPORATION  ID1A0030 

COMMON/HtAD/    \/riED(  20  J  ,CH  ED  (2:0  ) ,  GKED  {20  )  ,  SHED  (20)  ,1HED<20),  ID  TA  00  40 

1                                      NPA&E(20)  IDTA005.0 

COMMON    /1NPT4/    FICJ(2) tFIWJ(2) t ARBR(2 ),NXUGMU,NXFRCPtXXUGMU(6) ,  IDTA0C60 

A                                            XXFRCPtb) ,XMUMAT(6,6,4),XMXPMT(6,6,A) »  IDTAGC70 

B                                            XMXSMK  6,6t4)  ,SLlPMT(6,6t4)  ,CT  (4)  ♦XMUM(4),  imAOOtO 

C                                            XMUXP  (^),  XMUXSU)  ,RRMC{4)  ,RRM(4)  ,C0MtN4  IDTA0090 

bQUlVALLNCE     ( F ID J  {  1 )  , F ID JF ) , ( FID J ( 2 ) , F ID JR ) , ( F I W J( 1 ) , F I WJF  )  IDTAClCO 

bQUlVALLNCE     (F  I WJ  (  2  )  tFIW  JR)  ,  (  ARBR(  1  ) ,  AkdRF  )  ,  (  ARciR  (  2  )  ,  ARBRR  )  IDTAOliO 

CQ!^MDN/INPT5/    IbTYP{  2)  ,  AK  1  ,  AK2  ,  PON  t  ,PTW0  ,  PZERO  (  2  )  ♦  GN{  16  ♦  2  )  tZETAB,  ICTAOllO 

1  CCNE,CTWC,CTHRt£,TAUA,TAU0(4) ,TLF(51 ),TTAU(51),  IDTA0130 

2  TRPMti  i2),TwOr ( 12)  ,TCT( 12),1T( 101) ,TPC(101),TTR(101)IuTA0I40 
'     3                                       »TTS(  101)  »BTLF,t'TLF,DTLF,NTLF,BRPM,ERPM,NRPM,  IDTA0150 

4                                       BTT,ETT,DTT,NTTlvNTT2,NTT3,NTTS,XlNPT5{9)  IDTA0i60 

DIMENSION    HDDt56),    DATE(2)  IDTA0170 

OI.^fcNSION    ,\NN(6)  IDTAOieO 

DATA    NNK/1,2»3,4,^,6/  IDTA01<>0 

DATA    JTLV6/  10TA020C 

C  ID  TA  02  10 

1010    FORMAT (Ihl, 19X, 1SA4»20X, 2A4    /    5X,3(10A^)     /    5X,2(10Ah)    /     )  IDTAO220 

wRITt( JTD.IOOO)  ID1A0230 

1000    FORMAT (IhO)  IDTA02A0 

>iRlTE(  JTO,  1040)  ID  TA  02  50 

1040    FORMAT (IHO,  ID1AC2C0 

A    61H    SPLED        I     LOAD        1       LATERAL    FRICTION    COEF.           |     PEAK    LONG.    FRIC  IDTA0270 

d    61HT10N   CUEF.     |     SLIDING     LONG.     FRICTION             |     SLIP    AT    PEAK    LONG.    F  iDTAO^tO 

C       7hRIC1.     I          /    IX,  IulA0290 

D    6lh    IN/SEC     I       LBS        i                           XMUY                                          I                               XMUXP  IDTA0300 

E    blH                                I          COLF.            XMUXS                             I                                SLIPP  IDTA0310 

F       7H                   I          /    IX,  IDTA0320 

G    61H                                              I       RF              LF               RR               LR       I       RF               LF  IDTA0320 

ri    61HRR                LR        I       RF                LF                RR                LR        I        FF               LF               RR  IDTA0340 

1       7H       LR       I          /          )  IOTA  03 50 

DO    141     II    =     1,NXUGMU  1UTA0360 

DO    141    12    =    l,NXFkCP  IDTA0370 

WRITEi  JTC,  1044)    XXUGMUd  1  ) ,  XXFRC  P  I  12  )  ,  (  XMUMAT  (  12  ,  1  1  ,  I  3  )  ,  13  =  1 ,  4)  ,  lDTAO3fc0 

A                                   <XMXPMT( 12 ,11,13) ,13=1,4) , <XMXSMTiI2,I 1 , 15 ) , 13= 1 ,4 ) ,  ID TA 03 90 

B                                 (SL1PMT( 12,11,13) ,13=1,4)  IDTA040C 

1044    FORMATIIH    , 2 (F7 . 2, IX ) , 16 ( 2X ,F5.3 )       )  1DTA0410 

141    CONTINUE  IDTA0420 

C  IDTAG420 

WRITE(  JT0,1010)     (HDDd  ),  I  =  1,1B)  ,DATE(  1),DATE(2  ),  ICTA0440 

1  (VhEDd  ),  1  =  1,10),  (TH  ED  (I  ),  I  =1,10),  (ChED(l)  ,1=1,10),  IOTA  04  50 

2  (CHEDd  ),I=1,10),  (SHEDtI),I=lt  10)  IDTA0460 
WRITE  (JTC,  10  60)    NTTS  ,  TAUA,  IB  I YP  (  1)  ,    PZcROd)  ,  lETYP  (  2  ) ,  PZERO  (2  ) ,  AK1IDTA0470 

1    ,CGNE  IDTAO^bO 

1060    FORMAT  dhO,35X,3eH    BRAKING    SYSTEMS    WlTti    COMPUTED   TORQUES       ///  ID1A0490 
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140H    NTTSfCMAX    101), NO. OF    PC,TS,TR    ENTRIES    =,I10»    20X,  ID1A0500 

240H    TAUA         AMBIENT    TEMPERATURE,     DEG*F               =,F10,1    /  IDTA0510 

327h    IBTYPd)       FRONT    BRAKt    TYPE,  12X  ,  lri  =  ,  1 10,20X ,  IDTA0520 

440H    P0(1)       FRONT, BRAKt    PUSH  "OUT    PRES, ,PSI&=, F 10.2    /  IDTA0330 

527H    IBTYP(2)       REAR          ••             ••     , 12X , 1H=, I 10,20X ,  1DTA0540 

6^H    P0(2)       REAR,        ••                  ••                ••             ••     =,     F10.2    /  ILiTA0350 

740H    Kl          SLOPE    PR/PF     ( PI .LT .PF. LE. P2 )                =,    F10.4,20X,  IDTA0560 

840m    CI               COEFFICIENT    FOR    RESISTING    FORCE=,     1PE12.5)  IDTA0i>70 

WRITE(  JTG,1062)    AK2,  CT  WO  ,  PONE  ,CTHRfcE,  PTWCZETAB  ID1A0560 

1062    F0RMAT(28H    K2               ••          ii          ( PF.&T .P2 ) , IIX , 1H= ,F 10 .4,    20X,  IDTA0590 

140H    C2                          ••                                  ••                     ••       =,     1PE12.5       /  IDTACtoOO 

240H    PI         BRAKE    PRbS.    FOR    PR/PF    CHANGE ,PSI6=,       E12.5,18X,  IDTA0610 

340H    C3                          •'                                   »•                      ••       =,       E12.5      /  IDTA06^0 

440H    P2                II           f I                         ti                it             II     -^        E12.5,        lOX,  IDTA0630 

5i>9H    ZETAB, THRESHOLD    WHEEL    SPEED    TO    LIMIT    BRAKt    TORQUE,  RAD/SEC  =  ,  IDTA0640 

6         0PF6.2    )  ibTAObi^O 

WRITE( JT0,1000)  IDTA0660 

WRITE( JT0,1064)    BTT,ETT,DTT  ID1A067G 

1064    F0RMATC32H0    TABLES    PC,TS,TR    VARY    WITH    TIME            /  IDTAOfcBO 

1  17H      TT(  J),J=l,NTTS,lX,F4.1,lX,2HT0,2X,Fi>.l,lXi  IDTA0690 

2  8HSECS.  IN,1X,F4.2,1X,14HS£C  INCREMENTS  )  IDTA0700 
WRITEtJTU,1066)  IDTA0710 

1066    FORMAT (//   3(10X,6H    BRAKE, 6X,22H    THROTTLE    TRANSMISS ION) /3 (9X , IIH    MAIDTA0720 

ISTER    CYL,  2X,18h    SETTING  RATIO,    4X    )/3(4X,    4H    SEC, IX,     12H    IDTA0750 

2PRES.(PSIG),23X)/      3(5X,3H    TT,    4X,3H    PC,10X,    3H    TS ,    BX,3H    TR,5X    ))IDTA0740 

NNAOD    =    0  IDTA07&0 

lF(M0DtNTTS,3) .NE.O)    NNADD    =1  IDTA0760 

NT3    =    NTTS/3    ♦    NNADD  IDTAG770 

NT 3 3    =    2*NT3  ID TA 07 60 

DO    165    J    =    1,NT3  IDTA0790 

11    =    J  IDTA0800 

13    =    MIN0(NTTS,I1+NT33    )  IDTA0810 

WRITE(JT0,1068)     (TT ( II ), T PC ( 1 1 ) ,TT S ( 1 1 ) , TTR( 1 1 )     ,1 1=    1 1 , I3,NT3)  IDTA082G 

1068    FORMAT (3(1X,F7. 2,    FIO.O,     F12.3,     F10.2,4X))  IDTAC830 

165    CONTINUE  IDTA0840 

C  IDTA0850 

WRITE(JT0,1010)     (HDDII  ),I  =  1,18),DATE(1),DATE(2),  IDTA0e60 

1  (VHED(I),I=l,10),(THbDiI ),I=1,10),(CHED(1),I=1,10),  IDTA0870 

2  (GHEOd  ),I  =  1,10),  (SHED(I),I=1,10)  IDTAOfaBO 
WRITE( JTU,1000)  IDTA0890 
WRITE(JT0,1070)  IDTA0900 

1070    FORMAT!     50H0ENG1NE    RPM  ENGINE    TORQUE  ENGINE    TORQUE ,55X, IDTA 09 10 

1    17H    BRAKE    PARAMETERS    /    15X,19H    WIDE    OPEN    THROTTLE ,2X, 16H    CLOSED    TIDTA0920 

2HROTTLE,53X,       6H    FRONT, 11X,5H    REAR         /    21X,6H    LB-FT,13X,6H    LB-FT,     IDTA0930 

357X,BH    GN{I,1),10X,    8HGN(I,2)     )  IDTA0940 

WRITE( JT0,10ll)  IDTA0950 

1011    FORMAT (IH    )  IDTA 09 60 

DO    170    1=1,NRPM  IDTA0970 

WRITE(JT0,1072)    TRPME(I),    TWOT(I),    TCTJI),    I,    GNU,!),    GN(I,2)  IDTA0980 

1072    FORMAT(     IX, FIO.O  ,8X, FIO.O  ,      9X,     FIO.O, 46X,    13  ,2X, 1PE15 .5 ,2X, E15.5 ) IDTA0990 

170    CONTINUE  IDTAIOOO 
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NRPMl    =    NRPM+1  IDTAIOIO 

DO    174    1=NRPM1,16  IDTA1020 

WRITE( JTC,1074)     I,    &N(I,1),    GN(I»2)  IDTA1030 

1074    FORMAK     94X,     13, 2X,     IPEI ^.5 , 2X, E15 .5)  TDTA 1040 

174    CONTINUE  IDTAlOfsO 

WRITEi  JTUtlOOO  )  IDTA1060 

WR1TE( JTOflOOO)  IDTA1070 

WRITE( JIGtlObO)     (NNN(1),TAU0( I) ,1-1,4)  IDTAlOfcO 

1080    FORMAK     3^H0    INITIAL    BRAKF    TEMPERATURE,     DE6.E  /       7H       TAU0(,12,          IDTA1090 

116H),    RIGHT     FRONT    =,    h8.2    /    7H       TAUO( , I  2, 16H ) ,    LEFT  "  =,Fb. 2/IDTA 11 00 

2    7H       TAUO(,     12,     16H),    RIGHT    REAR       =,F8.2    /    7H  TAU0(,I2,    16H),    LEFIDTAlllO 

3T          ••          =,     F8,2)  IDTA1120 

WRITE!  JT0,10G0)  IDTA1130 

WRITE(JT0,10£2 )    bTLF ,LTLF ,DTLF  IDTAll^O 

1062    F0RMAT{34H0    TAbLE    LF    VARIES    WITH    TEMPERATURE  /                                                  IDTAil5)0 

1  i7H   TTAUI J),J=1,NTLF,1X,F4.1,10H(DEG.F»    T0,1X,F6.1,  IDTA1160 

2  iOH(DEG.F)  IN,iX,F4.1,lX, 17HDEGREE  INCREMENTS  )  IDTA1170 
WRlTt(  JTL,1011  )  IDTAlittG 
WRITti JlC,10t4)  IDTA1190 

103*t    FURKATt  1H0,48X,1.1H    BRAKE     LINING    FADE    CUEFFICIENTS    /    4(3X,i)h    TTAU,     IDTAlkOO 

1    7X,3H    LF,15X)     /    4(3X,6H    L;EG.F,24X)     )  IDTAl^lG 

WRITt  (JT  0,1011  )  IDTA12-:0 

NNADD    =    0  IDTAi220 

IF(MUD(NTLF,^) .NE.O)     NNADD-    1  IDTAi2A0 

NTh    =    NTLF/'^    ♦    NNADD  IUTA12S0 

NT34    =    l'*NT4  IJTA1260 

DO    186    J=1,NT4  KTAi2  70 

11  =    J  IDTA12P0 

12  =    M1NG(NTLF ,11+NT34)  IDTAi2V0 
WR1TE(  JT0,10b6)     (TTAUdI  ),TLF(II),II=Ii,I2,NT4)  IDTAiSOG 

1086     FORMAT(       *t{lX,        F7.1,     F12.H,     13X))  IDTAIBIO 

186    CGNTlNUt  I0TA1320 

RETURN  IDTA15  3G 

END  IDTA1340 


454 


DATE       01/14/76  TIME       1725  UPDATE    RECORD 


SUBROUTINE    INITEQ  INITGOIO 

C  hVDSM-VD2    VERSION  INIT0020 

C  REVISED    CCTDBfcR    1975         CALSPAN    CORPORATION  IN1T0030 

COMMON/INPT/PHIO,THETAO,PSIO,PO,CiO,ROtXCOP,YCOP,ZCOP,UO,VO,WO,  IN  IT  00 40 

1  A,bf  DEL10,DEL20,DEL30tPHlR0,DEL10D,DELI;0D,DEL30Dt  IN  IT  00  50 

2  PHlROD,TF,TR,ZFtZRtRHU,AKRS,XMURt  INITG060 

3  XMS,XMUF  ,XIXtXlY,XIZ»XIXZtCF,AKF , XLAMF , OME GF , CFP , EPSF , IN  IT 0070 

4  RF,CR,AKR,XLAMR,OMEGRtCRPtEPSRtRR,TStTHMAXtDTCOMP,TO,    INIT0080 
b  Tl,DTCMPl,DTPRNT»MODE,EBAR,£M,AAAfHMAX,HMIN,BET,G,  INIT0090 

6  HED(36) ,DADE (3) ,XIR,X1,Y1,Z1,X?,Y2,Z2,PHIC(50) ,DELB,       INITOIOO 

7  DELE,DDtL,NDEL,PSIF(50) ,TQF150) , TOR (50) ,TB ,TE, TINCRt        IN  IT  01 10 

8  NZTAB,NZ5tXBDRY(H,5) fPSBDRY(4,5),YBDRY(2,5),NbX{5),  INIT0120 

9  NBY{5),NTBL1,NTBL2,NTBL3,ZGP(21,21,5)  INIT0130 
C0MM0N/INPT/XB(5),Xt (5),X1NCK(5) ,NX ( 5 ) , YB ( 5 ) , YE ( 5 ) ♦ YINCR( 5 ) ,NY{ 5 ) » IN ITG140 

1  XXZGP5(21),YYZGP5(21) tAMUG( 5) ,PSBDR0(4,5 ) ,UVWMIN ,PQRMI N    IN  IT  01 50 

COMMON    /C0MP/SUMM,THETN,PHIN,PSIN,PI,RADtGAMl,&AM2  tGAM3 ,GAM4,GAM5 , IN ITOl 60 

1  GAM6,GAM7,GAM8,GAM9,THE1T,PHIT,PSIT,ZR0,TR02,  INIT0170 

2  TF02,TlZ,RH02,RH0MUR,AMUFtBMUR,ZPR»TM4,RHMR2tA02APB»     INITOIBO 

3  BO2APB,RFTF,TSO2,RRTS,ER0MURfXMUFC2,AXMFO2tXMTFO4,  INIT0190 
^                                    XIZRtRTR,RHMR21,XIXP,XlZP,XIXZP,XlYZP,DlPD2fDl«D2»  INn0200 

5  ZRD3»ZR03R,ZFD3R»ZFD12»TIZ2,TG6l,DDlP2»DDlM2tRPR»PHRPINIT02  10 

6  fTANTP,SPHTP,CPHTP,SfcCTP,SFXS,SFYStSFZS,SNPSfSNTSf  INIT0220 

7  SNPSS,TPR,CAY,CBY,C6Y,CAXtCBX,CGX,SFYU,SFXUtSFYUF,  INIT0230 

8  SFYURtSFZUtCCSTH,SINTH,COSPS,SINPStCOSPH»SINPH,ANGl,     INIT0240 

9  ANG2fCPHI,SPHI,CPSI,SPSI,Pl,P7»P3tP4,P5tP6,TX,TY,TZ  INIT0250 
COMMON    /C0MP/TRH,DISTX,0ISTY,DISTD,DISTS,D21,ZFTAh,ZETA4D,ZETA3,       IN  IT  02 60 

1  ZETA3D,SFZl,SNPU,SNTU,HCGHl,HCGH2,HCGH3,HCGH4,TERMl,    INIT0270 

2  TERM2,SNPSU.SNPR,HCBHl,HCfcH2,HCBH3,HCBH4,HCAHl,HCAH2tINIT02  80 

3  HCAH3tHCAH4,U&,WP,UR,QR,VP,PR,P2,Q2,R2tVR,WQ,P0,PHIR2INlT0290 

4  ,PHIRD2,RPHRD,&CTH,GSTH,GCTSP,GCTCPfXXX,YYY»IXtIY,XXl,INIT03  00 

5  XX2,YYl,YY2,THGl,THG2fPHGl,PHG2,ZZl,ZZ2tLLL  INIT0310 
DIMENSION  HCAH{4),HCBH(4),HCGH(4)  INIT0320 
EQUIVALENCE  (HCAH(l) ,HCAH1 ) , ( HC6H( 1 ) ,HCBH1) , ( HCGH( 1 ) ,HCGH1 )  IN  IT 03 30 
COMMON    /DlMV/XlP,X2P»X3PtX4P,YlP,Y2P,Y3P,Y4P,ZlP,Z2PtZ3P,Z4P,PHIl,INIT03  40 

1  PHI2,PHI3,PHI4,PSIl,PSI2tPSI3,PSI4,CAYW(4),CBYW(4),       INIT0350 

2  C&YW(4)  ,ZPGI(4)»THGI(4),PHGI{4)  t CPG(4 ) ,SPG(4) ,CTG(4) , IN IT03  60 

3  STG(4),CAGZ(4),CBGZ(4),CGGZ(4),D1(4),D2(4),03(4) ,  INIT0370 

4  XLMl(4),XLM2(4>,XLM3(4)f AMTX(3,31,CMTX(3,4),XGPP(4),    INIT0380 

5  YGPP(4)  ,ZGPP(4),DMATX(10tH)  »DELTA(4)  ,CAR  (4  )  ,  CBR(4)  ,     IN  IT  0390 

6  CGR(4),FR(4)  ,HI(4) ,FC(4) ,TI(4),AX(4),BX<4),CX(4),  IN1T0400 

7  CTXG(4; ,JG<4),STXG(4) ,AY(4),BY(4),CY(4),CPYG(4),  INIT0410 

8  SPYG(4) ,VG{4),PSIIP(4),PHICI(4),CAC(4),CBC(4) ,CGC (4 ) , IN 1T0420 

9  FCXU(4),FCYU14),FCZU(4),FS{4),CAXW(4)  fCBXW(4) ,CGXW( 4) IN  IT  0430 
COMMON    /DIMV/AS{4) ,BS(4) , CS (4  J ,CAS ( 4) ,CBS (4) , CGS (4 » tBETP (4 ) ,  INIT0440 

1  BETbR(4),FSXU(4),FSYU(4),FSZU(4),FRXU(4),FRYU(4),  INIT0450 

2  FRZU(4) ,FXU(4),FYU(4) ,FZU(4) ,SI{4),F1FI(2),F1RI(2),       IN1T0460 

3  F2FI(2) ,F2RI(2),CAH(4),CBH(4),CGH(4)  INIT0470 
DIMENSION  XP{4) ,YP(4)tZP(4),PHII(4),PSII(4)  INIT0480 
EQUIVALENCE     (XP ( 1 ) ,X1P ) , ( YP ( I ) , YIP ) , ( ZP ( 1 ) ,Z1P ) t (PHIK 1 ) ,PHI1 ) ,          IN  IT  0490 
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1                                  (PSIKI)  tPSIl)  INIT0500 

COMMON    /COMPN/    FRSP ( ^) ,FRCP (4 ) » ICBHIT, JCBHIT,  INITG510 

1  DPSINTtTANPClf TANPC2fPHIClR,PHIC2R,AMUCMP,PHIlD,  INTfOSZO 

2  PH12D,LCBl(4),LCB2(4),IHlTtAJMTX(3,3)fbMTX(3,5)t  IMT0530 

3  SFRX(4) ,SFRY(4),SFRZ(4),T1PSI,T2PSI tXMUGI(4)  INIT054G 
LOGICAL  LCBl,LCb2  INIT0550 
COMMON    /INSUS/    X  IF ,RHOF, T SF » PHIFO, PHIFOD, DEL40,D£L40D,  ISUS ,  INIIOSfcC 

1  AKUSt AKDSI»AKUS2,AKDS3tPHIRC(5O),DTHF(5O),DTHR(5O),INIT0370 

2  NCAMF,NCAMR,MDTHF,NDThR  INI7C3bO 
COMMON    /TIRIN/    AKT ( 4 ) , SI GT (4 ) , XLAMT (4 ) , AO (4) , Al ( 4) , A2 ( 4 ) , A3 (4) ,          1NIT0590 

1  A4(4)  ,OMEGT(h)  ,AMU(4)tRW(4)  ,FJP(3;>»4),A234(4),  lNITOt.00 

2  A12(4),0MT2A2(4),0MT2Mi(4) ,A23(4),IT1R(4)  INlTOolO 
DATA  RPD/.017h5329/  INIT0620 
RHF  =  O.C  INIT0630 
RhR  =0.0  INIT064C 
IF(ISUS.NE.l)  Rh'X  =  RhO  INIT0&50 
iF(ISUS.EQ.2)  RHF  =  RhOF  TNIT06tO 
CTHO  =  C0S(TKETA0*RPU)  INITOblO 
STHO  =  SIN(THf.  T/;0*KPD)  INn06eO 
SIR  =  XMS»A*&*CTHC/( A+B)  INI70690 
SIF  =  XMS*G*CIHG-S1R  INIT0700 
UTF  =  (SIF/CTHO+XMUF*G)«0.5/AKT(  1)  INn07iO 
DTR  =  {SIR/C1H0-^XMUR*G)»0.!>/AKT(3)  lNlTG/20 
SDl  =  0.5'»(B*XMS*G/(  A+b) -SIF)/AKF  INIT0730 
SD3  =  0.5*(  A'FXMS^G/l  A  +  B)-SIf?)/AKR  1NITC7  40 
HCG  =  -ZCOP  IN  IT  07  SO 
ZF  =  {HCG+A«STH0-RW(  l)-»-DTF)/C1H0-RHF-SDl  IN  ITG760 
ZR  =  (HCG-e*STH0-RW(3)+DTR)/CTH0-RHR-SD3  INnG77G 
FR(1)  -  AKT(l)*uTF  INITG7&0 
FR(^)  -  \-Ril)  IN  IT  0790 
FR(3)  =  AKT(5)*GTA  INITObOO 
FR(4)  =  »-R(3)  IN  IT  06  10 
HI(l)  =  RW(1)-CTF  1NIT062O 
HI  (2)  =  hid)  IN  1108  30 
HI(3)  =  RW(3)-aTR  INIT0840 
HI(4)  =  HI  (3)  IN  IT  06  30 
RETURN  INITObeO 
END  1NIT0870 
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SUBROUTINE    INPUT 

INPTOOIO 

c 

HV0SM-VD2    VERSION 

INPTOO^O 

c 

REVISED    OCTOBER    1975          CALSPAN    CORPORATION 

IN  PT  00  30 

DIMENSION    CARDIM(20) ,ICARD(300) ,DUM(18) 

INPT00  40 

DATA    NBLKS/6/ 

IN  PT  00  50 

WRITE(6,1000) 

INPT0060 

1000 

FORMAT (IHl) 

IN  PT  00  70 

c 

SET    INPUT    CARD    COUNTER 

IN  PT  GO  80 

NC    =    0 

IN  PT  00  90 

c 

REWIND    UNIT    2 

INPTOIOO 

REWIND    2 

INPTOI 10 

c 

READ    A    CARD 

INPT0120 

1 

READ  (5»  5000,  END=999)     (CARDIM(K)  ,  K=l  ,  18  )  ,NShki  ,  NCARD 

INPT0130 

3000 

FO=lMAT<  18A4,214) 

INP10140 

c 

OUTPUT    CARD    IMAGE 

IN  PT  01  50 

WRITE (2,2001)     (CARDIM(K) ,K= 1 , 18 ) ,NSbO, NCARD 

INPT0160 

WRITE (6, 6000)     (CARDIM(K) , K  =  l , 16 ) ,NS EG ,NCAkO 

INPT017G 

6000 

FORMATdH    ,18A^,2I4) 

INPTOibO 

IF(NCARD.GE.9999)    GO    10    20 

INPT0190 

IF{NCARD.LE.O)     GO    TO    90 

IN  PT  02  00 

IF(NSEO.&T.O)    GL    TO    1 

INPT02  10 

NC    =    NC+1 

IN  PT  02  20 

ICARD(NC)    =    NCARD 

INPT0230 

GO    TO    1 

INPT02  40 

20 

REWIND    2 

INPT0250 

C 

TEST    FOR    AT    LEAST    ONE    CARD    OTHER    THAN    9999 

IN  PT  02  60 

IF(NC,LE.O)    GO    TO    91 

IN  PT 02  70 

c 

SET    COUNTER    10    PROCESS    ALL    BLOCK    NUMBERED    CARDS 

INPT02bO 

IC    =    1 

IN  PT  02  90 

c 

DETERMINE    CARD    FORMAT    AND    TRANSFER    TO    PROPER    CARD    BLOCK 

INPT03  00 

c 

SUBROUTINE    TO    STORE    DATA 

IN  PT  03  10 

21 

NBLK    =     1CARD(IC)/100 

IN  PT  03  20 

NBCRD    =    ICARD( IC)-NBLK*100 

INPT0330 

C 

FORMAT    TEST 

INPT03  40 

IF(NBCRD.EQ.O)    GO    TO    22 

IN  PT  03  50 

C 

NUMERIC    INPUT 

IN  PT  03  60 

READ(2,2000)     ( DUM( K ) ^Ksl , 9) ,NSEQ tNCARD 

IN  PT  03  70 

2000 

F0RMAT(9F8 .0,214) 

INPT0380 

GO    TO    23 

INPT0390 

22 

CONTINUE 

INPT0400 

C 

ALPHANUMERIC    INPUT 

IN  PI  04  10 

RE AD (2, 2001)     ( DUM( K ) ,K =1 , 18 ) ,NSEQ,NCARD 

IN  PT  04  20 

2001 

F0RMAT{18A4,2I4) 

INPT0430 

C 

BRANCH    TO    PROPER    SUBROUTINE    TO    STORE    INPUT 

IN  PT 04 40 

23 

IF(NBLK     .LE.O)    GO    TO    92 

INPT0450 

IF(N8LK.GT.NBLKS)    GO    TO    93 

IN  PT  04  60 

GO    TO (100, 200, 300, 400, 500, 600), NBLK 

INPT0470 

C      PI^INT    ERROR    MESSAGE    HERE    ? 

INPT04feO 

100 

NERR    =    0 

INPT0490 
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CALL    BLK01(N6LKtNBCRD,NS tQ,NCARL,DUM,NERR  )  INPT0500 

TEST     FO^     ERR(jR  INPT05  10 

IF(NERR.tQ.O)    GCi    TO    30  INP7  05  20 

GO    10    94  INPT0530 

200    CALL    BLK02(NBLK,NBCRD,NSEW,NCaRD|DUM|NERR)  INPTOS^O 

IF(NERR.tO.O)    GL    TU    30  INPTO^t^O 

GO    TO    94  INPT0360 

300    NE^R    =    0  INPT05  70 

CALL    eLK03(r>JbLK,NBCRDtNSFU»NCARDtDUM,NERR)  INPT05>80 

IF(fMERR.tQ.O)    GO    TU    30  IN  PT  05  90 

GO    TO    94  INPT0600 

^00    NhRH    =    0  1NPTC610 

CALL    bLKG4(NbLK,NfcCRD»NS£Q,NCARDfDUM,NERR)  INPTOo^G 

IFiNERRcEU.O)    GO    TO    30                                                  ,  INJP1G630 

GO    TO    9^                                                                                             '  INPTGt,4G 

500    NE.-^R    =    0  IN  PT  06  to 

CALL    BLK05(MBLKtNaCRD,NSEG,NCARD,DUM,NERR)  INP10660 

IFINERP.EQ.O)    GL    TU    30  INPT06  70 

GO    TU    94  INPTOobO 

600    NERR    =    0  IN  PT  06-90 

CALL    bLK06 (NbLKtNBCRD,NStU,NCARD,DUM,NeRR )  INPT070G 

IF(NERR,i;a.O  )    GO    TO    30  INPTOaO 

GO    TO    94  IN PT 0720 

30    CONTINUE  1NPT0730 

TEST     IF    ALL    CARDS    ARE     READ  INPTG7^C 

IC    =    lC  +  1  INPT075G 

IF(IC.GT.NC)    GO    TO    40  INPTC7tC 

GET     NEXT    CARD    FROM    UNIT    2  INPT077O 

GO    TO    2  1  lNPT07bO 

40    CONTINUE  INPT079C 

SEARCH    FOR    END    OF    DATA  INPTOaOO 

READ(2,2001)     ( GUM (<) ,K=1 , 18 ) , NS t Q, NCAPD  INPIOSIO 

IF{NCARD.NE.99«?9)    GG    TO    9^  INPTOb^G 

GO    TO    5  0  INPT0t30 

999    WRITE(6 ,6001)    NCARD  INPT0640 

6001  F0KV,AT{5tH    UNEXPECTED    END    OF    FILL    ENCOUNTERED    IN    STMT    NC .     1    OF    SUBINPT0b50 
1                      3AHR0UT1NE    INPUT.        LAST    CARD    READ    WAS        ,14       )  INPTOd60 

GO    TO    49  INPT08  70 

90  WRITE(6,6002  )  INPTGEbO 

6002  F0RMAT(f>6H    A    CARD    NUMLERFC    LESS    THAN    OF     EQUAL    TO    ZERO    WAS    ENCOUNTE  IN  PT  08«0 
1  50HRED    IN    SUBROUTINE     INPUT.       CARD     IMAGE    PRINTED    ABOVE        )  INPT0900 

GO    TO    h9  INPT09  10 

91  WRiTt(  6,6003  )  INPT09<^G 

6003  F0RMAT(33H    THE    NUMBER    OF    CARDS    READ    IS    ZERO          )  INPTu930 
GO    10    A  9  IN  PT  09  40 

92  WRITE(6,6004  J  INPT09r>0 

6004  F0RMAT(5fcH    A    BLOCK    NUMBER    OF    LESS    THAN    OF    EQUAL    TO    ZtRO    HAS    BEEN    0INPT0960 
1                      7HBTAINED          )  INPT0970 

GO    TO    49  INPT09fcO 

93  WRITE(6,6005)  INPT09V0 

6005  F0RMAT(56H    A    BLOCK    NUMBER    LARGER    THAN    THE    ALLOWED    NUMBER    HAS    BEEN    INPTIOOO 
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1                     SHObTAlNLD          )  INPTIOIO 

GC    TO    49  IN  PT  10  20 

94  WR1TE(6,6006)    NBLK,NBCRD  ,NSEt)  »NC  ARD  ,NERR  INPT1030 

6006  FGKMAT(fj6H    AN    ERROR    HAS    OCCURRED    IN    STORING    INPUT    VALUES    IN    ONE  OFINPTIOAO 

1  23H    THE    BLKXX    SUBROUTINES.               /  INPTlObO 

2  39H    THE    CALLING    ARGUMENTS    FROM    INPUT    ARE     :          /  INPT1060 

3  7H    NBLK    =, 14, 2X, 7HNBCRD    =, 14,  2X ,6HNSE0    =, I4,2X , 7HNCARD    =,  INPT10  70 

4  I4,2X,6HNtKR    =,I*t             )  IN  PT  10  80 
GO    TO    49  INPT  1090 

95  WRITE(6,60071  INPlllOO 

6007  FORMATCSm  AN  EXPECTED  9999  CARD  HAS  NOT  BEEN  ENCOUNTERED  AFTER  STINPTlilO 
1         20H  MT  NO.  40  IN  INPUT.       )  INP11120 

49  STOP  INPT1130 

50  RETURN  INPT1140 
END  INPT  11  50 
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10 
20 

21 


12 


14 


16 


22 


19 


23 


SUBROUTINE     INIPR    ( F, IW , XMA, ALP, NK.NA.XM, AX , ANS, ERR ,ND1 t ND2 ) 
HV0SM-VD2    VbRSlON 

REVISED    OCTOBtR    1975         CALSPAN    CORPORATION 
DIMENSION    FX(3)  ,XMA(I\iDl)  »ALP(1)  t  F(  NDl  ,ND2  ,  1 ) 

NCTb"    VARIABLE    DIMENSIONS 
REAL     INTLRF 

I.MIERF  (X,X1,X2»Y1,Y2)    =    Y2    -    (  X2-X  )*  {  Y2-Y1 )  /  (  X2-X  I ) 
ERR=0.0 
NAl-NA 
XX    =    AX 
X     =    XM 
NMl     =    NM 
DO    8     l=2tNMl 
1F(XMA{  1)     -    X  )     8,6,6 
11  =  1 

GO    TO     10 
COiMTlNUt 
U=NM1 
IF(     XMA(il-l)-XV,A(  ID)  21,20,21 

ERr<-l,0 

GO    TO    2i 

DO     14       I=2,NAl 

IFIALP(l)-XX)     14,12,12 

J1  =  I 

GO    TC     16 

CONTINUe 

J1=NA1 

JJ=Jl-2 
IF(     ALP(Jl-l) 


-ALP(Jl)  )22,20,22 


DC  19 
J  =  JJ* 
FX(L) 
FX(3) 

ANS    = 
RETURN 

END 


L=l,2 


=    INTERF(X,XMA(I1-1),XMA( II ) ,F ( 11-1 , J , 1 W ) ,F ( 1 1 , J , I W ) ) 

=    INTERF(XX,ALP(J1-1),ALP(J1),FX(1) ,FX12) ) 

FX(3) 


IN TP  CO  10 
IN  TP 00 20 
INTPG030 
IN  TP  00  40 
IN  TP 00 50 
IN  TP 00  to 
INTP00  70 
iNTPOOiO 
INTPOOSO 
INTPOIOO 
INTPOl  10 
INTP0120 
IN1P0130 
INTP0140 
INTP0150 
INIPOitO 
INTPOl 70 
INlPOltO 
IN  1  Pol  90 
IMPO^OO 
IN  TP  02  10 
IN  TP  02^0 
INTP02  30 
INTPOl  40 
1NTP02  50 
lNTP02(-0 
INTPO270 
INTP0280 
INTP02  90 
INTP0300 
INTP031C 
INTP03  20 
INTP0330 
INTP0340 
INTP0350 
INTP03  6G 
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SUBROUTINE    INTRPH  TABLE  t  XMIN^  XMAX,  DX,  X,  Y  )  INTROOIO 

C  HV0SM-VD2    VERSION  INTR002G 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION  INTR0030 

C  QUADRATIC    INTERPOLATION    SUBROUTINE     INTRPL , ADD  ITICNAL    ENTRY    INTRPC    INTR004G 

DIMENSION    TABLECl)  INTR0050 

ENTRY    INTRPC(TABLt,XMlNfXMAX,UX,X,Y, SLOPE)  INTR0060 

1  XLK  ~  AM1N1(X,XMAX)  INTR0070 
XLK  =  AMAX1(XLK,XMIN)  INTROObO 
Nl  =  (XLK-XM1N)/DX  +  1.2  INTPOO<^0 
N2  =  Nl+1  INTROIOO 
NT  =  {XMAX-XMIN)/DX+I.2  .  INTROiiO 
NO    =    Nl-1  INTR0120 

2  IFINO.GT.O)  GO  TO  3  IN1R0130 
NO  =  Nl  INTR0140 
Nl  =  N2  INTROi&O 
N2    =    Nl  +  1  INTROIfcO 

3  IF(N2.LE.NT)  GO  TO  4  INTR0170 
N2  =  Nl  INTR0180 
Nl  =  NO  INTR0190 
NO    =    Nl-1  INTR0200 

^    XXX    =    FLGAT(NO)*DX+XMIN  INTR0210 

DX2    =    DX**2  INTR0220 

A=     (TAELE(N2)-2.0*TABLE(N1)+TABLE(N0))/(2.0«DX2)  INTR0230 

B=     (TABLE(Nl)-TABLE(NO) )/DX-A*( 2.0«XXX-DX)  INTR02^0 

C    =    TABLt(Nl)-( A*XXX**2+B*XXX)  INTR0250 

Y    =     (A*XLK+B )*XLK+C  INTR0260 

SLOPE    =    2.0    *    A    ♦    XLK    +    b  INTR0270 

RETURN  INTR0280 

END  INTR0290 
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SUBROUIINt    INTRP5(INDX)  INT500  10 

HV0SM-VD2    VERSION  INT&0020 

REVISED    OCTOBER    1975         CALSPAN    CORPORATION  INT50030 

COMMON/INPT/PHI0,THETA0,PSIO,P0,CO,R0,XCOPtYCOPtZCOP,UO»V0,WO,  INT!>00^0 

1  A,B,DFL10,DEL20,DEL3  0,  PHIR0,DFL10D,DEL10D,DL-L30D,  IN  T5  00  50 

2  PHlRODtTF.TR ,ZF,ZR,RhO,AKRS,XMUR,  INT50060 

3  XMS,XMUF,XIX,XIY,XIZtXIXZ,CF,AKF,XLAMF ,DMEGF ,CFP » FPSF ♦ IN T5 00 70 

4  RF,CPf AKR,XLAMK,OMEGRtCRP»EPSR,RR,TStTHMAX,DTCCMP,TOf     INT5O0  8O 

5  Tl  ,DTCMP1,DTPRNT  ,MODE,  EBAR,  EM  ,AAA  ,HMAX  ,HK.l  N,  BET,  G,  IN Tb  00 SO 

6  HED(36) ,DADE (3) ,XlR,Xl,YitZl»X2,Y^,Z2,PHlC (50) ,DELB,       INT50100 

7  ljELE,DDtL,NDtL,PSIF(50) ,T0F(50) , TtR ( 50 ) ,Tb ,TE, TI NCR,        INT5  01 10 

8  NZTAB,NZ5,X3DRY(4,5),PSbDRY(4,5),YBDRY(2»5  ),NBX{5)  ,  INT5  0i^^0 

9  NBY{5) ,NTbLl ,N1PL2,NIBL3,Z&P( 21,21,5)  1NT50130 
COMMON/ INPT/XB( 5) , XE ( 5 ) , X  INCR ( 5 )  ,NX (5 ) , YB ( 5) , YL ( 5) , YINCR ( 5 ) ,NY ( 5 ) ♦ IN  1501 40 

1  XXZGP5<21),YYZGP5(21) ,AMU&(5) ,PSBDR0(h,5) ,UV WM IN ,P0RMI N    IN T5 01 50 

COMMON    /DIMV/XlP,X2P,X3P,X^P,YlP,Y2P,Y3P,Y4P,ZlP,Z2P,Z3P,Z4P,PHIl,INT:>0lfcG 

1  PHI2,PHI3,PHI'+,PSI  1,PS12,PS15,PSI4,CAYW(4)  ,CbYW(4),        INT 5 01  70 

2  CGYW(4) ,ZPG1 (4),ThGl(4),PH&l ( 4 )  ,  CPG (4  )  , SPG ( 4 )  ,CTG (4 ) , IN T5 01 E€ 

3  STG(4) ,CAGZ(4) ,CBGZ(h) ,CGGZ(4),D1(4),D2(4),D3(4),  INT5019G 

4  XLMi(4) ,XLM2(4) , XLM3 ( 4 ) , AMTX ( 3 , 3 ) , CMTX ( 3 , 4 ) ,XGPP (4 ) ,     INT5  02  00 

5  YGrP(4)  ,ZGPt- (4),CMATX  (10,11),DELTA(4)  ,CAR(4),CBR(4)  ,     INT502i0 

6  CGR(4) ,FR(4)  ,H1(4) ,FC(4),TI(4),AX(4),BX(4),CX(4) ,  IN T5 02 20 

7  CIXG(4) ,UG{4),STXG(4),AY(H),bYI4),CY(4),CPYG(4j,  INT50^30 

8  SPYG(4) ,VG(4),PSIIP(4) ,PHICI (4) , C AC (4 )VCBC (4 ) ,CGC (4 ) , IN T502 40 
V  FCXU(4),FCYU{4),FCZU(4),FS(4),CAXW(4),CBXW(4) ,CGXW(4) INT5G2  50 

COMMON    /DIMV/AS  (  4  )  ,  B  S  (  4)  ,  CS  (4  )  ,  C  AS  I  4  )  ,C  BS  (  4  )  ,  CGS  (  4  )  ,b'E  TP  (  4  )  ,  lN7  502tO 

1  btTbR(H),FSXU(4) ,FSYU(4),FSZU(4) ,FRXU(4),FRYU(4) ,  INT50270 

2  FRZU(t),FXU(4),FYU(4)  ,FZU(4) , SI  ( 4 ) , Fl FI( 2 ) , F 1 R 1 { 2 ) ,        I  NTS  02 bO 

3  F2FI (2) ,r2RI (2) ,GAH(4),CBH(4) ,CtH(4)  INT502S0 
DIMENSION  XP(4) ,YP(t),ZP(4),PHl 1(4) ,PS1I(4)  INT5G30O 
kOJ I  VALENCE     (XP(i),XlP),  (YP( 1 ),Y1P) ,(ZP(1) ,Z1P),(PH1I(  1) ,PHI1) ,          INT5  03  10 

1  (PSiK  1),PSI  1)  INT5032C 

COMMON    /tCMP/SUMM,lHETN,PHlN,PSIN,PI,RAD,GAMl,CAM2 ,GAM3 , GAM4, GAM5 , IN T5 03 30 

1  GAM6,GAM7,GAMI,GAM9,THETT,PHIT ,PS1T,ZR0,TRU2,  INT50340 

2  TF02,T1Z,RHD2,RH0MUR,AMUF,BMUR,ZPR,TM4,RHMR2,AC2APB,     IM5  05  50 

3  B02APfi,eFTF ,TSU2,RRTS,BR0MUR,XMUF02,AXMF02,XMTF04,  INT503t.O 

4  XIZR,RTR,RHMR2I,XIXP,XIZP,XIXIP,X1YZP,D1PD2,D1MD2,  INT50370 

5  ZRD3,ZRD3P,ZFD3R,ZFD12,TIZ2,TG61,DDlP2,DDlM2,RPR,PHRPINT503b0 

6  ,1 ANTP,SPHTP,CPHTP,SECTP,SFXS,SFYS,SFZS,SNPS,SNTS,  INT503V0 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYU,SFXU,SFYUF,  INT50tC0 
d                                    SFYUR,SFZU, C0S1H,SINTH,C0SPS,SINPS,C0SPH,SINPH,ANC1 ,     IN T5 04  10 

9  AN&2,CPHI,SPHI,CPSI,SPSI,P1,P7,P3,P4,P5,P6,TX,TY,TZ  INT5C420 
COMMON    /C0MP/TRH,DISTX,0ISTY,DISTD,DISTS,D21,ZETA^,ZETA4D,ZETA3,        IN T5 04 30 

1  ZETA3D,SFZ1  ,SNPU,SNTU,HCGMl,HCGH2,HCGH3,hCGH4,TERMl,     I  NT  5 04 40 

2  TERM2,SNPSU,SNPR,HCbMl,HCBH2,HCBH3,HCBH4,HCAhl,hCAh2,INT5  04  5G 

3  HCAH3,HCAH4,U£/,WP,UR,C;R,VP,PR,?2,Q2,R2,VR,W0,PU,PHIR2INT5  04  60 

4  ,PHIkD2,RPHRD,GCTH,GSTH,GCISP,GC7CP,XXX,YYY,IX,IY,XXl, INT  5 04 70 

5  XX2,YY1,YY2,THG1,THG2,PHG1,PHG2,ZZ1,ZZ2,LLL  INT504eO 
DIMENSION    HCAH(4)  ,HCBH(h)  ,hCGH(4)  INT504S'0 
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EQUIVALENCE     {HC  AH(  1 )  ,HCAHl )  ,  (  HCbH(  D.HCBHDt  (HC&H(  D.HCGHl)  INT5  05  00 

COMMON    /COMPN/    FRSP ( 4) ,F RCP ( 4 ) . I CBHIT , JCBHIT  ,  INT50510 

1  DPSINT,TANPCl,TANPC2»PHIClR,PHIC2RtAMUCMP,PHIlD,  INT50520 

2  PH12D,LCBl(4),LCB2(4),lHlT,AJMTX(3,3),BMTX(3,3)t  INT50330 

3  SFRX(4)  ,SFRY(4),SFHZ(4),T1PS1,T2PS1  ,XMUGI(4)  IN150f>40 
LOGICAL  LCB1,LCB2  IM50550 
COMMON    /TIRIN/    AKT (4 ) , SI GT ( 4 ) , XLAMT (4 ) , AO ( 4 ) , Al ( A ) » A2 ( 4 ) , A3 (4 ) ,           INT50560 

1  A4(4) ,0MEGT(4) ,AMU(4),RW(^),FJP(35,4),A234(4),  INT30570 

2  A12(4 ),0MT2A2(4) ,0MT2M1(4) ,A23(4),ITIR(4)  INT50360 
C  INT3O590 
C  NWHEEL  =  INDX  IN  T5  06 00 
C  IXBDRY  =  0  INT50610 
C  lYBDRY  =  0  INT50620 
C  XLCEPT=U.O  INT50630 
C  XRCtPT=0.0  INT506A0 
C  15  =  0  INT50650 
C  IN150660 

ERR    =    0,0  INT50670 

10  XXX  =  XP(INDX)  INT506faO 
YYY  =  YP(INDX)  INT50690 
IT  =  0  INT50700 
DO  11  1=1,N2TAB  INT50710 
IF{  XB(  1  ).EQ.XE(I)  .OR.  YB (I ) ,EQ .YE ( I ) )  GC  TO  il  INT50720 
lF(XXX.bE,XB(I).AND,XXX.LE,XE{I  ) .AND. YYY. G£. YB { I  J . AND. YYY. LE.YE( I )INT5 0730 

X    )     IT    =1  INT50740 

11  CONTINUE  INT5  0750 
IFdT.Nf.O)    GO    TO    15  INT50760 

13    ZPGI(INDX)=    0.0  INT50770 

THGI(INDX)=    0.0  INT50780 

PHGI(INDX)=    0.0  INT50790 

XMUGKINDX)     =AMU(INDX)  INT50800 

RETURN  INT5  08i0 

C                                          ITV    =    1    IDENTIFIES    THE    VARIABLE    INCREMENT    TABLE  HERE.          INT50820 

15    ITV    =    0  INT50830 

IF(     IT.EQ.    NZTAB    .AND.    N25.NE.0)     ITV    =    1  INT50640 

XMUGKINDX)     =    AMUG(IT)*AMU(INDX)  INT50850 

XBT    =    Xb(IT)  INT50860 

XET    =    XE(IT)  INT50870 

YBT    =    YB(IT)  INT50880 

NXT    =    NX(IT)  INT50690 

NYT    =    NY(IT)  INT50900 

NBXT=    NBX(IT)  INT50910 

NBYT=    NBY(IT)  INT50920 

IFCITV.GE.l)    GO    TO    20  INT50930 

C                    TABLES    WITH    CONSTANT    INCREMENT  INT50940 

XINCRT       =      XINCR(IT)  INT50950 

YINCRT       =      YINCR(IT)  INT50960 

IX    -{XXX-XBT)/XINCRT    +    1.0  INT50970 

lY    =(YYY-YBT)/YINCRT    +    1.0  INT50980 

XXI    =    XBT    +    FL0AT(IX-1)*XINCRT  INT50990 

XX2    =    XXI    ♦    XINCRT  INT51000 
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YYl    =    YBT    ♦    FLOAK  IY-1)*YINCRT  IN  T5>  10  10 

YY3    =    YYl    +    YINCRT  INT51020 

GO    TO    40  1NT&1030 

C                    IX    IS    LOW    INDEX    FOR    X     ,  lY    IS    LOW    INDEX    FOR    Y                                                   INT51040 

C                    FLOAT(lX-l)     IS         COUNT  CF    INCREMENTS                                                                      INT510SG 

C  VARIABLE    INCREMENT    TABLE    (ARGUMENTS    GIVFN,     XXZPG5 (2 1 ) , YYZPG5 ( ? 1 ) INT5 10 60 

20  00  22  I=2tNXT  INTi>1070 
IF     (XXZGPbd)    -    XXX)     22,21,^1  lNT510t0 

21  IXX  =  I  INT&10  90 
GO    TO    2t>  INT51100 

22  CONTINUE  INTblliO 
IXX    =    NXT  INT51120 

25  IX  =  IXX-1  INT5113G 
IF     (XXZGP5(IX)    -XXZGPSdXX)  )    27»26,27  1NT5114G 

26  ERR  =  1.0  INT5il50 
GO    TO    15  INT511tO 

27  DC  29  1=2, NYT  INT51170 
IF     (YYZGP5(I)    -    YYY)    29,2t,28  INT51ieO 

28  IYY=  1  INT51190 
GO    TO    30  INT5  12G0 

29  CONTINUE  INT5  1210 
1YY=    NYT  INT5i220 

30  lY  =  lYY  -  1  IN T5  12  30 
IF(  YYZGPi.(IY)          -    YY7GP5(IYY)  )35,26,35  INT512.^0 

35    XXI    =    XXZGP5(1X)  INT5i250 

XX2    =    XXZGP5(IXX)  1NT51260 

YYl    =    YYZGP5(IY)  lisiT5  127C 

YY3    =    YYZGP5(IYY)  INT512bO 

XINCRT    =    XX2    -    XXI  1NT5129C 

YINCRT    =    YY3    -    YYl  1NT5  1300 

40  XX3  =  XXI  INT51310 
XX4    =    XX2  lNT5i320 

C                    SFAKCH    FDR    Y    EGUNDARIES  IN    THIS    MESH.       Y    BOUNDARIES    HAVE    CONST ANINT5 13 30 

IF     (NBYT    .EQ.    0)    GO    TU    54  INT51340 

JJ    =    0  INT51350 

DO    4  1     1=    l,NbYT  IN  T5  13  60 

IF(YY1.GE.YBDRY( I,IT ).0R.  YbDRY ( I, IT ) .GT. YY3 )    GO    TO    41                                 INT51370 

JJ    =    I  lNT5  13faO 

C  INT5  1390 

C               lYBDRY    -    I  INT51400 

C  IN  T5  1^10 

GO    TO    42  INT5l4i^0 

41  CONTINUE  INTp1430 

42  IF(JJ,EU.O)  GO  TO  54  INT5i^40 
IF(YYY.GE.YBDRY(JJ,I T) )G0  TU  50  1NT51450 
YY3  =  YYl  INT51460 
IFdTV.GE.l)    GO    TO    44  INT51^70 

43  YYl  =  YY3  -  YINCRT  INT5l4eO 
lY  =  lY  -1  IN T5  14 90 
GO    10    54  INT51500 

44  YYl    =    YYZGP5(IY-1)  INT5i510 
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lY    =    IY-1  INTSli>i:0 

YINCRT    =    YY3    -    YYl  INT51530 

GO    TO    54  INT5I540 

50  YVl  =  YY3  IN751550 
IF(ITV.GE.l)     GO    TO    52  INT51560 

51  YY3  =  YYl  +  YINCRT  INT51570 
lY  =  lY  ♦  1  INT515bO 
bO    TO    S't  IN  T5  1590 

52  YY3  =  YY2GP5(1Y  +2)  INT51600 
lY  =  lY  +  1  INT51610 
YINCRT    -      YY3    -    YYl  lNT5  1t)20 

54    YY2    =    YYl  INT51fa30 

YY4    =    YY3  INT5  1640 

SEARCH   FOR    SLANTED    BOUNDARIES  INT51o50 

IF     (NBXT    .EQ.    0)    GO    TO   61  INT51660 

II    =    0  IN T5  16  70 

DO    60    I=1»NBXT  INT5168G 

XBDRT    =    XBDRY(I,IT)  INT5  1690 

PI    AND    2,*PI     ARE    SINGULARITIES    FOR    COTAN  INT5170O 

IF(     AMOD(PSBDRY(I,IT )    ,    PI)       .lQ,    0.0)    GO    TO    60  INT51710 

CTNPSB    =   C0TAN(PS6DRY( I,IT))  INT51720 

XLCEPT    =      XBDRT    ♦    ( YYl-YBT ) *CTNPSB  1NT51730 

XRCEPT    =      XBDRT    ♦    ( YY3-YBT) *CTNPS8  INT5 1740 

11=    I  1NT51750 

IF(     XXl.LE. XLCEPT    .AND,    XLCEPT. LE. XX2 )    GO    TO    bO  INT5  1760 

IF(XLCEPT.LE.XX1    .AND.    XRCEPT .GT .XX3)    GO    TO    80  INT51770 

IF(XLCEPT.GE.XX2    .AND.    XRCEPT .LT .XX4)    GO    TO    80  INT517B0 

60  CONTINUE  INT51790 

NO    SLANT    BOUNDARY    IN    THIS    MESH  INT518G0 

61  XXMXXl  =  XXX-XXl  INT51610 
YYMYYl  =  YYY-YYl  INT5  1&20 
ZPGl  =  ZGPdX  ,IY  ,1T)  INT51830 
ZPG2  =  ZGP(IX+1  ,IY  ,IT)  INT51640 
ZPG3  =  ZGPdX  ,IY  +  1  ,IT)  1NT51850 
ZPG4  =  ZGPdX  +1,IY+1  ,n)  INT51860 
ZZl  =  ZPGl  ♦  XXMXXl*  (ZPG2-ZPG1  )/XINCRT  INT5  1870 
ZZ2  =  ZPG3  +  XXMXXl*  (ZP&4-ZPG3  )/XINCRT  INT51880 
ZPGIdNDX)  =  ZZl  ♦  YYMYY1*(ZZ2-ZZ1)/YINCRT  INT51890 
THGl  =  ATAN2  (  ( ZPG1-ZPG2 )  ,XINCRT )  INT5  1900 
THG3  =  ATAN2  { ( ZPG3-ZPG4  I  ,XINCRT  )  INT51910 
THGKINDX)  =  THGl  ♦  YYMYYl  *(THG3-  THGD/YINCRT  INT51920 
IF(YYMYYl)    62,65,63  INT51930 

62  ZPHl  =  ZZl  INT51940 
ZYINCR  =  -YYMYYl  INT5  1950 
GO    TO    67  INI5  1960 

63  IF(     YY3-   YYY)    65,64,65  IN751970 

64  PHGIllNDX)  =  ATAN2(  (ZZ2  -  ZZD/YINCRT,  C0S(TH61))  INT51980 
NOTE  THGl,  AS  ROLL  REFERENCE  IS  TO  POINT  1  HERE  INT51990 
GO    TO    68  INT52000 

65  ZPHl  =  ZZ2  INT520  10 
ZYINCR    =                 YY3    -    YYY  INT52020 
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67    PHGKINDX)    =    ATAN2(     (  ZPHl-ZPG  I  (  INDX  ) ) /ZYINCR  ,    CDS(  THGI  ( INDX  )  )  )  INT52030 

63    RETURN  INT52040 

C      6!^    ZPGIIO    =    ZPGKINDX)  1NT32050 

C              THGlia    =    THGK  INDX)/RAD  INT52060 

C               PHGIIO    =    PHGK  IIMDX)/RAD  INTb20  70 

C3000    KETUaN  lNlb20fcO 

C                      SLANT    BOUNDARY    IN    THIS    MESH  1NT5209C 

80    ZXINCR    =    XINCRT  INT52100 

C  INTblllO 

C               IXBDRY    =    II  lNT52i20 

C  INT5  2130 

IF(     XXX     ,GT.(XBDRT    +     (YYY    -    YBT)*    CTNPSB)     )    GO    TO    1^0  INT^2:1^0 

C  IN T5 2 150 

C  WHEEL    HAS    NOT    CROSSED    THE    SLANT    BOUNDARY,    STEP    BACK    ON    X    , PERH AP IN T5 21 60 

C  INDEX    PGR    HIGH    GRID    X    IS     IX+1,     {XX2    AT     IX+ 1 , I Y ) , (X X4    AT    IX+it 1Y+ 1 ) INTS 2i 70 

C                       COUNT    CF    CONSTANT    INCREMENTS    FOR    XX2    ISIX  INT52lfcO 

NXW    =    IX  INT5  21SrO 

IF(ITV.GE.l)    GO    TO    93  IN T5 22 00 

63    XX2W    =    XX2    ♦    XINCRT  INT522  10 

DO    65    1  =  1,  NXW  INT  5 22  20 

XX2W    =    XX2W    -    XINCRT  INT52^30 

IF(     XX2W    .GE.    XLCrPT J    GO     TC    85  INT5  22  40 

1X2W=    IX    +2    -    I  INT52250 

GO    10    90  INT52260 

85    CONTINUE  INT52270 

1X2W    =■    2  lNT5?2b0 

XX2W    =    XBT+    XINCRT  INT522  90 

90    XXI    =    XX2W    -    XINCRT  INT523GO 

XXtW    =    XX^    +    XINCRT  INT52310 

DO    92       1=1, NXW  INT52320 

XX4K    =     XX4W-    XINCRT  1NT5  23  30 

TFiXX'tW     .GE.    X^CEPT)    GO    TC    9^  INT523^0 

IX4W    =    IX       +2-1  1NT5  2j50 

GO    10       100  INT523  60 

92  CONTINUE  INT52370 
IX-VW  =  2  IN1523&0 
XX-^W  =  XbT+  XINCRT  INT52390 
GO    TO    100  INT5  2400 

93  NXW5  =  IX  INT51410 
NXWW  =  IX  +2  INT52^20 
DO  95  i=  1,NXW5  INT52430 
IX2W  =  NXWW  -  I  lNT5i^40 
IF(     XXZGP5(IX2W)     .LT.    XLCtPT)    GO    TO    96  lNT52^f.O 

95  CONTINUE  INT5  2At.C 
IX2W    =    2  INT52t70 

96  XX2h  =  XXZGP5{IX2W)  lNT52^tC 
XXI  =  XXZGP5(  IX2W-1)  INT52h90 
XINCRT  =  XX2W  -  XXI  INT52500 
DO  97  1=  1,NXW5  INT52510 
IX^W  =  NXWW  -  I  INT52520 
IF(XXZ&P5(IX4W)     .LT,    XRCEPT)    GO    TO    9b  INT52i.30 
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97  CONTINUE  INT^2t40 
IX4W    =2  lN752i»t.O 

98  XX4W    =    XXZGP5(IX^W)  INT5  25.60 
100    IXIW    =     1X2W    -1  1NT52p7C 

IX3W    =     1X4W    -1  IN752i^bO 

IFdXlH       -          1X3W)     104,103,104  INT323<;'0 

103  IX  =  IXIW  1NT52600 
GO    TO    61  INT52610 

104  ZPGl  =  ZGPdXlW,  lY,  IT)  INT52620 
ZPG2  =  ZGP(IX2W,  lY,  IT)  1NT!)2630 
ZPG3  =  ZGP(IX3W,  IY+1,  IT)  INT!)264G 
ZPG4  =  ZGP(IX4W,  IY-»1,  IT)  1NT526^0 
1F(IX2W    -    1X3W)     106,107,110  INT52660 

106  ZPHl       =       ZGP(IX3W-1     ,IY+1,     IT)  INT52670 

ZPHl    IS    POINT    FIVE    HERE  INT5>26fc0 

GO    TO    106  INT526S0 

107  ZPHl          =    ZPG3  INT52700 

108  ZPH2  =  ZPG2  INT52710 
ZTHl  -  ZPG3  INT52720 
ZTH2  =  ZPG4  INT5-2730 
IF(  ITV.GE.DZXINCR  =  XXZGP5(IX4W)  -  XXZ&P5(IX3W)  INT52740 
GO    TO    115  INT5275>0 

110     IFdXlW    -    IX4W)     115,112,111  INT52760 

in     lb    =MAX0(IX1W-1     ,1)  INT52770 

ZPH2       IS    POINT    FIVE    HERE  lNT527eO 

ZPH2            ^ZGPdb,    IY,IT)                      '  INT52790 

GO    TO    113  INT52800 

112  ZPH2            =   ZPGl  INT52&10 

113  ZPHl  =  ZPG4  INT52eiO 
ZTHl  =  ZPGl  INT52b30 
ZTH2  =  ZPG2  INT52B^0 
IF(  ITV.GE.DZXINCR    =    XXZGP5(IX2W)    -    XXZ&P5(IX1W)  INT52850 

115    ZZZl       =      ZP&2  INT52860 

XXMXXl     =    XXX    -    XX2W  INT52670 

YYMYYl    =    YYY    -    YY2  INT528S0 

GO    TO    180  INT52e90 

WHEEL    HAS    CROSSED    SLANT    BOUNDARY.    STEP    AHEAD    ON    X,     PERHAPS.  INT52900 

140    NXW    =■   NX!    -1  INT52910 

KXW    =    IX  INT52920 

IF(ITV.GE.l)    GO    TU    153  INT52930 

143    XXIW    =    XXI-    XINCRT  1NT52940 

DO    145     I    =    KXW, NXW  INT52950 

XXIW    =    XXIW    ♦    XINCRT  INT52960 

IF(XX1W    .LT.    XLCEPT)    GC    TO    145  INT52970 

IXIW    =    1  INT52980 

GO    TO    150  INT52990 

145    CONTINUE  INT53000 

XXIW    =    XfcT-    XINCRT  INT53010 

IXIW    =    NXW  INT53020 

150    XXI    =    XXIW  INT53030 

XX3W    =    XX3    -   XINCRT  IN T5  3040 
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152 

15  3 

155 
156 


157 

153 
160 


163 
1^4 

166 


167 

1,68 


170 
17  1 


172 
173 


DO  152 
XX3W  = 
IF(XX3 
IX3W  = 
GO  TC 
CONTIN 
1X3W  = 
XX3W  = 
GO  1  0 
OC  155 
IF(XXZ 
IXIW  = 
GO  10 
CONTIN 
ixlw  = 
XX IW  = 
XXI  = 
XINCRT 
DO  157 
IF (XXZ 
1X3  W  = 
GO  TO 
lCNTIN 
IX3W  = 
XX3W  = 
IX^W    - 

IX'rW      = 

IPI  IXl 
IX  =  I 
GO  TO 
ZPGl  = 
ZPG2  = 
ZPG3  = 
7PG4  = 
IF( 1X2 
ZPH2  = 
LPh 
GO  TO 
ZPH2  = 
ZPHl  = 
ZTHl  = 
ZTH2  = 
IF(  ITV 
GO  TO 
IFUXl 
15  =  M 

ZPHl 
ZPHl  = 
GO  TO 
ZPHl  = 
ZPH2  = 


1=    K 

XX3W 

W     .LI 
1 

loO 

Uh 
NXW 
XET- 

160 
I    = 

GP5(I 
1 

156 

UL: 
NXW 
XXZG 
XXIW 
=       X 
1=    K 

GP5(I 
I 

158 

Ul 
NXW 
XXZG 
iXlW 
1X3W 

w    -    I 

XI  w 

M 
ZGP( 
ZGP( 
ZGP( 
ZGP( 

W    -    i 
ZGP( 

2    IS 

16b 
ZPG2 
ZPG3 
ZPGl 
ZPG2 

.GE.l 

175 

W     -    I 

INOd 

IS    PO 
ZGP( 

173 
ZPG4 
ZPGl 


XW    ,NXW 

♦    XINCRT 
.    XRCfcPT)    60    TC    152 


XINCRT 

KXW,  NXW 
)  .17,  XLCtPT)  GC  TO  155 


P5( IXIW) 

XZGP5(  IXIW    ■*    1)    ~    XXI 

XW    ,NXW 

)  .LI.  XRCEPT)  GU  TO  157 


P5( IX3W) 

♦  1 

+  1 
X3W)  164,  163, 164 


IXlW,lY,il ) 
IX2W,IY,n  ) 
IX3W,IY  +  l,n) 
IX4W, IY+1 ,IT) 
X3W)     166,167,170 

IX2W+1,IY,1T) 
PGINl     FIVE    HERE 


)ZXINCR    =    XXZGP5(IX2W)    -XXZGP5 ( IX IW ) 

X4W)     175,172,171 
X4W+1,NXT) 
INT    FIVE    HERE 
15, IY+1, IT) 


INT5  3050 

INT5 

30  60 

INT5  30  70 

INT5  3060 

INT5 

30  90 

1NT5 

3100 

INT5 

3110 

I.MS 

2120 

INT5 

3130 

INT5 

3140 

INT5 

3150 

INT5 

3160 

INT5 

317  0 

IN  15 

3110 

INT5 

31<i0 

Ti\T5 

32  00 

IN  15 

32  10 

IMS 

32  20 

IN  15 

32  30 

IN  15 

32*fO 

I  NTS 

32  SO 

INTS 

32  60 

INTS 

32  70 

INT5 

32  to 

IMS 

3290 

INTS 

33  00 

INT^ 

33  10 

INTS 

3320 

IMS 

^3  30 

INTS 

3::- 40 

INTS 

3:^50 

INTS 

33  60 

INTS 

33  70 

INTS 

33  bC 

INTS 

33  90 

INTS 

34  00 

INTS 

34  10 

INTS 

34  20 

INTS 

3A30 

INTS 

3^40 

INTS 

3450 

INTS 

34  60 

INTS 

34  70 

INTS 

3460 

INTS 

34  90 

INTS 

35  00 

INTS 

35  10 

INTS 

35  20 

INTS 

35  30 

INTS 

35  40 

INTS 

3S50 
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ZTHl    =    ZPG3  INT53560 

ZTH2    =    ZPG4  INT53570 

IFdTV.GE.l  )ZXINCR=    XXZ6P5(IX4W)    -    XXZGP5(IX3W)  INT53b80 

175    ZZZl    =    ZPGl  INT53590 

XXMXXl    =    XXX    -    XXI  INT53600 

YYMYYl    =   YYY    -    YYl  1NT5  36  10 

180    ZTH12    =      ZTH1-ZTH2  INT53620 

TTANTH    =      ZTH12/ZXINCR  INT53630 

THGKINDX)    =    ATAN2(     ZTH12         t     ZXINCR)  INT53640 

TCOSTH    =   COStTHGKINDX))  INT53650 

PFAC    =    (ZPHl    -    ZPH2)/YINCRT  INT53660 

PHGKINDX)     =    ATAN2(     PFACt    TCOSTH)  INT536  70 

IF(TCOSTH)     l&6,185tl86  INT53680 

185  TTANPH  =  0.0  INT53690 
GO    TO    187  INT5  3700 

186  TTANPH    =      PFAC/TCOSTH  INT53710 

187  ZPGKINDX)  =  ZZZl  +  YYMYY1*TC0STH*TTANPH  -  XXMXXl*  TTANTH  INT53720 
RETURN  IN T5 37 30 
END  INT5  3740 
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DATE       01/14/76  TIM6       172S>  UPDATL    RPCORD 


SUBROUTINE    MATRIX  MTRXOOIG 

C  HVCSM-VD2    VERSION  MTRXOCi:0 

C  REVISLO    OClObFR     1975  CALSPAN    CDRPORATIGN  MTRX0030 

CDMM0N/lNPT/PHIO,ThETA0,Pi>10TP0,0O,R0|XC0P,YCOP,ZCOP,UC,VO,WO,  MTRX00  40 

1  A,B,DEL10TDEL^0,DtL30tPHIR0tDLL10D,D£L20D»DfcL30D,  MTRXOOfO 

Z  PHlROO»Tf^,TR,ZF,2.R,RhO,AKR5,,XMUR»  MTRXCOfcO 

3  XMSfXMUF  ,XTX,XIY,XIZ,XlXZ,CF,AKF,XLAMF,0MEGF»CEP,fcPSF,MTRXG0  70 

4  RF,CR,AKH,XLAMR,nMEGR,CRP,EPSR,RR,7S,THMAX»07COMP,TO,  MTRXOOeO 
3  Tl  ,1jTCMP1  vDTPRNI  t  KUDE,  EBAR  ♦  FM  ,  AAA  ,HMAX  ,  HMI  N  tBET  tG  ,  MI  RX  00  90 

6  HE  D(  36),  DADE  (  3)  ,  X  IR  ,  XI  ,  Yl  ,  Z  1  ,  X2  ♦  Y2  ,  Z2,  PH.IC  (  50)  ,  DELB  ,       MT  FiXOlGO 

7  DELE,LDEL,NDL-LtPSIF(50)  ,  7  QF  (  50  )  ,  TCK  (  50  )  ,  Tb  ,  T  E  ,  7  INCR  ,  MTRXOl  10 
t  NZTAb,NZ5,X9DRY(4,5) ,PSBDRY(4t5) ,YBDRY I  2 »5 ) » NBX { 5 ) ,  MTRXOl^O 
9                                    NBY(i)»N7BH,NTbL2,N73L3tZGP(  21»21,5)  MTRX0i30 

COMMON/ I NPT/XB( 5 ) ,XE ( 5 ) , X INCR ( 5 )  tNX ( 5 )  ,  YB ( 5 )  , YE ( 5»  , YINCR ( 5 ) ,NY ( 5 ) , MTRXOl 40 

1  XXZGP5(21)  fYYZGP5(2  1)  »  AMUG  (  5  )  »  PSBDRO  (  4  ,5  )  ,UVWM  IN  ,  PQR  MI  N    M7RX015'0 

COMMON    /INTG/Ntw,T,DT,VAR (50) tDERC 50)  MTRXOlbO 

EQUIVALENCE     (U t VAR (  1  ) )  ,  { V t VAR ( 2  )  ) ,  ( W, VAK ( 3  )  )  ,  ( P , VA R( 4)  ) , (0,VAR(5) ) MTRXOl 70 

1  ,(R,VAR(6)),(DrLl,VARI7)), ( D E L IL , VAR ( fc )  )  , ( D E L2 , VaR ( 9 )  ),M7RX01b0 

I  (DLL2D,VAR (IC) ) , (DEL3,VAR ( 11) )  , ( JtL3D,VAR( 12  )) t  M7RX0i90 

3  iPhiR,VAR(  13  )  )r (PHIRD»VAR(14)  ), (THcT7P,VAK( 15)  )  ,  MTRXC2GC 

4  (PhlTP,VAR(l6))  ,  (PSIIP,VAR(17)  )  ,  {XCP,VA1^(1B)  ),  M7RX0210 

5  (YCP,VAR I  19)  ) »(ZCP,VAR(20)  ),(PSIFI,VAR (21)  ) ,  MTRXO^^O 

6  (PSIF]r,VAR{ 22) )  MTRXG230 
tOUI  VALENCE     (UU,L)LK(  1 )  )  ,  (  LV  ,  DER  (  2  )  )  ,  (  DW  ,  DER  (  J  )  )  ,  (DP  ,  HE  R  (  4  )  )  ,  MTRX02  40 

1  (DQtDER(  i.)  )»  (CR,DtR(6)  ),(DDEL1»0ER(7))  ,(DDELlD,DER(fa))M7RX0250 

2  »  (DD  EL  2,L;ER  (9)  ),  (DDEL  2D,  DER  (  10)  )  ,  (D0EL3  tDER  (  li)  )  ,  Ml  RX0^60 

3  (DDEL3D, DER( 1^) ) , (DPHIR,DEK( 13) ) , ( DPhI RD,OER ( 14 ) ) ,  MTRX02  70 

4  OTHTTP,0ER(  1  5  )  )  ,  (  DPHI  TP,  D  ER  (  16)  )  ,  (  DPS  I  TP,  DER  (  17)  )  ,  MTRXOOEO 

5  (DXCP,DER(  18  )  ),  (DYCP,DER(  19)  )  ,(DZCPtDER  (20)  )  ,  M7RXO.:90 

6  (DPSIFI,DER( ^1) ) , (DDPSFI,DER (22) )  MIRXO^OO 
EOJIVALLNCl     (VAR(9),PHIF),(VAR(1U),PHIED),  ( DER ( 9  )  , DPHI F ) ,  KTRXC3  10 

1  (DER(  10)  ,L;PHIFD)  MTRX03  20 

EQUIVALENCE     ( V AR (  1  3 )  ,DEL4 ) , ( V AR ( 14 ),DEL4D) , ( DER ( 13  )  ,bDE L4  )  ,  MTRX03  30 

1  (DER( 14)  ,DDEL4D)  MTRX0340 

COMMON    /UIMV/X1P,X2P  ,X 3P , X4P , Yl P ,Y 2 P , Y3P , Y4P , ZIP , Z 2P , Z3P , Z4P , PHI 1,MTRX03  50 

1  PHI2,PH13,PHI4,PSI1,PS12,PSI3,PSI4,CAYW(4) ,CBYW(4),        M7 RX 03 60 

2  C&YW(4)  ,ZPGUA)  ,THGi(4),PHGl(4)  ,  CPG  (4  )  ,  SPG  (  ^  )  ,CTG(  4  )  ,  MT  RX03  70 

3  STG(4) ,CAGZ(^),CB&Z(4),CGGZ(4),D1(4),D2(4),D3(4),     FT RX 03  BO 

4  XLMl (4)  ,XLM2 (4) ,XLM3{4),AMTX (3,3),CMTX(3,4),XCPP(4) ,    MTRX0390 

5  YbPP{4),ZbPP(4),DMATX(10,ll),0tL7A(4) ,CAR(4)  ,CBR(4) ,     MTRXOhOO 

6  CGR(4)  ,FR  (-*  )  ,HI  (4)  ,FC(4)  ,71(4)  ,AX(4),BX(4  )  ,CX  (t)  ,  M7RXO410 

7  CTXG(4) ,UG{m ),STX&(h) , AY(^) ,bY(4) ,CY( 4) ,CPYG(4) ,  MTRX0420 

8  SPYG(4)  ,VG(  -t),PSIIP(4) ,PH1CI  (4) ,CAC(4),CBC(4) ,CGC(4),MTRX0430 

9  FCXU(4)  ,FCYU(h),FCZU(4),FS(h),CAXW(4)  ,CEXkM(^)  ,C&XW(4)MTRX04  40 
COMMON    /DIMV/AS(4),BS(4) ,CS{4),CAS(4) ,CbS(4) ,CGS(4),FETP(4) t  MTRXG4  50 

1  BETBR{4),FSXU(4)  ,FSYU(4)  ,FSZU(4)  ,FRXU(t),FRYU(H)  ,  M7RX0-t60 

2  FRZU(4) ,FXU(4) ,FYU(4) ,FZU(4) , SI ( 4 ) , Fl F I ( 2 ) , FIRI ( 2 ) ,       MTRX0470 

3  F2FI(2) ,F2R1(2),CAH(4),CBH(^) ,CGh(4)  MTRX048G 
DIMENSK'N    XP(4)  ,YP(^),ZP  (4  ),PHII  (4),PSII(4)  MTRX0^90 
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DATE       01/14/76 


TIME       1725 


UPDATE    RECORD 


EQUIVALENCE    (XP< 1) ,X IP ) , ( YP < 1 ) , YIP  J , ( ZP ( 1 ) ,21P ) , (PHIl ( 1) , PHIl ) , 
1  (PSII(1),PSI1) 

COMMON    /C0MP/SUMM,THETN,PHIN»PSIN,PI,RAD,GAM1,GAM2,GAM3,GAM4,GAM5 
I  GAM6,GAM7,GAM8,GAM9,THETT,PHIT,PSIT,ZRO,TR02, 

I  TF02,TIZ,RH02,RH0MUR,AMUF,BMUR,ZPRtTM4,RHMR2tA02APBt 

3  B02APB,RFTF,TS02,RRTS ,BR0MURtXMUF02tAXMF02.XMTF04, 

4  XIZR,RTR,RHMR2ItXIXP,XIZP,XlXZP,XIYZPfDlPD2,DlMD2, 

5  2RD3,ZRD3Rt ZFD3R,ZFD12,TIZ2.TG61fDDlP2fDDlM2tRPRtPHR 

6  ,TANTP,SPHTPtCPHTP,SECTP,SFXS,SFYS,SFZSfSNPSfSNTS, 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGXtSFYUtSFXU»SFYUF, 

8  SFYUR»SF2U,C0STH,SINTH,C0SPS.SINPS»C0SPH,SINPH,ANG1, 

9  ANG2tCPHI,SPHI,CPSI,SPSIfPltP7,P3,P4,P5,P6,TX,TYfTZ 
COMMON    /C0MP/TRH,DISTX,DISTY,DISTD,DISTStD21,ZETA4,ZETA4D,ZfcTA3t 

1  ZETA3D,SFZl,SNPU,SNTU,HCGHl,HCGH2,HCGH3tHCGH4,TERMl, 

2  TERM2tSNPSUtSNPRtHCBHltHC6H2»HCBH3tHCBH4f HCAH1,HCAH2 

3  HCAH3fHCAH4,U0,WP,URtQRtVP,PR,P2,Q2tR2,VR,W0,Pa,PHIR 

4  ,PHlRD2f RPHRD,GCTH,GSTH,GCTSP,GCTCPfXXX,YYY,lX,IY,XXl 
b  XX2tYYl,YY2,THGl,THG2,PHGltPHG2tZZl,ZZ2,LLL 

DIMENSION    HCAH(4),HCBH(4),HCGH(4) 

EQUIVALENCE     (HCAH( 1 ) ,HCAH1 ) , ( HCBH( D.HCBHl ) , (HCGHC 1 ) ,HCGH1) 

COMMON/ ADTNL/    Ult U2, U3 , U4,V1 ,V2 t V3 , V4, Wl , W2, W3, W4, 

1  XIYP,SPHIC,CPHIC,APTCHl,APTCH2,APTCH3fAPTCH4, 

2  SL0PE1,SL0PE2,XTRA(300) 
ION    UI (4) tVI(4)»Wl (4) 

LENCE     (UI(1),U1) t( VI(l)tVI).(WI(I),Wl) 
IGN    APITCH(4) 
LfcNCE     (APITCH(  1),APTCH1) 
LEAR     (DMATX,DMATX( 10,11)) 

1)  =  SUMM 

5)  =  GAM2 

6)  =  RHOMUR*PHIR 

2)  ^    SUMM 
t4)  =  -&AM2 
6)  =  GAMl 


DIMENS 
EQUIVA 
DIMENS 
EQUIVA 
CALL  C 
DMATX( 
DMATX( 
DMATX( 
DMATX( 
DMATX 
DMATX( 
DMATX ( 
DMATX( 
DMATX{ 
DMATX ( 
DMATX( 
DMATX( 
DMATXI 
DMATX ( 
DMATX( 
DMATX ( 
DMATX( 
DMATX ( 
DMATX J 
DMATX( 
DMATX( 
DMATX < 
DMATX ( 


10)  =  -RHOMUR 

3)  =  XMS 
2)  =  -GAM3 

4)  =  XIX+XIXP 

6)  =  -XIXZ-XIXZP 
10)  =  RH0MUR*ZRD3 
1)  =  GAM2 

5)  =  XIY+XIYP 

6)  =  -XIYZP 

1)  =  DMATX(lf6) 

2)  =  GAMl 

4)  =  DMATXC4,6)+BR0MUR 

5)  =  -XIYZP 

6)  =   XIZR+XIZP 
10)    =    BROMUR 

3)  =   XMUF02 

4)  =   XMTF04 


MTRX0500 
MTRX05  10 
,MTRX0320 
MTRX05  30 
MTRX05  40 
MTRX05  50 
MTRX0560 
PMTRX0570 
MTRX0560 
MTRX05  90 
MTRX0600 
MTRX06  10 
MTRX0620 
MTRX06  30 
,MTRX06  40 
2MTRX06  50 
,M1RX0660 
MTRX06  70 
MTRX06  60 
MTRX0690 
MTRX0700 
MTRX0710 
MTRX0720 
MTRX0730 
MTRX0740 
MTRX0750 
MTRX07  60 
MTRX0770 
MTRX0780 
MTRX0790 
MT  RX  Ob  00 
MTRX08  10 
MTRX08  20 
MTRX08  30 
MTRX08  40 
MTRX08  50 
MTRX06  60 
MTRX08  70 
MTRX08  80 
MTRX0890 
MTRX0900 
M7RX0910 
MTRX09  20 
MTRX09  30 
MT  RX  09  40 
MTRX09  50 
MTRX0960 
MTRX09  70 
MTRX09  80 
MTRX09  90 
MTRXIOOO 
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DATfc       01/14/76 


TIME   1725 


^  UPDATE  RECORD 


DMATX 
DMATX 

8  DMATX 
DMATX 
DMATX 
DMATX 

9  DMATX 
DMATX 
DMATX 
DMATX 
DMATX 

10  DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 

11  GCTSP 
bCTCP 

12  DMATX 


(7,5) 
<7,7) 
(6,3) 
(8,4) 
(8,3) 
(B,b) 
(9,3) 
(9,4) 
(9,5) 
(9,9) 
(9,10 
(  10,2 
(10,3 
(  10,4 
(  10,5 
(  10,6 
(10,9 
(  10,1 
=  G* 
=  G* 
(1,11 


) 

) 

) 

) 

) 

) 

) 

0) 

AM 

AM 

) 


DMATX(2,11)     = 


DMATX 
DMATX 


(3,11 
(4,11 


DMATX(5,11)     = 


13  DMATX 
1 

DMATX 
1 

DMATX 
1 

DMATX 
1 

14  DMATX 
1 

2 
3 
4 

RETUR 

END 


(6,11)     = 


(7,11 
(6,11 
(9,11 
(10,1 


) 
) 
) 
1) 

PH 


IR 


AXMFG2 

MUFC2 

MUF02 

XMTF04 

AXMF02 

MUF02 

MUR 

DMATX( 

MUR 

MUR 

DMATX(9, 

-RHDMUR 

DMATX( 9, 

XIR+2RD3 

-BRDMUP* 

bROMUR 

DMATX(9, 

RHMR2I 
(3,2) 
(3,3) 
SUMM*( VR 
R2)-GAM6 
SUMM*( WP 
PHIR*( P2 
XMS»(UO- 
GAM3*( UR 
XIXP)*QR 
SNPU 

X1XZ=«'(R2 
(GAM7+2. 
X1YZP*P0 
(XIX-XIY 
X1YZP*PR 
(02-P2-P 
XMUFQ2*( 
FZU(1)+S 
XMUF02*l 
FZUI2) +5 
XMUR*(UQ 
♦0R42RD3 

RHOMUR* 

RH0*PHI 
♦RHOMUk* 

ZRD3R*( 

SNPR 


1,6) 


4) 


4) 

R*RhUMUR 
PHIR 

4) 


-WQ-&STH)-GA 
*a-2.0*RHDMU 
-UR+GCl bP )+G 
+R2+PH1RD2 )♦ 
VP+GCTCP)-SF 
-WP-GGTSP) ♦( 
-GAM4*(P2+R2 

-P^)+(X1Z-XI 

*RhO*TG6l )»Q 

-2.0*XMUR<'ZR 

-GAM5)*PQ-(X 

+&AM9*P+RH0M 

HIRD2)-GSTH) 

UQ-VP-A*PR-T 

I(  1) 

UQ-VP-A*PR4T 

1(2) 

-\/P+RHO*PHIR 

R*  (P2-»Q2)+GC 

(UR-WP-2.0»P 

R«(P2+R2)  +ZR 

(VP-U0-2.0*P 

P2+t2) )-XIR* 


M2*PR+RHCMUP*PHlR*Pt+GAMl*(02+ 

R*RPHRu*SFXS+SFXU 

AM6'»P-GAM1*PQ~&AM2«QR-RH0MUR* 

SFYS+SFYU 

Zl+SFZS 

XIXZ+XIXZP)*PQ-GAM7*P-»-(XIY-XlZ 

)+RH0MUR*PHIP*ZRD3*PHIRD2+SNPS 

X-XIYP)*PR+GAM2*(VR-WU-GSTH)- 

+  (XIXZP-BR0MUR)'S^(C2+R2)- 

D3R*RH0*RPHRb+SNTS+SNTU 

IXZ+XIXZP-BROMUR )*QR+GAM8*Q+ 

UR*PHIR*(VR-W0-2.0*RHC*RPHRD-B 

♦GAM1»(WP-UR+GCTSP)+SNPSS+SNPS 

FD2*0R+(ZF*DtLl)*(P2+Q2)+GCTCP 

FL2*QR+  (ZF-»-DfcLL2)*(P2+Q2)+&CTCP 

D2+2.0*P»RHO*PHIRD+B«PR+RHO*PH 

TCP)+FZU(3)+FZU(4)+SI(3)+SI(4) 

♦(DEL3D-RH0»PHIR»PHIRD)-B*PC* 

D3R*QR-GCTH*SIN(PHIT+PHIR) )♦ 

♦KHO*PHIRD-B*PR-RHO*PHIR*QR- 

PHIR*(R2-02)-XIK*CR+ 


MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
Ml  PX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
+  MTRX 
+  MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
*  MTRX 
U  MTRX 
)+MTRX 
MTRX 
)+MTRX 
MTRX 
IRMTRX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 
MTRX 


10  10 

10  20 
1030 
1040 
10  50 
10  60 
10  70 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
12  10 
12  20 
12  30 
1240 
1250 
1260 
1270 
1^80 

12  90 
1300 

13  10 
13  20 
13  30 
1340 
13  50 
1360 
13  70 
1380 

13  90 

14  00 
1410 
1420 
1430 
14  40 
l*t50 
14  60 
1470 
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DATE       01/14/76  TIME       1725  UPDATE    RECORD 


SUBROUTINE    MTRXIR  MTXIOOIO 

C  HV0SM-VU2    VERSION  MTXI0020 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION  MTXI0030 

COMM0N/INPT/PHI0,THETA0,PSI0,PO,Q0,R0,XC0P,YC0P,ZC0P,U0,V0,W0,  MTXIOOAO 

1  A,B,DtL10,DEL20,DEL30,PHIR0,DEL100,DEL20D,DEL30D,  MTXI0050 

2  PHIRODtTF,TR,ZF,ZRtRHOf AKRStXMURf  MTXI0060 

3  XMS»XMUF,XIX,XiY,XIZ,XIXZ,CF,AKF,XLAMF,0MEGF,CFP,EPSF,MTXI0O70 

4  RF,CR,AKR,XLAMR,OMEGRtCRPtEPSRtRR»TStTHMKX,DTCOMP,TO,    MTXI0080 

5  Tl,DTCMPl,DTPRNTtMODE,EBAR,EM,AAA,HMAXfHMIN,BET,&,  MTXI0090 

6  HE0(36),DADE(3) tXIR,Xl,Yl,Zl,X2,Y2,Z2,PHIC(50) ,DELB,       MTXIOIOO 

7  DELt,DDEL,NDEL,PSIF(50)»T0F (50) ,TQR(50),TB,TEtTINCRf       MTXIOllO 

8  NZTAB,NZ5,XBDRY(4,5)fPSBDRY(4,5) ,YBDRY(2,5)tNBX(5),  MTXI0120 

9  NBY(5»,NTBL1 ,NTBL2,NTBL3tZGP(21,21t5)  MTXI013& 
COMMON/lNPT/XB(5),XE(5)f XINCR(5) ,NX 15 ) , YB ( 5) t Yt ( 5) t YINCR ( 5 ) tNY ( 5 ) t MT XI 0140 

1  XXZGP5(21),YYZGP5(21),AMU&(5),PSBDR0(4,5 ) ,UV WMIN ,PORMIN    MT XI 01 50 

COMMON    /INTG/NEO,TtDT,VAR(50) ,DER(50)  MTXI0160 

EQUIVALENCE     (UfVAR(l)) ,( V,VAR(2) )f (W,VAR(3)) , (P»VAR(4) ) , (Q, VAR ( 5 ) ) MTXI 0170 

1  , (R,VAR(6)) ,{ DELI, VAR (7) ), (DEL  ID, VAR ( 8) ) , ( DEL2, VAR (9) ), MTXI 01 80 

2  (DtL2D,VAR(10)),(DEL3,VAR(ll) ),{DEL3D,VAR( 12)) ,  MTXI0190 

3  (PHM,VAR(13)  ),(PHIRD,VAR(14)  ),(THETTP,VAR(15)  ),  MTXI0200 

4  (PHITP,VAR(16)),(PSITP,VAR(17)),(XCP,VAR(18)),  MTXI0210 

5  (YCP,VAR(19) )  ,(ZCP,VAR(20) ),(PSIFI,VAR(21) ),  MTX10220 

6  (PSIFID,VAR(22) )  MTXI0230 
EQUIVALENCE     (DU,DER(  1)  ) , ( DV,DER (2 )  ) , ( DW,DER(3  )  ) , (DP,DER( 4) ) ,  MTXI 02 40 

1  (DQ,DER( 5) ), (DR,DER(6)),(DDEL1,DER(7)) , (DDELID.DER (8 ) ) MTXI02 50 

2  , (DDEL2,DER(9)  ),(DDEL2D,DER(10)),(DDEL3,DER(11) ),  MTXI0260 

3  (DDEL3D,DER( 12)) ,(DPH1R,DER(13)), (DPHIRD,DER(14)),  MTXI0270 

4  (DTHTTP,0ER(15)), (DPHITP,DER( 16) ) ,(DPSITP,DER(17)),         MTXI0280 

5  (DXCP,DER(18)),(DYCP,DER( 19)) ,(DZCP,DER(20)),  MTXI0290 

6  (DPSIFI,DER(21)),(DDPSFI,DER(22) )  MTXI0300 
EQUIVALENCE    ( VAR (9) , PHIF ) , ( VAR( 10) , PHIFD) , (DER(9 ) , DPHI F ) ,  MTXI 03 10 

1  (DER(10),DPHIFD)  MTXI0320 

EQUIVALENCE    ( VAR ( 13) ,DEL4) , ( VAR ( 14 ) ,DEL4D ) , ( DER ( 13 ) ,DDEL4) ,  MTXI 03 30 

1  (DER(14),0DEL4D)  MTXI0340 

COMMON    /DIMV/X1P,X2P,X3P,X4P,Y1P,Y2P,Y3P,Y4P,Z1P,Z2P,Z3P,Z4P,PH11,MTX103  50 

1  PHI2,PHI3,PHI4,PSI1,PSI2,PSI3,PSI4,CAYW(4),CBYW(4),       MTXI0360 

2  CGYW(4)  ,ZPGI(4),THGI(4),PHGI(4),CPG(4),SPG(4),CTG(4),MTXI03  70 

3  STG(4),CAGZ(4),CBGZ(4),CGGZ(4),D1(4),D2{4),D3(4),  MTXI0380 

4  XLM1(4),XLM2(4),XLM3(4),AMTX(3,3),CMTX(3,4),XGPP(4),    MTXI0390 

5  YGPP(4) ,ZGPP(4),DMATX(10,11),DELTA(4) ,CAR(4),CBR(4) ,    MTXI0400 

6  CGR(4),FR(4»,HI(4) ,FC(4),TI(4),AX(4),BX(4),CX(4),  MTXI04i0 

7  CTXG(4),UG(4),STXG(4),AY(4),BY(4),CY(4),CPYG(4),  MTXI0420 

8  SPYG<4),VG(4),PSIIP(4),PHICI(4),CAC(4),CBC(4),CGC(4),MTXI04  30 

9  FCXU(4),FCYU(4),FCZU(4),FS(4),CAXW(4) ,CBXW(4) ,CGXW(4) MTXI0440 
COMMON    /DIMV/AS(4),BS(4) ,CS (4) ,CAS(4) ,CBS (4) ,CGS (4 ) ,BETP (4 ) ,  MTXI 0450 

1  BETBR(4),FSXU(4),FSYU(4),FSZU(4) ,FRXU(4),FRYU(4),  MTXI0460 

2  FRZU(4),FXU(4),FYU(4) ,FZU(4),SI(4),F1F1(2),F1RI(2),       MTXI0470 

3  F2FI(2),F2RI (2),CAH(4),CBH(4) ,CGH(4)  MTXI0480 
DIMENSION   XP(4),YP(4),ZP(4),PHII(4),PSII(4)                                                                MTXI0490 
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DATE       01/14/76  TIME       172b  UPDATE    RECORD 

EQUIVALENCE     (XP (  1 ) , X  IP ) , ( YP 1 1 ) ♦ Y IP )  ,  { ZP ( 1  )  ,  Zi P  )  , (PHI! (  1 ) ,PHI1 ) ,  MT XI 05 00 

1  (PSIKl)  ,PSIi  )  MTXI0510 

COMMON    /COMP/S'JMM,THtTNt PHIN,PSlNf PI,RAD,&AM1,GAM2  tGAM3, GAM4, GAM5, MT XI 05 20 

1  &AM6,GAM7,&AMb,GAM9,THETT,PHIT,PSlT,ZR0,TR02f  MTXI0530 

2  TF02,TIZ,RHG2tRHDMUR,AMUF,BMUP,ZPR,TM4tRHMR2,A02APB,    MT XI 05 40 

3  bOIAPB.RFTF , TSC2 »RRTS t dROMUR , XMUFC2 , AXMFOL, XMTFD4 ,  MT XI 05 50 

4  XIZR,RTR»RHMP.2I,XIXP,XIZP,X1XZP,XTYZP,D1PD2,D1MD2,  MTX10560 

5  ZKD3»ZR  J3R,  Zf-D3R,ZFD12,TIZ2»TG61  ,nDlP2  ,DD  1M2  t  RPR  .PHRPMTXI  0570 

6  ,TANlP,SPHTP,CPHTP,StCTP,SFXStSFYSrSFZStSNPS,SNTS,  MTXI05&0 

7  SNPSS tTPR,CAY,CbY,CGY,CAX,CBX,CGX,SFYU,SFXU,SFYUF,  MTX10590 

8  SFYURtSFZU»CUSTH,SINTH»COSPS»SINPStCOSPH,SINPH,ANGl ,    MT XI 06 00 

9  AN&2,CPHI,SPHI,CPSI»SPSI,P1,P7,P3,P4,P5,P6,TX,TY»TZ  MTXI0610 
COMMUN    /C0MP/lRH,DISTX,DIi,TYtDISTD,DISTS,D21tZtTA4,ZL-TA4D,ZLTA3,       MTXI06  20 

1  ZETA3L,  SF  Zl  ,i>NPU,SNTU,HCGHl,HCGH2,HCGH3,HCGH4,TERMl  ,    MTXI0630 

2  TERM2f  SNPSUtSNP*^,HCbHl,HCbH2,HCbH3,HCbH4,HCAHl,HCAH2,MTXI06  40 

3  HCAH3,HCAH4tUQtWP,URfQRtVP,PR,P2,Q2,R2»VK,WQ,PQ,PHIR2MTX106  50 

4  ,PHIRD2,RPHRL>,GCTH,GSTH,GCTSP,GCTCP,XXX,YYY,IX«IY,XX1,MTXI0660 

5  XX2,YY1 ,YV2,THGl,THG2tPHGl,PHG2,ZZl»ZZ2,LLL  MTXI0670 
DIMENSION  HCAH(^) tHCEH(4) ,HCGH(4)  MTXiObaO 
EQUIVALLNCE  (HCAH ( 1 ) ,HCAH 1 ) , ( hCbh(  1  ) » HCBHI ) t ( HCGH( 1) , HCGHl )  MT XI 0690 
COMMON/ADTNL/    U  1  t  U2  »  U3  ♦  L'4  ,  V  1  ,  V2  t  V3  ,  V4  ♦  Wl  ,  W2  »  W3  ,  W4,                                               MTX10700 

i  XIYP,SPHlC,CPHiL,  APTCHl,APTCH2,^^'TCH3,APTCh4,  MTXI0710 

2  SLGPEl ,SL0Pl2,X1RA(300)  MT XI 07  20 

DIMtNSlLN    UI (4),VI(4),WI (4)  MTXI0730 

EQUIVALhNCfc     (UI (1) ,U1) ,( VI( 1) ,V1), (WI (1 ),W1)  MTXI0740 

GIMENSICN    APnCH(4)  MTXi0750 

EQUIVALENCE     (A  PI TCH ( 1 ) , A PTChl)  MTXI0760 

COMMON    /SUSCMP/    XMUR02 ,B XMRC2 , XMTR04, ZFD , TSF02  ,RhLF2 ,RHFMUF ,  MTXI0770 

1  RHF2MF,RF2MF1  ,RTF,RR-fRtD3PD4,U3MUH,D43,DD3P4,  MTXI0760 

2  DD3M4, ZFDlRF,2RD34,RFPF,RPF2M,WFMF,PHFP,PHIF2t  MTXI0790 

3  PHIFL2,RPhFD,ZFDl,ZFU2,ZRD4,TPF,SLCPE3,SL0PE4,  MTXI0800 

4  PHI3D,PH14D,DTHF1,DTHF2»DTHR3,DTHR4,DTGD1,  MTXI&810 

5  DTDD2,CTDU3,0U)D4, FJF (4) ,SNPF  MT XI 08 20 

MTXI0i>30 
CALL    CLLAR  (DMATXd,!  ),DMA1X(10,11)  )  MTXI0&40 

LiMATX(l,l)     =    SUMM  MTXI0b50 

DMATX(It5)     =    GAM2  MTX10860 

DMATX(2,2)     =    SUMM  MTXI0&70 

DMATX(2t4)     =    -GAM2  MTXI0B80 

DMATX(2tt>)    =    GAMl  MTXI0690 

DMATX(3,3)    =    XMS  MTXI0900 

DMATX(4»2)     =    -GAM2  MTXI091G 

DMATX(4,4)     =    XIX+XIXP  MTXI0920 

DMATX(4,6)     =    -XIXZ-XIXZP  MTXI0930 

DMATX(5,1)     =    GAM2  MTXI0940 

DMATX(5,5)    =    XIY+XIYP  MTXI0950 

0MATX(5,6)    =    -XIYZP  MTXI0960 

DMATX(6,2)    =    GAMl  MTX10970 

DMATX(6,4)     =    -XIXZ-XIXZP  MTXI0980 

DMATX(6,5)     =    -XIYZP  MTXI0990 

DMATX(6,6)     =    XIZ+XIZP  MTXIIOOO 
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DATE   01/14/76 


TIME   1725 


UPDATE  RECORD 


DMATX(7,3)    = 

XMUF02 

DMATX(7,4)    = 

XMTFC4 

DMATX(7,5)    = 

-AXMF02 

DMATX(7,7)    = 

XMUF02 

DMATX(8,3)    = 

XMUF02 

DMATX{8,4)    = 

-XMTF04 

DMATX(8,5)    = 

-AXMF02 

DMATX(6f8)    = 

XMUF02 

DMATX(9,3)     = 

XMURQ2 

DMATX(9,4)     = 

XMTR04 

DMATX(9,5)    = 

BXMR02 

DMATX(9,9)    = 

XMUR02 

DMATX( 10,3) 

=    XMUR02 

DMATX(10t4J 

=    -XMTR04 

DMATX(10,5) 

=    BXMR02 

DMATXdO.lO) 

-    XMUR0  2 

GCTSP    =    G«AMTX{3,2) 

GCTCP    =    &*AMTX{3,3) 

DMATXd.ll) 

=    SUMM*( VR-WO-GSTH)+ 

+SFXU+SFXS 

DMATX(2,11) 

=   SUMM*(WP-UR+GCTSP) 

♦SFYU+SFYS 

DMATX(3,11) 

=    XMS*(UQ-VP+GCTCP)- 

DMATX(4,11) 

=    -GAM2*(WP-UR+GCTSP 

♦|XIY-XIZ+XIXP)*OR- 

DMATX(5,11» 

=    GAM2*(VR-WQ-GSTH)- 

♦XIXZP*(02+R2)-XIYZ 

DMATX(6,11) 

=    GAM1*(WP-UR+GCTSPI 

*0R*GAM8*0-»-XIYZP*PR 

DMATX(7,ll) 

=    XMUF02*(UQ-VP+GCTC 

-TF02*QR)+FZU(1)+SI 

DMATX(8,11) 

=   XMUF02*(UQ-VP+GCTC 

♦TF02*QR)+FZU(2)+SI 

DMATX(9,11) 

=   XMUR02*(UQ-VP-»-GCTC 

-TR02*QR)+FZU(3)+SI 

DMATXdOfll) 

=    XMUR02*(UQ-VP+GCT 

♦TR02*QR)+FZU(4)+SI 

RETURN 

END 

GAMl* ( Q2+R2) -GAM2*PR-G AM6*Q 

-GAM1*PQ-GAM2*QR+GAM6*P 

SFZl+SFZS 

)+{XIXZ+XIXZP)*PQ-XIYZP*(P2+R2) 

GAM7+P+SNPU+SNPS 

(XIX-XIZ+XIYP)*PR-GAM7*Q 

P*PQ+XIXZ*(R2-P2)+SNTU+SNTS 

♦(XIX-XIY-GAM5)*PQ-(XIXZ+XIXZP) 

♦GAM9*P+SNPSU+SNPSS 

P-A*PR+ZFD1*(P2*R2) 

(1) 

P-A*PR+ZFD2*(P2*R2 ) 

(2) 

P+B*PR+ZRD3*(P2+R2) 

(3) 

CP*B*PR+ZRD4*(P2+R2) 

(4) 


MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 
MTXI 


1010 
10  20 
10  30 
1040 
1050 
10  60 
1070 
1080 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 
1220 
12  30 
1240 
1250 
12  60 
12  70 
1280 

12  90 

13  00 
13  10 
13  20 
13  30 
1340 
13  50 
1360 
13  70 
13  80 
1390 
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DATE       01/14/76  TIME       1725  UPDATE    RECORD 


SUdROUTiNE    MTRXSF  MTXSOOIO 

C  HV0SM-VD2    VERSION  MTXS0020 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION  MTXS0030 

COMMON/INPT/PHI0,THETA0f PSI0,P0,Q0,RO,XCOP,YC0P,ZCOP,UO,VO,W0,  MTXS00  40 

1  A,E,DELlO,DEL20,DEL30,PHIR0,DEL10DtDEL20D,DEL30Dt  MTXS0050 

2  PHlRODrTFtTR.ZF.ZRtRHCAKRStXMURf  MTXS0060 

3  XMS,XMUF  ,XIX  t XI Y, XI Z ,X 1 XZ ,CF , AKF , XL AMF ,OME GF ,CFP, EPSF ,MTXSOO 70 

4  RF,CR,AKR,XLAMR,0MtGR,CRPtEPSR,RR,TStTHMAX,DTCOMP,T0t    MTXS00  80 

5  TI ,DTCMPl,DTPPNT,MUDE,EBAR,EM,AAA,HMAX,HMIN,BET,Gi  MTXS0090 

6  HE D{ 36), DADE ( 3 ) , X IR , XI , Yl » Z 1 , X2 ♦ Y2 , Z2 , PHIC ( 50 ) , DELB ,       MTXSOIOO 

7  bELE,DDuL,N0tL,PSlF(50) tTQF ( 50) , TOR ( 50 ) ,TB t TE, T INCR,       MTXSullO 

8  NZTAB,NZ5,XBDRY(4,5 ) ,PSLDRY(4,5) ,YPDRY12,5 ) ,NBX(5),  MTXS0120 

9  NBY(5),NTBL1,NTBL2,NTBL3,ZGP(21,21,5)  MTXS0130 
C0MM0N/INPT/XB(5),XE(5),XINCR(5) ,NX ( 5 ) , YB ( 5 ) ♦ Yt ( 5 ) , YINCR ( 5 ) ,NY ( 5 ) , MT XSOl 40 

1  XXZGP5(21)  ,YYZGP5{2I)  ,AMUG(5)  ,P$BDR0(4,;i  )  tUVWM IN  .PORMI  N    MTXS0i50 

COMMON     /1NTG/NEU,T,DT,VAR(50) ,DER(50)  MTXS0160 

EQJIVALrNCh     (U,VAR(1  ))  ,( V,VAR(2)  ), (W,VAR{3)),  (P,VAR(4)  ), ( Q , VAR ( 5 ) ) MTXS 01 70 

1  ,  (R,VAR(6)),(DLL1,VAR17)  ),(DEL1L,VAR{6)  )  ,  ( D t L2 ♦ VAR ( 9)  ), MTXS 01 80 

2  (DEL2D»VAR(10)) t (D£L3tVAR (11 )  )  ,(DFL3D,VAR( 12) ) ,  MTXS019C 

3  (PHIR,VAR( 13)  ), (PHIRD,VAR( 14)  ) ,(THETTPtVAR(15)  ) ,  MTXSOIOO 

4  (PhITP,VAR(16)  ), (PSITP,VAR(17)  ), (XLP,VAR(16) ),  MTXS0210 

5  (YCP,VAR(19) ) ,(ZCP,VAR(20) ),(PSIFI,VAR(21) ),  MTXS02iO 

6  (PSIFID, VAR( 22) )  MTXS0230 
EQUIVALENCE     (DU»DER(  1  )  )  ,  (  LV,OtR  (  2  )  )  ,  (  DW,DEI<(  3  )  )  ,  (DP,DE  R  (  4  )  )  ,  MTXS  02  40 

1  (DQ,UER(  i>)  ),  (DR,LtR(t-)  )  ,(DDEL1,DER17)  )  ,  (DD  EL  ID  ,  DER  (  8  )  )  MTXS02  50 

2  ,  (DUEL2tDERi9)  ), (DDEL2D,UER( 10) ), (DDtL3,DER (11) ),  MTXS0260 

3  (DDtL3D,DER{  12))  T (DPHIR,DER(13)  ),  (LPhIRD,DER(14) ) ,  MTXS 02  70 

4  (DTHTTP,DER( 1 L ) ) , (DPH i TP, DER ( 1 6 )  )  , ( DPS  I TP, DER ( 17 ) ) ,  MTXS 02 80 
b  (DXCP,D£R( 18  )  ),(DYCP,DER(  19) ) ♦(DZCP,DER{20) ) ,  M1XS0290 
6                                  (DPSIF1,DER(21) ), (DDPSFI,D£R(22) )                                                          MTXS0300 

EQUIVALENCE     (VAR(9)tPHIF),(VAK(10),PHlFD),(DER(9),DPHlF),  MTXS 03 10 

I  (DER( 10) tDPHlFD)  MTXS0320 

EQUIVALENCE     ( VAR( 13 ) ,DEL4  ) , ( VAR ( 14 ) ,DEL4D )  ,  ( DER( 13 ) ,DDtL4) »  MTXS 03 30 

1  (DER(lt) ,DDEL4D)  MTXS0340 

COMMON    /DIMV/XlP,X2P,X3P,X4P,YlP,Y2P,Y3PtY4P,ZlP,Z2P,Z3P,Z4P,PHII,MTXS03  50 

1  PHI2,PH13,PHI4,PSI1,PSI2,PSI3,PS14,CAYW(4) ,CBYW(4),        MTXS0360 

2  CGYW(4j  ,ZPGI(h)  ,THGl(4),PHGI('t)  ,CPG(  4  )  t  SP  G  (  4)  ,  CTG  (4  )  ,  MTXS  U3  70 

3  STG(4) ,CAGZ(4),CBGZ(4) tCGGZ(A),Dl(4),D2(4),D3(A) ♦  MTXS0380 

4  XLM1(4) ,XLM2(^),XLM3{4),AMTX(3,3) »CMTX(3,4),X&PP(4),     MTXS0390 

5  YGPP(4) ,ZGPP(4),DMATX(10,11 ) , DEL TA ( 4 ) ,CAK ( 4) , CBR ( 4) ,    MTXS0400 

6  CGR(4),FR(4)  ,HI (A) ,FC(4),TI(4),AX(4),BX(4),CX(4)t  MTXS04iO 

7  CTXG(4) ,UG(4),STXG(4) ,AY(4),bY{4),CY(4),CPYG(4),  MTXS0420 

8  SPYG(4)  ,V&(4),PSIIP(4)  , PHI  CI  ( 4) ,CAC ( H ) ,CBC ( 4)  ,CGC ( A ) , MTXS OA 30 

9  FCXU(4) ,FCYU(A),FCZU(4)tFS(4),CAXW(4) ,CBXW(4) ,CGXW( 4) MTXS0440 
COMMON    /DIMV/AS(4),BS(4) , CS ( 4 ) , C AS ( 4) ,CBS ( 4 ) ,CGS (4 ) ,BE TP (4 ) ,  MTXS 04 50 

1  BETBR(4) ,FSXU(4) ,FSYU(A) f FSZU(4) ,FRXU(A),FRYU(4),  MTXS0460 

2  PRZU(4) ,FXU(4) ,FYU(4) ,FZU(A) ♦SI(4) ,F1FI(2) ,F1RI(2),       MTXS0A70 

3  F2FI(2)  ,F2R  I  (2),CAH(4),CBH(4) ,CGH(t)  MTXS0480 
DIMENSION    XP(4) ,YP(4)tZP (t>,PHII(4) ,PSII(4)  MTXS049o 
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DATE   01/14/76 


TIME   1725 


UPDATE  RECORD 


EQUIVALENCE  (XP(1),X1P), 

1  {PSII(1),PSI 

COMMON    /COMP/SUMMfTHETNt 

1  GAM6,GA«7,GA 

2  TF02tTIZ,RH 

3  B02APB,RFTF 
A  XlZRtRTRfRH 

5  ZRD3,ZRD3R, 

6  ,TANTP,SPHTP 

7  SNPSS,TPR,C 

8  SFYUR,SFZU» 

9  ANG2,CPHI,S 
COMMON    /COMP/TRHfDISTX,D 

1  ZETA3D,SFZ1 

2  T£RM2,SNPSU 

3  HCAH3,HCAH4 

4  ,PHIRD2,RPHR 

5  XX2,YY1,YY2 
DIMENSION  HCAH(4) ,HCbH(4 
EQUIVALENCE  {HCAH(1),HCA 
COMMON/ADTNL/    Ul»U2tU3,U 

1  XIYP,SPHIC 

2  SLOPElfSLD 
DIMENSION  UI (4),VI(4),WI 
EQUIVALENCE  (UI(l)fUl},( 
DIMENSION  APITCH(4) 
EQUIVALENCE  (APITCH(1),A 
COMMON  /INSUS/  XIF.RHOF, 

1  AKDStAKDS 

2  NCAMF,NCA 
COMMON    /SUSCMP/    XMUR02tB 

1  RHF2MF,R 

2  CD3M4,ZF 

3  PHIFD2fR 

4  PHI3D,PH 

5  DTDD2tDT 


(YP(l),YlP),(ZPa),Zl 

1) 

PHnM,PSIN,PI,RAD,GAMl 

M8,GAM9,THtTT,PHIT,PS 

Oi,RHOMURtAMUF,BMUR»Z 

,TS02,RRTS,BR0MUR,XMU 

MR2I,XIXP,XlZPtXlXZP, 

ZFD3R,ZFD12,TIZ2,TG6l 

,CPHTP,SECTP,SFXS,SFY 

AY,CBY,CGY,CAX,CBX,CG 

COSTH,SINTH,COSPStSlN 

PHI,CPSItSPSIfPl,P7,P 

ISTY,DISTD»DISTS,D21, 

,SNPU,SNTU»HCGH1,HCGH 

t  SNPR  tHCBHl ,HCbH2  tHCB 

,UQ»WP,UR.0R,VP,PR,P2 

Dt&CTH,GSTH,GCTSP,GCT 

,  THG 1 , THG2 , PHG 1 , PHG2 , 

),HCGH(4) 

Hl),(hCBh( 1),HCBH1),( 

t,Vl,V2,V3,V4,Wl,W2,W 

,CPHIC,APTCH1,APTCH2, 

PE2,XTRA(300) 

(4) 

VI(I)»V1), (WI (1) tWI) 


P),{PHII(1),PHI1), 


,GAM2,GAM 
1T,ZR0,TR 
PR,TM4,RH 
F02,AXMF0 
XIYZPfDlP 
tDDlP2,DD 
S,SFZS,SN 
X,SFYU,SF 
PSfCOSPH, 
3,P4,P5,P 
ZETA4,ZET 
2,HCGH3,H 
H3,HCBH4, 
,Q2,R2,VR 
CPtXXXjYY 
ZZl,ZZ2,L 


3,GAM4,GAM5 

02, 

MR2,A02APB, 

2,XMTF04, 

D2, D1MD2, 

1M2.RPR,PHR 

PS.SNTS, 

XU»SFYUF» 

SINPH,ANG1, 

6,TX,TY,TZ 

A^D,ZETA3, 

CGH^tTERMl, 

HCAH1,HCAH2 

tWQ,PQ,PHIR 

Y,1X,IY,XX1 

LL 


HCGH(1),HCGH1) 

3,W4, 

APTCH3,APTCH4, 


PTCHl) 

TSF,PHIF0,PHIF0D,DEL40,DLL40D,ISUS» 

1,AKDS2,AKDS3»PHIRC{50),DTHF(50),DTHR(50) 

MR,NDTHF,NDTHR 

XMR02,XMTR04,ZF0,TSF02,RH0F2,RHFMUF, 

F2MFI,RTF,RRTR,D3PD4,U3MD4,D43,DD3P4, 

D1RF,ZRD34,RFPF,RPF2M,WFMF,PHFP,PHIF2, 

PHFD,ZFD1,ZFD2,ZRD4,TPF,SL0PE3,SL0PE4, 

1 4D , OTHF 1 , DTHF2 , DTHR3 , DTHR4, DT  DDl f 

DD3,0TDD4,FJF(4),SNPF 


CALL    CLEAR<DMATX(1,1),DMATX(10,11) ) 


DMATX(i,l)  = 
DMATX(1,5)  = 
DMATX(1,6)  = 
DMATX(2,2)  = 
DMATX(2,4)  = 
DMATX(2,6l  = 
DMATX(2,8)  = 
DMATX(2,10)= 
DMATX(3,3)  = 
DMATX(4,2)  = 
DMATX(4t4)  = 
DMATX(4,6)  = 
DMATX(4,8)    = 


SUMM 

GAM2 

RHOMUR*PHIR+RHFMUF*PHIF 

SUMM 

-GAM2 

GAMl 

-RHFMUF 

-RHOMUR 

XMS 

-GAM3 

XIX+XIXP 

-XIXZ-XIXZP 

RHFMUF*ZFD1 


MTXS0500 
MTXS05  10 
,MTXS05  20 
MTXS05  30 
MTXS05  40 
MTXS05  50 
MTXS0560 
PMTXS05  70 
MTXS05  8& 
MTXS05  90 
MTXS06  00 
MTXS0610 
MTXS0620 
MTXS06  30 
,MTXS06  40 
2MTXS0650 
,MTXS0660 
MTXS06  70 
MTXS0680 
MTXS0690 
MTXS0700 
MTXS0710 
MTXS07  20 
MTXS07  30 
MTXS0740 
MTXS0750 
MTXS0760 
MTXS0770 
,MTXS0780 
MTXS07  90 
MTXS06  00 
MTXS08  10 
MTXS0820 
MTXS08  30 
MTXS0840 
MTXS0850 
MTXS0860 
MTXS08  70 
MTXS0680 
MTXS08  90 
MTXS0900 
MTXS09  10 
MTXS09  20 
MTXS0930 
MTXS0940 
MTXS09  50 
MTXS09  60 
MTXS09  70 
MTXS09  80 
MTXS0990 
MTXSIOOO 
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DATE   01/14/76 


TIME  I72t> 


UPDATF  RECORD 


DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
OMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
DMATX 
GCTSP 
GCTCP 
DMATX 


(4 
(5 
(5 
<5 
(6 
(6 
(6 
(6 
(6 
(6 
(6 
(7 
(7 
(7 
(7 
(7 
(fa 
(6 
(6 
(& 
(8 

(b 

(8 
(S 
(9 
(9 
(9 
(9 


10 
1) 
5) 
6) 
1) 
2) 

5) 
6) 
8) 
10 
3) 
A) 
b) 
7) 
6) 
2) 
3) 
A) 
5) 
6) 
7) 

a) 

3) 
4) 
b) 
9) 

10 


)  = 


)  = 


(10,2 
(10,3 
(10,4 
(  10,5) 
(  10,6 
(10,9 
(  10,1 
=  G* 
=  G* 
(1,11 


)  = 

) 

) 

) 

) 

) 

) 

U) 

AM 

AM 

) 


DMATX(2,11) 


DMATX 
DMATX 


(3,11 
(4,11 


DMATX(5,11) 


RH0MUR*ZRD3 
GAM2 

XIY+XIYP 
-XIYZP 

RHFMUF«PHIF 

GAMl 

-XIXZ-XIXZP 

-XIYZP 

XIZ+XIZP+XI 

-RHFMUF*A 

BRCMUK 

XMUF 

-RHFMUF*PHI 

-AMUF 

XMUF 

-RHFMUF*PHI 

-RHFMUF 

-RriFMUF*PHI 

XIF*RHFMUF« 

AMUF*RFPF 

-RHFMUF*A 

-RHFMUF*PHI 

RF2MF1 

XMUR 

-RHLMUR*PHI 

BMUR 

XMUR 

-RHOMUR*PHI 
=  -RHGMUP 
=  -RHuMUR«PH 
=  XIR+RHOMUR 
=  -bMUR*RPR 
=  BROMUR 
=  -RHDMUR*PH 
=  KHMR2I 
TX(3,2) 
TX{3,3) 
=  SUMM*(VR-W 

♦PQ*GAMl*(g 

RPHFD)+SFX 

=    SUMM*(WPHJ 

-RHOMUR+PHI 

PHIFD2 )+SF 

-    XMS'>(UW-VP 

=    GAM3«(UR-W 

+(XIY-XIZ+X 

PHIRD24RHF 

=    GAM2*(VR-W 

-GAM7*Q-2.0 

♦RHOF+AMUF) 

-2.0+RHFMUF 


♦RHOMUR*PHIR 

-RHFMUF*A-»-RHOMUR*B 

R+XIF 


F 

ZFDIRF 


IP 
♦ZRD3R 


IR 


Q-GSTH)- 

2+R2)-GA 

U*SFXS 

R+GCTSP) 

R*(P2+R2 

YU*SFYS 

+GCTCP)- 

P-GCTSP) 

IXP)*QR- 

MUF*PH1F 

Q-GSTH)* 

»C>*(RHOF 

♦(02+R2) 

♦ZFDIKF* 


GAM2*PR  +  (RHGMUR*PHIR+RHFMUF*PHIF  ) 
M6*Q-2,0*(RH0MUR*RPHRD+RHFMUF* 

■»GAM6*P-GAM1*PQ-GAM?*GR 
♦PHIRD2I-RHFMUF*PH1F*(P2+R2+ 

SFZl+SFZS 

♦(XIXZ+X1XZP)*PQ-GAM7*P 
GAM4*(P2+R2)  ■fRH0MUR*PHIR*ZRD3* 
*ZFDl*PHIFD2  +  i>NPS+SNPU 
X1XZ*(R2--P2)  +  (XIZ-XIX-XIYP)*PR 
»WFMF+RH0*TG61)+(XIXZP-BR0MUR 
-XIYZP->PQ-2.0*RH0MUR*ZRD3R*RPHRD 
RPHFD+SNTU+SNTS 


MTXSIO 
MT  XS  10 
MTXSIO 
MTXSIO 
MTXSIO 
MTXSIO 
MTXSIO 
MTXSIO 
MTXSIO 
MTXSll 
MTXSll 
MTXSll 
MTXSll 
MTXSll 
MTXSll 
MTXSll 
MTXSll 
MTXSll 
MTXSll 
MTXS12 
MTXS  12 
MTXS12 
MTXS12 
MTXS  12 
MTXSli. 
MTXS12 
MTXS  12 
MTXS12 
MTXS12 
MTXS  13 
MTXS  13 
MTXS  13 
MTXS13 
MTXS  13 
MTXS13 
MTXS  13 
MT  XS  13 
MTXS  13 
MTXS 13 
MTXS14 
MTXS It 
MTXS 14 
MTXS 14 
MTXS14 
MTXS  14 
MTXS  14 
MTXS  14 
MTXS  14 
MTXS  14 
MTXS  15 
MTXS  15 


10 
20 
30 
40 
50 
60 
70 
bO 
90 
00 
10 
20 
30 
tO 
50 
60 
70 
faX) 
90 
GO 
10 
20 
30 
^0 
50 
60 
70 
BO 
90 
00 
10 
^0 
30 
tO 
50 
60 
70 
bO 
90 
00 
10 
20 
30 
40 
50 
60 
70 
80 
90 
00 
10 


( 
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DATE       01/14/76 


TIME       1725 


UPDATE    RECORD 


DMATX(6fll)  =    GAM1*( 

1  -(XIXZ+ 

2  ♦GAM9+P 

3  -PHIRD2) 

4  ♦A*(Q2- 
DMATX(7,11 )  ~    XMUF*( 

1  ♦RFPF*0 

2  ♦FZU(l) 
DMATX(8tll)  =    RHFMUF 

1  ♦RFPF*( 

2  +RHFMUF 

3  -ZFDIRF 
DMATX(9,n)  =    XMUR*( 

1  ♦RPR*QR 

2  ♦FZU(3) 
DMATX(10,11)=    RHOMUR 

1  ♦RPR*(P 

2  +RHOMUR 

3  -ZRD3R* 
RETURN 

END 


WP-<JR+GCTSP)-»(XIX 
XIXZP-BROMUR+AMUF 

♦  XMUR  =«  PR  *  ( V R-WQ- 
-GSTH)+XMUF*RFPF* 
P2-PHIFD2)-GSTH)+ 
UQ-VP+RH0F*PHIF02 
R+ZFD1RF*(P2+Q2)+ 
+FZU(2)+SI{ 1)+SI( 

♦  {UR-WP-2.0*P»DtL 
P2.-»-R2»  +  ZFDlRF*QR- 
*PHIF»(VP-U0-2.0* 
*(P2+02))-XlF*PHI 
U0-VP+RH0*PHIRD2+ 
♦ZRD3R*(P2+Q2)+GC 
♦FZU(4)+SI(3)+S1( 
*(UR-WP-2,0*P*DEL 
2+R2)+ZRD3R*0R-GC 
♦PHIR*(VP-UQ-2.0* 
(P2+G2) )-XlR*PhlR 


-XIY-GAM5)*PQ 

*RHOF>*QR+GAM 

2.0*RH0*RPHRD 

(VR-WQ-2,0«RH 

SNPSS+SNPSU 

♦2.0*P*RH0F*P 

GCTCP) 

2) 

1D+2.0*P*RFPF 

GCTH*SIN(PHIT 

P*RHOF*PHIFD+ 

F*{R2-Q2)-XIF 

2.0*P*RHO*PHI 

TCP) 

h) 

3D+2.0*P*RPR* 

TH*SIN(PHIT*P 

P*RHO*PHIRD-S 

»(R2-Q2)-XIR* 


MTXS15  20 

8*Q+XIYZP*PR 

MTXS1530 

-B*(Q2-P2 

MTXS15  40 

OF*RPHFD 

MTXS15  50 

Ml  XS  1560 

HIFD-A*PR 

MTXS1570 

MTXS1580 

MTXS1590 

»PHIFD+A*PO 

MTXS1600 

+PHIF) ) 

MTXS16  10 

A*PR 

MTXS16  20 

♦QR+SNPF 

MTXS1630 

RD+B*PR 

MTXS16  40 

MTXS1650 

MTXS1660 

PHIRD-B*PQ 

MTXS16  70 

HIR)  ) 

MTXS1680 

♦  PR 

MTXS1690 

QR+SNPR 

MTXS1700 

MTXS1710 

MTXS1720 
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DATE       01/14/76  TIME       1725  UPDATE    RECORD 


SUSROUTlNt    OUTPUT(IND)  OUTPOOIO 

C  HVOSM-VD^    VERSION  0UTP0020 

C  REVISED    OCTOBER    1973      CALSPAN    CORPORATION  0UTPOO30 

COMMON/HEAD/    VHED( 20 ) , CHE D( 20 ) , GHED (20) , SHED ( 20) ,Tht D{ 20 ) t  OUTPOOAO 

1  NPA&E(20)  0UTP0050 

C0MM0N/lNPT/PHl0,THETA0,PSI0,P0f Q0|R0,XC0P,YCOP,ZC0P,U0,VO,WO,  OUT POO 60 

1  A,BiDELl0,DEL20,DEL30,PHIR0,DrL10D,DEL20D,DEL30D,  0UTP007C 

2  PHIRODtTFtTR ,ZF,ZR,RHO.AKRS,XMUR,  OUTPOCdO 

3  XMS,XMUF ,XlX,XlY,XiZ,XIXZ,CF,AKF,XLAMF,CMEGF,CFP,EPSF»OUTPOOVO 

4  RF,CR,AKR,XLAMR,DMEGRtCRPtEPSRtRRtTStTHMAXtDTCOMP,TO,    OUTPOIOO 

5  Ti»DTCMPl,DTPRNTfMODE,EbARtEM,AAA,HMAX,hMINtBET,G,  GUTPOllO 

6  HED(36),DADe (3) ,XlR,Xl,Yl,Zl,X2fY2,Z2,PHIC{50) ,DELB,       0UTP0120 

7  DELE,DDfcL,NDLL,PSiF(50),T0F(50),TyR(30)»T6,TE»TINCR,       0UTP0130 

8  NZTAB,NZ3tXBDRY(^,3),PSBDRY(4,5),YbDRY(?,5),NbX(5)»  0UTP0140 

9  NBY(5),NTeLl,NTBL2,NTBL3,ZGP(21»21f5)  0UTP0i50 
C0MM0N/1NPT/XB(5)  ,XL  (  3  )  ,  X  INCR  (  5  )  ,NX  (b  )  ,  YB  (  3  )  ,  YE  (  5)  t  YINCR  (  5.  )  ,NY(  5  )  ,0UTPG160 

1  XXZGP5(21) ,YYZGP5(21) , AMUG( 5 ) ,PSBDR0 (4,5 ) ,UV WMIN ,PQRMI N    0UTP0170 

COMMON    /1NTG/NEC,T,DT,VAR (50) ,DER( 30)  0UTPG180 

EQUIVALENCE     (U»VAR(1 )) ,( V,VAR(2) ),(W, VAR(3)) , (P,VAR(4) ), (Q , VAR ( 5 ) ) GUTPOi 90 

1  , (R,VAR(6)  )  ,( GEL  1, VAR (7 )  ) , ( DEL  ID, VAR ( 6 ) ) , ( DEL2 , VAR (9 ) ) ,0UTP020O 

2  (DLL2D,VAR(10)),(DEL3,VAR(11)  ) ,(DEL3D,VAR(  12))  ,  OUTP02iO 

3  (PHIR,VAR( 13)  ),(PHIRD,VAR( 14)  ), (THETTP,VAR( 15) ) ,  OUTP0220 

4  (PHITP,VAR(16  )),  (PSnP,VAR(17)  ),  (XCP,VAR(18)  ),  DUTP0230 

5  (YCP,VAK(19)  )  ,(ZCP,VAR(20) ),( PSIF1,VAR(21) ) ,  0UTPG240 

6  (PS1FID,VAR( 22) )  OUTP0250 
EQUIVALENCE     (DU,DrR(  1)  ), (DV,DER(2)  ) , ( DW,DER( 3  )  ) , (DP,DtR ( 4) ) ,  nUTP0260 

1  (DQ,DFK(5)),(DR,DER(6)),(DDEL1,DER(7)) , (DDELID ,DER ( 8 ) )0UTP0270 

2  ,(0DEL2,UER  (9)  ),  (DDEL2D,UER( 10) ), (DDEL3,DER(11) ) ,  CUTP0260 

3  (DDEL3D,DER(  12) ) , (DPhIR,DER(13) ) , (DPHIRD,DER(14)  ),  OUTP0290 

4  (DTHTTP,CER( 1 3) ) , (DPHI TP, DER ( 16) ) , ( DPS ITP, DER ( 17 ) ) ,  0UTP03  00 

5  (DXCP,DER(18)  ), (DYCP,DtR( 19) ) ,(DZCP,DER(20)) ,  0UTP03 10 

6  (DPSIFI,DER( 21) ), (DDPSFI,DER(22) )  0UTP0320 
EQUIVALENCE     (VAR( 9 ) , PHIF ) , ( VAR ( 10) , PHIFD) , (DEK ( 9 ) , DPHI F ) ,                          0UTP03  3C 

1  (DER(IO) ,DPHIFD)  0UTP0340 

EQUIVALENCE     (VAR (13) ,DEL4 ) , ( VAR ( 14 ) ,DEL4D ) , ( DER( 13 ) , DDEL4) ,  0UTP03  5G 

1  (DER(  14)  ,uDEL4D)  0UTP0360 

COMMON    /DIMV/X1P,X2P,X3P,X4P,Y1P,Y2P,Y3P,Y4P,Z1P,Z2P,Z3P,Z4P,PHI1,CUTP03  70 

1  PH12,PH13,PHI4,PS11,PS12,PSI3,PSI4,CAYW(4),CBYW(4),       0UTP0380 

2  CGYW(4)  ,ZPGI(4),THGI(4),PHGI(4) ,CPG (4 ) ,SPG (4) ,CTG(4 ) ,OUTP0390 

3  -  STG(4) ,CAGZ(^),CBGZ(4),C&GZ(4),D1(4),D2(4),D3(4),  0UTP0400 

4  XLM1(4) ,XLM2(4),XLM3(4),AMTX(3,3),CMTX(3,4) ,X&PP(4) ,    0UTP0410 

5  YGPP(4)  ,ZGPP(4),DMATX(10,11) ,bELTA(4) ,CAR (4 ) , CbR (4) ,    0UTPG4  20 

6  CGR(^) ,FR(4) ,HI(4) ,FC(4),TI(4),AX(4),BX(4),CX(4),  0UTP0430 

7  CTXG(4) ,UG(A),STXG(4) ,AY(4),bY(4),CY(4),CPY6(4),  0UTP04A0 

8  SPYG(4) ,VG(4),PSIIP(4) ,PHICI (4) ,CAC(4) ,CBC(4) ,CGC (4) ,0UTP04  50 
V  FCXU(4) ,FCYU(^),FCZU(4),FS(h),CAXW(4) ,CBXW(4) ,CGXW( 4 ) 0UTP0460 

COMMON    /DIMV/AS(4) ,BS(A) , CS (4 ) ,C AS ( 4) ,CBS ( 4 ) , CGS (4 ) ,E ETP ( 4 ) ,  0UTP04  70 

1  BETBR(4),FSXU(4),FSYU(4),FSZU(4)  ,FRXU(4),FRYU(4),  OUTP04&0 

2  FRZU(4) ,FXU(4),FYU(4) ,FZU(4) ,SI(4),F1FI(2),F1PI(2),       0UTP0490 
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DATE       01/14/76 


TIME       1725 


UPDATE    RECORD 


3  F2FI(2),F2RI(2),CAH(4),CBH(4),CGH(4)  0UTP0500 

DIMENSION    XP(4) ,YP(4),ZP(4),PHII(4),PSII(4)  0UTP0510 

EQUIVALENCE     (XP( 1  )  ,X  IP ) ,  ( YP( I ) , YIP ) , ( ZP ( 1 ) »Z1P ) t (PHII ( 1 ) ,PHII ) ,  0UTP05  20 

1  (PSII(l)  ,PSII).  0UTP0530 

COMMON    /C0MP/SUMM,THETN,PHINtPSIN,PI,RADtGAMl,GAM2  f GAM3iGAM4,GAM5 1 0UTP05A0 

1  GAM6,GAM7,GAM8,GAM9,THETT,PHIT,PSIT,ZR0,TR02,  0UTP05&0 

2  TF02tTIZtRH02tRH0MUR,AMUF,BMURtZPRtTM4tRHMR2f A02APBf    0UTP0660 

3  B02APBf RFTF ,TS02,RRTSf BR0MURfXMUF02fAXMF02tXMTF04,  0UTP0570 

4  XIZRtRTR,RHMR2I,XIXP,XIZP,XIXZP»XlYZPtDlPD2,DlMD2,  0UTP0580 

5  ZRD3tZRD3RtZFD3RtZFD12tTIZ2,TG61,DDlP2,DDIM2,RPRtPHRP0UTP05  90 

6  ,TANTP,SPHTP,CPHTP,SECTP»SFXS»SFYS,SFZStSNPStSNTSt  0UTP0600 

7  SNPSStTPR,CAY,CBY,CGY,CAX,CBX,CGXtSFYU,SFXU,SFYUF,  0UTP0610 

8  SFYURiSFZUf COSTH,SINTH,COSPSfSINPStCOSPH,SINPH,ANGl,    0UTP0620 

9  AN62,CPHI,SPHI,CPSI,SPSItPl,P7,P3,P4,P5tP6,TX,TY,TZ  0UTP0630 
COMMON    /C0MP/TRH,DISTX,DISTY»DISTD,DISTS,D21,ZETA4,ZETA4D,ZETA3,       0UTP0640 

1  ZETA3D,SFZl,SNPU,SNTU.HC&Hl,HCGH2,HCGH3tHCGH4,TERMl,     0UTP0650 

2  TERM2,SNPSU»SNPRtHCBHltHCBH2,HCBH3,HCBH4tHCAHlfHCAH2f0UTP06  60 

3  HCAH3,HCAH4,UQ,WP,UR,QR,VP,PR,P2,02,R2,VR,WQ,PQ,PHIR20UTP0670 

4  ,PHIRD2tRPWU,GCTH,GSTH,GCTSPtGCTCP,XXX,YYY,lX,IY,XXl,0UTP06  8  0 

5  XX2,YYl,YY2,THGltTHG2,PHGl,PHG2tZZl,ZZ2.LLL  OUTP0690 
DIMENSION  HCAH(4),HCBH(4),HCGH(4)  0UTP0700 
EQUIVALENCE  (HCAH(l) ,HCAH1) , ( HC6H( 1 ) , HCBHl ) , (MCGH( 1) ,HCGH1 )  0UTP0710 
COMMON    /COMPN/    FRSP ( 4) .FRCP (4 ) , ICBHIT, JCBHIT ,                                                          0UTP0720 

1  DPSINT,TANPCI,TANPC2,PHIC1R,PHIC2R,AMUCMP,PHI1D,  OUTP0730 

2  PHI2D,LCB1(4),LCB2{4»,IHIT,AJMTX(3,3).BMTX(3,3).  OUTP0740 

3  SFRX(4).SFRY(4},SFRZ(4),T1PSI,T2PSI,XMUGI(4)  0UTP0750 
LOGICAL  LCBlfLCB2  0UTP0760 
COMMON  /INTR/  NEQRtTIMR,DTR,VARR(12l,DERR(12)  0UTP0770 
DIMENSION  RPSI(4),DRPSI(4)  0UTP0780 
EQUIVALENCE(VARR<1),RPSI  (1)),(DERR(  D.DRPSK  1))  0UTP07  90 
COMMON    /1NPT4/    FIDJ { 2 ) ,F I WJ ( 2 ) , ARBR (2 ) ,NXUGMU,NXFRCP»XXUGMU (6 ) .          OUTP0800 

A  XXFRCP(6) ,XMUMAT(6,6,4),XMXPMT{6,6,4),  0UTP08 10 

B  XMXSMT(6»6,4),SLIPMT(6,6,4),CT(4)  ,XMUM(4),  0UTP0820 

C  XMUXP(4),XMUXS(4) ,RRMC(4),RRM(4) ,C0MEN4  0UTP0830 

EQUIVALENCE     (FIDJ(l) ,F ID JF) , ( FIDJ( 2 ). FIDJR ) , ( FIWJ( 1),FIWJF)  0UTP08  40 

EQUIVALENCE     (FI WJ (2 ) tFIW JR) , ( ARBR( 1 ) , ARBRF ) , ( ARBR( 2 > tARBRR )  0UTP08  50 

COMMON    /C0MP4/FIDAR(2),FIDIW(2) ,FIDWR2 { 2 ) , SPHICI (4 ) ,CPHICI ( 4) t  0UTP08  60 

1  TIHI(4),ARBRI(4),     PSITEM( 4 ) .SLPFAC (4 ) ,DTSTEP,DTTEST,0UTP08  70 

2  DTINT,TW0PIR,FRTEST{4) ,XMUI(4) ,FRCPMU <4) .HRTERM ,SLI P (4) ,  0UTP08  80 

3  SLIPT(4) ,RH0S(4),EPSS(4),TERMP(4),TERMB{4)»TERM{4) ,    0UTP0890 

4  EPSSFCfFSXFAC(4),FSYFAC(4) ,FSZFAC{4) ,FRXFAC(4),  0UTP0900 

5  FRYFAC(4),FRZFAC(4)tFCXFAC(4),FCYFAC(4),FCZFAC(4),       0UTP0910 

6  SFCDTR(4),SFSDTR(4),SFRCPR(4>,SSLIP(4),FCAV(4),  0UTP0920 

7  FSAV(4),FRCPAV(4) ,SLIPAV(4) ,RPSSM(4) ,FCSLSM(4),  0UTP0930 

8  ARTQ6(4),TQFAC(4),ARFAC1 (2) ,ARF AC2 ( 2 ) ,RPSFA( 2) ,RPSFB<2 ) . 0UTP0940 

9  RPSFC(2).RPSFD(2),HRPSFA(4),HRPSFB(4),HRPSFCU).STEPD  OUTP0950 
COMMON  /C0MP4/  XBRAK( 16 )  ,IUVS ( 4) . IUVB(4) , IRPS.IDTCNT, ISTEP, I  STOP  OUTP0960 
LOGICAL  IUVS,IUVB,IRPS  OUTP0970 
C0MM0N/C0MP5/    TAU(4) ,TOD ( 2 ) ,TQB (4) . PP( 2 ) , TLAMB( 2 ) t PC.RMDRIV , JDEND»0UTP0980 

1  NBTYP,ARFAC3(2) .RPSFE{2),RH0SMX(3).SL1PMX(3) ,SLIPPf    0UTP0990 

2  RH0MAXfRH0SAV(4),SRH0S(4),UGW(4),ABSUGW(4) tVECS,  OUTPIOOO 
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DATE       01/1^/76  TIME       172b  UPDATE    RECORD 

3  DELTAE,PI015R,COMEN5,TQE,RPME  CUTPIOIO 

COMMON/ADTNL/    Ul ,U2, U3 ,U4,V 1 , V2 , V3 , V4 ,W1 , W2, W3 , WA,  OUTPlOkO 

1  XIYP,SPHIC,CPHICtAPTCHltAPTCH2,APTCH3,APTCH4,  0UTP1O30 

2  SLOPEl,SLOPE2,XTKA(300)  OUTPIO^O 
DIMENSION  UI(4) ,VI(A ),WI(^)  OUTPIO&O 
EQUIVALENCE  (U I { 1  )  tU  I)  » ( VI  ( 1) » VI  ) ,  ( WI ( 1)  , Wl )  0UTP1O6C 
DIMENSION  AP1TCH{4)  0UTPI070 
EQUIVALENCE  ( AP  ITCH (  1 )  ,A PTCHl )  OUTP1080 
COMMON    /INSUS/    XIF tRHOE , T SF.PHI FO, PHIFODt DEL40, DEL^OD, ISUS ,  0UTP1090 

1  AKDSt AKDSltAKDS2tAKUS3tPHIRC( 50 ) , DTHF ( 5 0 ) ,DTHR ( 50 ) ,0UTP 1100 

2  NCAMF,NCAMR,NDTHF  ,NDTHR  OUTPlllO 
COMMON    /SUSCMP/    XMURU2  tBXMR02  tXMTRU^,  ZFOt  TSF02  t  RH0F2,RHFMUF  ,  OUTPli;rO 

1  RhF2MF,RF2MFI,RTF,kRTR,D3PD4,D3MDA-,043»DD3P4,  0UTP1150 

2  DD3M4,ZFDlRF,ZRD34,RFPFtRPF2M,WFMF fPHFP,PHIF2t  GUTPllAO 

3  PHIFD2  ,RPHFD,ZFD1,ZFD2,ZRD'^,TPF,SL0PF3,SL0PE4,  0UTP1150 

4  PHI3D,PHl4D,DTHFl,DTHF2,DTHR3tDTKRA,DTDDi,  DUTP1160 

5  DTDD2,DTDD3tL/TDD4tFJF(4)  tSNPF  0UTP1170 
COMMON/DRI VE/EN, FKD, FKP,FKS1»FKS2,FKSK ID, TESTE, TESTS 1,T ESI S2,  UUTP1160 

1  TESTK1,TESTR2,THESKU,FBRK,  APti,DSOES,  OUTPHSjD 

2  TRKI,M,TM1  ,DESS,DIST  ,UISTC,C0NMPH,UT,UTMPH,  CUTP12C0 

3  APD,DELTAX,UFLTV,Tj,TTEM,TTPSIT,PSISKD,ST,STSf 2,GAY,    0UTPI210 

4  AXP,AYP,DI, UP, XVP,YVP, SLOPE, SLOPER,PSIJ,XINT,X,Y,  0UTP1220 

5  TEkMX,TERMY,lEMPUR,  AE,c:I  ,EWT,AREI(  7),ARCAPE(7)  ,LT,  0UTP12SG 

6  PS1FFH,TITE,DPSISF,DPS1LF,PS1M,APSI ,APS1M,TPD(10) ,  0UTP1240 

7  PPD(IO) ,NPD, KCOUNT, ISKIDP,ISMAIN,I&EAR,WEIGHT(10),  DUTP1250 

8  DtND  0UTP12  60 
DIMENSION  ASTR(4),SLPANG(4)  0UTP1270 
DIMENSION  0T0D(4),0RPSi4),CSLlP(4)  0UTP12e0 
DATA  STAR,6LNK./1H*,1H  /  0UTP1290 
DATA  LPP/50/  0UTPi300 
DATA  TTTTTT/-9999.0/  OUTP 13  10 
IFdND.Nb.O)  GO  TO  400  0UTP1320 
LINES  =  0  0UTP1330 
RETURN  0UTP1340 

400    LINES    =    LINES+1  0UTP1350 

IF(MOD(LINES,LPP).NE.l  )    GOTO    500  CUTP13t0 

XPAGE    =    0.01*(LINES+LPP-1)/LPP  OUTP13/0 

NT    =    10  0U1P1380 

DO    410    J=l,20  CUTP1390 

IF(NPAGE(J),EQ.O)    GO    TO    410  0UTP1400 

NT    =    NT+1  OUTP 14 10 

PAGE    =    NT+XPAGE  OUTP 1420 

WRITE(NT,1000)     ( HED (  I  )  , I  =  1, 18 ) , DADE <! ) , DADE ( 2  )  ,  0UTP1430 

1  (VHEDd  ),  1  =  1,  10  ),(THtD(I  ),  1=1,  10),  (CHED(  n  ,1=1,10),  0UTP1440 

2  1GHED( 1), 1  =  1, 10)  ,( SHED(l) ,1=1,10) , PAGE  0UTPi430 
1000    FORMATdHl,  19X,18A^,  20X,2A4    /    5X,3(10A4)     /    5X,2(10A4),  0UTPi460 

1  22X,4HPAG£,1X,F8.2       /       )  0UTP1470 

GO    T0( 11 1,1 12, 113, 11 4, 11 5, 116, 11 7, lie, 119, 120,12 1,122, 12 3, 124,  OUTP 14 bO 

*  125, 126, 127, 12E, 129, 130), J  OUTP1490 

C      POSSIBLE    ERROR    MESSAGE  aUTP1500 

GO    TO    410  GUTP1510 
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DATE       01/14/76 

TIME 

1723 

UPDATE    RECORD 

111    WRITE(NT, 11001 

OUTP15  20 

1100    F0RMAT(1H0,46X-,23HS    P    R 

U    N    G               MA 

S    S         / 

0UTP15  30 

A62H       TIME          | 

POSITION     (FEET) 

1                  VELOCITY    ( 

0UTPI540 

B62HFT/SEC) 

1 

ACCELERATION 

(G-UNITS) 

0UTP1530 

C    6H                1          / 

0UTPlt>60 

D62H          SEC          1 

XC 

1               YC«          1 

2C» 

1       FORWARD 

1       LA 

0UTP1570 

E62HTERAL       I       VERTICAL     | 

LONG.        1 

LAT. 

I 

VERT.        1 

RESU 

OUTP1580 

F    6HLT.        I          /) 

0UTP15<)0 

GO    TO    410 

OUTP16  00 

112    IF(ISUS.EQ.l)    GC 

1    TO    1121 

0UTP16  10 

WRITE(NT,1200) 

0UTP16  20 

1200    FORMAT ( 

0UTP1630 

A62H0                        1 

S    P 

R 

UNO          MA 

>    S    S 

0UTP16  40 

B62H 

1 

SIDESLIP    1 

COURSE 

IFRONT    STEERl 

REAR 

OUTP16f.O 

C    6HSTEERI       / 

OUTPI06O 

D62H       TIME          | 

ANGULAR 

VELOCITIES     (DEG/SEC) 

1                  CRIENTATIO 

CUTP16  70 

E62HN    (DEGREES) 

1 

ANGLE       1 

ANGLE 

1 

ANGLE       1 

AN 

0UTP16  80 

F    6HGLE       1       / 

0UTP16  90 

G62H          SEC          1 

P 

1               0               1 

R 

1            ROLL 

1          P 

0UTP1700 

H62HITCH          1 

YAW          1 

DEG          1 

DEG 

I 

DEG          I 

D 

0UTP1710 

I    6HEG          1       /) 

0UTP1720 

GO    TO    410 

0UTP1730 

1121    WRITE{NT,1201) 

0UTP1740 

1201    FORMAT { 

OUTP17  50 

A62H0                       1 

S    P 

R 

U   N   G         MA 

t    S    S 

0UTP17  60 

B62H 

1 

SIDESLIP    1 

COURSE 

IFR.STEERJRR 

STEERl 

0UTP17  70 

C    9HLR    STEERl       / 

OUTP  1780 

D62H      TIME          I 

ANGULAR 

VELOCITIES    (DEG/StC) 

1                  ORIENTATIO 

0UTP1790 

E62HN    (DEGREES) 

1 

ANGLE       1 

ANGLE 

1 

ANGLE     1       ANGLE    i 

OUTP  1800 

F    9H       ANGLE     I       / 

OUTP  18  10 

G62H          SEC          1 

P 

1              Q              1 

R 

1            ROLL 

1         P 

OUTP 18 20 

H62HITCH          1 

YAW          1 

DEG          1 

DEG 

1 

DEG       1 

DEG       1 

OUTP 1830 

I    9H          DtG       1       / 

) 

OUTP 1840 

GO    TO    410 

OUTP  18  50 

113    WRITE(NT,1300) 

OUTP  18  60 

1300    FORMAT ( 

OUTP  18  70 

A62H0    TIME          | 

WHEEL    RIDE    DISPLACEMENTS 

(INCHES) 

1 

OUTP  1880 

B44H               WHEEL   RIDE   VELOCITIES    (IN/SECI 

1 

1 

/ 

OUTP 1890 

C62H         SEC         1 

RF 

1              LF            1 

RR 

1                 LR 

I 

OUTP  1900 

D44H       RF          1 

LF          1 

RR          1 

LR 

1 

/) 

OUTP  19  10 

GO    TO    410 

OUTP  19  20 

114   GO    T0(1140,1141, 

1142), ISl 

OUTP  1930 

1140    WRITE(NT,1400> 

OUTP  19  40 

1400    FORMAT (55H0 

1 

SPRUNG 

MASS 

1 

WHEEL 

OUTP 19  50 

A62HRIDE    ACCEL       1 

REAR    ROLL    CENTER 

RIDE 

1               REAR 

AXLE    A 

OUTP  19  60 

B15HN6ULAR 

!      / 

0UTP1970 

C62H       TIME          1    ANGULAR    ACCELERATIONS    ( DEG/SEC**2) |             (IN/SEC**2) 

OUTP  19  80 

D62H               1    DEFL 

1    VELOCITY    1  ACCELERATION!       DEFL       1    VELOCITY    I       A 

OUTP 1990 

E    9HCCEL         t         / 

OUTP  2000 

F62H         SEC          1 

DP/DT 

I              DQ/DT    1 

DR/DT 

1               RF 

1 

OUTP  20  10 

G62H    LF       1    INCHES 

.    1          IN/SEC    1    IN/SEC**2       I          1 

DEG       1       DEG/SEC    |DEG 

0UTP2020 
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DATE   01/14/76 


TIME   1725 


UPDATE  RECORD 


H  8H/SE 
GO  TO 

1141  WRITEi 

1401  FORMAT 
A62H 
B14HL 
C62H 
D15H 
E62H 
F15H   R 

GO  TO 

1142  WKITE( 

1402  FORMAT 
A62H0 
B62H 

C  7HNGU 
D62H 
E62HCCE 
F  7HACC 
G62H 
H62H/SE 
I  7HG/S 
GO  TO 

115  WRITEC 
1500  FORMAT 

A  IHI 
B59ri   T 
C59H 
GO  TO 

116  GO  T0( 

1160  WRITE( 

1600  FORMAT 
A62H0  T 
B62HAMB 
C  6HG) 
D62H 
L62H  R 
F  6HLF 

GO  TO 

1161  WRITE( 

1601  FORMAT 
A62H0  T 
B62HAMB 
C  9HDEG 
D62H 
E62ri  R 
F  9HR  I 

GO  TO 

1162  WRITE( 

1602  FORMAT 
A62H0  T 


C**2|  /) 

410 

NT, 1401) 

(IHO, 

I  SP 

I    / 

TIME  I     ANGULAR 

I     / 

I  DP/DT 

LR     I    /     ) 


SfcC 
R     t 
410 

NT  ,140; 
( 


RUNG    MASS  I 

ACCEL.     (DEG/SEC**2)     | 
I  DQ/DT    I  DR/DT    | 


WHEEL    RIDE    ACCE 
(IN/SEC**2J 
RF    I  LF     I 


) 


I 


/ 

I 

DEF 
/ 


LAKI 
TIME 
L     I 
EL    I 

SEC  I 

C2|  INCH 
EC2I  / 

410 

NT  ,1500) 
(1H0,8X, 
/ 

IME  I 

SEC  I 

410 

1160,116 
NT, 1600) 
( 

1Mb    I 
ER  ANGLE 
I    / 
I 


REAR  ROL 
ANGULAR 


PRUNG  MASS  I     FRONT  ROLL  CENTER 

L  CLNTER      I  FR.  AXLE  ANGULAR  I  REAR  AXLE  A 


ACCEL.  (DEG/SEC**2)  I   UEFL   iVELOCITYj   A 
IVELCCITYl   ACCEL  |VELOCITY|   ACCEL  |VELUCITY| 


DP/DT 
ES     I     IN/ 
) 


I  DQ/DT     I  DR/DT     I     INCHES     I     IN/SEC    I     IN 

SEC     I     IN/SEC2I    DEG/SEC IDEG/SEC2I     DEG/SEC|DE 


4bH|     STEER     FRICI     STEER    STOP| 


STEER       I 


STEER 


TORQUE        I 
LB-IN       I 

1,1162),IS1 


TORQUE       I  VEL  I  ACCEL        |       / 

L3-IN       I  DEG/SEC     I    DEG/SEC**2|       /) 


ST[  LR 

relativ 


ANGLE    IN    GROUND    PLANE     (DEG)  |  C 

E    TO    GROUND    PLANE     (DEG)     I       CAMBER    ANGLE    (DE 


/) 


SEC 
F 

I 

410 

NT ,1601) 
( 

IME    I 
ER  ANGLE 
)      I 
SEC    I 
F    I 

LR  I 
410 

NT, 1602) 
( 
IME    I 


RF 


I 


lF 


STEER 
RELATIV 
/ 

RF 

LF 
/   ) 


LF 
RR    I 


RR 


LR 


LR 
RF    I 


ANGLE  IN  GROUND  PLANE  (DEG)  |  C 

E  TO  GRUUND  PLANE  (DEG)  |     CAMBER  ANGLE  ( 

I       LF    I       RR    I       LR    I 

I       RR    I       LR    I    RF  I    LF  I  R 


STEER  ANGLE  IN  GROUND  PLANE  (DEG) 


OUTP2030 
0UTP2040 
OUTP205O 
OUT P 20 60 
0UTP20  70 
0UTP2060 
CUT P  20  90 
DUTP2100 
0UTP21 10 
OUTP2120 
QUTP2130 
0UTP214C 
0UTP2150 
0UTP21t0 
0UTP217C 
GUTP21bC 
OUTP2190 
OUTP22C'C 
OUTP22  IC 
UUTP22L0 
DUTP22  3  0 
0UTP2240 
OJTP2250 
OUTP 22  to 
CUTP2270 
OUTP 22  EG 
0UTP2290 
OUTP  23 CO 
0UTP23  10 
UUTP2320 
0UTP2330 
0UTP2340 
OUTP23f>0 
UUTP23  60 
0UTP237G 
OUTP 23  to 
OUTP23*^0 
0UTP2400 
0UTP2410 
DUTP2420 
0UTP2430 
OUTP 2440 
0UTP245C 
OUTP  24  6C 
OUTP 2470 
0UTP2^80 
0UTP2h90 
0UTP2500 
OUTP2510 
OUTP2520 
OUTP2530 
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DATE   01/14/76 


TIME   1725 


UPDATE  RECORD 


B62HAMBER  ANGLE 
C  6HDEG)  I    / 
D62H    SEC    I 
E62H   RF    I 
F  6HPHIR  I    /  ) 
GO  TO  410 

117  WRITE(NT,1700) 
1700  FORMAT ( 

A62H0  I 

B44H     LATERAL 
C62H   TIME    I 
D44H    PARALLEL 
E62H    SEC    I 
F44H   RF    I 
GO  TO  410 

118  WRITE(NT,1800) 
1800  FORMAT( 

A58H0  TIME    | 
b58H    SEC    I 
GO  TO  ^10 

119  WRITE(NT,1900) 
1900  FORMAT* 

A62H0  TIME    | 
B44H      SUSPEN 
C62H    SEC    I 
D44H   RF    I 
GO  TO  410 

120  WRITE(NT,2000) 
2000  FORMAT{ 

A62H0  TIME    | 
B44H        SUSP 
C62H    SEC    I 
D44H   RF    I 
GO  TO  410 

121  WRITE(NT,2100) 
2100  FORMAT( 

A62H0  TIME    | 
B44H        ROLL 
C62H    SEC    I 
D44H   RF    I 
GO  TO  410 

122  WRITE(NT,2200) 
2200  FORMAT ( 

A62H0  TIME    | 
B62H  TIRE  SIDE 


RELATIVE  TO  GROUND  PLANE  (DEG)  |  AXLE  ROLL  ANGLE  ( 
I  .      LF    I 


RF 
LF  I 


RR 


RR  I  LR  I 

LR  I    FRONT-PHIFI    REAR- 


LONGITUDINAL    WHEEL   CENTER    VELOCITY 

CONTACT    POINT    VELOCITY  |  / 

PARALLEL    TO    GROUND    PLANE     (FT/SEC) 

TO    GROUND    PLANE     (FT/SEC)  |  / 

RF  I  LF  I  RR  I 

LF  I  RR  I  LR  (  /) 


LR 


TIRE  CONTACT  POINT  ELEVATION  (INCHES) 

RF    I       LF    I       RR    I       LR 


TOTAL    SUSPENSION    FORCE    (LBS) 
SION    ANTI-PITCH    FORCE    (LBS)  I  / 

RF  I  LF         I  RR  I  LR 

LF  I  KR  I  LR         I  /) 


SUSPENSION  DAMPING  FORCE  (LBS) 
ENSION  SPRING  FORCE  (LBS)        I       / 

RF    I       LF    I       RR    I       LR 
LF    I       RR    I       LR    I     /) 


RADIAL  TIRE  FORCES  (LBS) 
ING  RADIUS  (INCHES)  I    / 

RF    I       LF    I       RR    I       LR 
LF    I       RR    I       LR    I    /) 


/ 
/) 


TIRE  NORMAL  FORCE  (LBS)  I 

FORCE  (LBS)  I  SLIP  ANGLE  (DEG) 


C  6H 
D62H 
E62H 
F  6H 
GO 


I 

SEC 
I 
LR   I 
TO  410 


LF 
/ 


RF   I       LF   I       RR   I       LR   I       RF 
I       RR   I       LR   I    RF   I    LF   |    RR   ( 


123    WRITE(NT,2300) 


0UTP25  40 
0UTP25  50 
0UTP25  60 
0UTP2b70 
0UTP2560 
0UTP2590 
0UTP26O0 
0UTP2610 
0UTP26  20 
0UTP2630 
0UTP2640 
0UTP2650 
0UTP26  60 
QUTP26  70 
0UTP2680 
0UTP26  90 
0UTP2700 
0UTP2710 
OU  TP  27  20 
OUTP27  30 
0UTPZ740 
0UTP27  50 
0UTP2760 
0UTP27  70 
0UTP2760 
0UTP27  90 
OUTPZaOO 
OUTP28  10 
0UTP2a20 
0UTP2fc30 
0UTP28  40 
0UTP28S0 
0UTP28  60 
0UTP28  70 
0UTP286& 
0UTP28  90 
0UTP29  00 
0UTP29i0 
0UTP29  20 
0UTP2930 
CUTP29  40 
0UTP29  50 
0UTP29  6G 
0UTP29  70 
0UTP2980 
0UTP29  90 
OUTP3000 
0UTP3010 
0UTP30  20 
0UTP3030 
0UTP3040 
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DATE       01/14/76 


TIME       1725 


UPDATE    RECORD 


2300  FORMAT 
A62H  T 
B62H 
C  6HRQU 
0c2n 
E62H  R 
f  6H1-L 
GO    TO 

124  WRITE( 
2400  FORMAT 

A62H0  T 
b62HNTA 
C  6H 
D62H 
E62H   L 
F  6HLR 
GO  TO 

125  WRITE! 
2500  FORMAT 

A62H0  T 
B62HL0P 
C  6HE&) 
Do2H 
E62H  L 
F  6HLR 
GO  TO 

126  WRITE! 
2600    FORMAT 

A62H0  T 
B44HUNG 
C62H 
04AH0NG 
GO  TO 

127  WRITE( 
2700  FORMAT 

A62H0  T 
B62H  FR 
C  6H 
D62H 
E62H   L 
F  6HLR 
GO  TO 

128  WRITEi 
2600  FORMAT 

A62H0 
b62HES 
C  6H 
D62H   T 
E62H 
F  6H 
G62H 


(1H0,1G5X,25H| 
IME    I 

DRIVIN 
E  I     / 
SEC    I       R 
F    I       LF 
B  I     /     ) 
410 

NT, 2400) 
{ 

I  ML    I    Z'-V 
L  TIRE  FORCE  ( 

I     / 
SfC    I     RE 
F    I     RR 

I     /) 
4iG 

NJ ,2500) 
( 

IME    I 
E-CAMBER  (PHIG 

I     / 
SEC    I     PF 
F    I     RR 

I     /) 

410 

NT, 2600) 
( 

IML    I  SPRUNG 

MASS  ACCELERA 

SEC    I    LONG 

t     LAT. 
410 

NT, 2700) 
( 

IME     t 
ICTION  RATIO 

I     / 
SEC    I     RF 
F    I     RR 

I      /      ) 

410 

NT, 2 8 00) 

( 

I    HYDR 


IME 


ENGINE    I   ENGINE    |    / 
TIRE  TRACTIVE  FORCE  (LBS) 
G  TORCUE  (LB-FT)  | 


LF 


RR 


RR 


LR 


ERTICAL    TIRE    FORCE    (LBS) 

LBS)  I  Y«-H0RI20NTAL    TI 


LF 
LR  I 


RR 
RF  I 


LR 


LF 


TERRAIN    ELEVATION     (IN) 

)     (DEG)  I  TERRAIN     SLCPE-PI 


I 

SPEED       I  TO 

LR  I 

RPM  I  F 


I  X»-HOkIZO 

RE    FORCE     (LBS) 

I  RF  ! 

I  RR  I 


I  TERRAIN    S 

TCH     (THETAG)     (D 


LF 


I 


RR 


LR 


RF 


LR 


RF 


LF 


MASS    ACCELERATION    LOCATION    1( 
TICN    LOCATION    2    (G-UNIIS)     I 

I  LAT.  I  VEKT.  I 

I  VERT,  I  RESULT,     | 


RR 


G-UNITS)        I     SPR 
/ 
RESULT.     I  L 

/) 


WHEEL    SLIP    (PERCENT)  I 

I  WHEEL    ROTATION    (REV/SEC) 


I 


LF 


LR 


RR 
RF  I 


LR 


LF 


I  RF 

I  RR 


AULIC    PRES. 
I 


BRAKE    TEMPERATURE 


I  (PSIG)  I 

I 
I  / 

SEC  I  FRONT  I  REAR  | 


BRAKE    TORQU 


(LB-FT) 


(DEG-F) 
RF  I 


LF  I 


OUTP30  50 
0UTP30  60 
0UTP3070 
0UTP3080 
CUTP30  90 
0UTP3100 
OUTP3110 
0UTP3120 
0UTP313G 
0UTP3140 
0UTP3130 
0UTP3160 
CUTP3170 
0UTP3160 
0UTP319G 
0UTP32  0C 
UUTP32iO 
0UTP3220 
CUTP32  3P 
0UTP3240 
0UTP32  50 
0UTP3260 
0UTP32  70 
0UTP328C 
0UTP32  90 
0UTP33  00 
DUTP23  iO 
0UTP33  20 
0UTP3330 
OU  TP  33  40 
0UTP33  50 
0UTP3360 
0UTP3370 
CUTP33&0 
0UTP33  90 
OUTP34  00 
0UTP3410 
0UTP3420 
0UTP3430 
0UTP3440 
0UTP3450 
0UTP3460 
0UTP34  70 
0UTP34e0 
0UTP34  90 
0UTP3500 
0UTP3510 
0UTP35  20 
0UTP35  30 
0UTP3540 
0UTP3550 
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TIME   1725 


UPDATE  RECORD 


LR 
) 


I 


LF 


I 


RR 


DISSIPATED  ENERGY 


ERROR  ETJ  I    DESIRED  |    ACC  PED  I  BRA 


IN.   I 


ACCEL   I 


I   IN/SEC**2| 


DEFL   I 
IN.   t 


H62H   RR    I        LR    I       RF 
I  6HLR    I     / 
GO  TO  410 

129  WRITE(NT,2900) 
2900  FORMAT ( 

A62H0  I 

B44H(FT-LB)  I     / 

C62H   TIME    I  BRAKES 

D44H  TIRES  I     / 

E62H    SEC    I       RF    I       LR    I        RR    |        LR 
F^H   RF    I       LF    I       RR    I       LR    I     /     ) 
GO  TO  410 

130  WRITE(NT,3000) 
3000  FORMAT! 

A62H0  TIME    |  DELTA  PSIFI 
B15HKE  PED  |        I    / 
C62H    SEC    I       DEG   I 
D15HF0RCE   I  GEAR  |    / 
E62H  I  I 

F15H   LBS   I        I    /   ) 
410  CONTINUE 
500  NT  =  10 

DO  600  J=l,20 

IF(NPAGt(J).EO.O)  GO  TO  600 

GO  TO  ( Il,12fl3,14,15,16,17,18,19,20»21f22»23,24,25f26,27, 

*  28t29,30),J 

11  NT  =  NT+1 

ACLON  =  (DU-VR+WQ)/G 

ACLAT  =  (DV*UR-WP)/G 

ACVER  =  (DW+VP-UQ)/G 

ULON  =  U/12, 

VLAT  =  V/12. 

WVER  =  W/12. 

ACRES  =  SQRT{ACL0N**2+ACLAT**2+ACVER**2) 

OXCP  =  XCP/12. 

OYCP  =  YCP/12. 

OZCP  =  ZCP/12. 

WRITE (NT, 5000)  T, OXCP, OYCP, OZCP i ULON, VLAT , WVER , ACLON, ACLAT , ACVER, 

♦  ACRES 

5000    FORMAT(»    • ,F7.4, 10( 2X, FIO .2 ) ) 
GO    TO    600 

12  NT    =    NT+1 
ONU    =0,0 

IFIDYCP. EQ. 0.0. AND. DXCP.EQ. 0.01    GO    TO    212 
ONU    =    ATAN2(DYCP,DXCP)/RAD 
212    ROLL    =    P/RAD 
PITCH    =    Q/RAD 
YAW    =    R/RAD 
PHIO    -    PHIT/RAD 
THTAO    =    THETT/RAD 
PSIO    =    PSIT/RAD 


0UTP35  60 
0UTP35  70 
0UTP35.60 
0UTP35  90 
0UTP36  00 
0UTP36  10 
OUTP3620 
0UTP3630 
OU  TP  36  40 
0UTP36  50 
0UTP36C0 
0UTP3670 
0UTP36  80 
0UTP3690 
OU  TP  37  00 
0UTP3710 
0UTP3720 
0UTP3730 
0UTP3740 
0UTP3750 
OUT P 37 60 
0UTP3770 
OUTP3760 
0UTP3790 
0UTP3B00 
0UTP3810 
0UTP3820 
0UTP3B30 
0UTP38  40 
0UTP38  50 
0UTP38  60 
0UTP36  70 
0UTP3bS0 
0UTP38  90 
0UTP3900 
0UTP3910 
0UTP39  20 
0UTP39  30 
0UTP39  4O 
0UTP3950 
0UTP3960 
0UTP3970 
0UTP39  60 
0UTP3990 
0UTP40  00 
OUTP4010 
0UTP40  20 
0UTP4030 
0UTP4040 
0UTP40  50 
0UTP4060 
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OBETA    =    ONU-PSIO  0UTP4070 

PSIFO    =    PSIl/RAD  0UTP4080 

1F( ISUS.ty.l )    GO    TO    213  0UTP4090 

OPSIR    =    PSI3/RAD  0UTP4i00 
WRITE (NT, 5 00  0)     T tROLL ,PI TCH, YAW , PHIO, THTAG,PSI0,0B ETA, ONU, PSl FC,       OUTP4110 

*  QPSIR  0UTP412C 
GO    TO    600  OUTP'^IBO 

213    0PSI3    =    PSI3/RAU  0UTP4140 

GPS  1 4    =    PSI4/RAD  0UTP4150 
WRITE (NT, 5004)     T  ,ROLL , PI TCH, YAW , PHI  0, THTAO ,PSIO,OB ETA, GNU,  PSI FC,       0UTP4i60 

*  0PSI3,0PSI'+  OUTP4170 
GO    TO    600  OUTP^lfaO 

13  NT  =  NT+1  0UTP4190 
GO    T0(131, 132,133) ,IS1  GUTP4200 

131  0ETA3  =  DEL3*TRD2*PH1R  0UTPh210 
0ETA3  =  DEL3+TRU2»PH1R  0UTP4220 
0ETA4  =  DEL3-TRC2*PHIR  OUTP^23C 
0ETA3D  =  DEL3D+1R02*PHIRD  0UTP42't0 
0ETA4D  =  DEL3D-TR02*PHIRD  0UTP4250 
WRITE  (NT, 5  000)  T  ,DEL  1 ,  OE  L2,  DETA3  ,0  tTA4,  DELID  ,  0EL2D  ,0[.T  A3D,  CETA4D  CUTP4^60 
GO    TO    600  CUTP4270 

132  WKITE (NT,5000)  T ,DEL 1 , DE L ?, DEL3 , DE L4,DLL ID ,DE L2D ,DEL3D ,DEL4D  0UTP4280 
GO    TO    6  00  0UTP42  90 

5004  FORMATdH    ,  F  7.  4  ,  8  (  2X  ,F  10  .  2  )  ,  5  (  2  X  ,F  7  .2  )  )                                                                           OUTP4300 

133  OETAl  =  DEL1+TFU2*PH1F  OUTP43  10 
0ETA2  =  DELI-TFL2*PHIF  0UTP4320 
0ETA3  =  DEL3+TR02*PHIR  0UTP4330 
0ETA4  =  D£L3-TRL2*PHIP  0UTP43'*C 
OETAID  =  DEL1D+TFC2*PHIFD  0UTP43r0 
0ETA2D  =  DELlD-TFC2»PhIFD  0UTP4360 
0ETA3D  =  DEL3D+TR02«PHIRD  0UTP437C 
0ETA4D  =  DEL3D-TR02*PHIRD  0UTP438G 
WRITE (NT, 5000)    1 ,OET AI ,0 E TA2 , OET A3 , CETA4, OtTA 1D,0ETA2D ,0ET A3D ,            0UTP43  90 

*  0ETA4D  0UTP4400 
GO    TO    600  0UTP44iG 

14  NT  =  NT-t-1  0UTPVt20 
ODP  =  DP/RAD  0UTP4430 
00^  =  Dw/RAD  0UTP4440 
ODR  =  uK/RAD  0UTP4450 
IFdSUS.EO.l  )  GO  TO  141  GUTP4460 
DPHDTO  =  PHIRD/RAD  0UTP4470 
OPHDD  =  OPHIRD/RAD  0UTP44B0 
IF( ISUS.EQ.2)  GO  TO  142  0UTP4490 
PHIRO  =  PHIR/RAD  OUTPA:>00 
WRITE (NT, 5001)     T,ODP ,ODQ ,ODR, DDE  LID ,DD£L2D ,DLL3 ,DEL3D, DDEL3D,  0UTP45  10 

*  PHIRO, DPHDIO, OPHDD  DUTP4520 
5001    FORMAT('    • , F7,4, 3 ( 2X ,F 10 . 2) , 2 ( 2X ,F9.1 ) , 2X , F7,2 ,2X, F9.1 ,2X,  0UTP4530 

*  F9.1,2X,F7.2,2X,F9,1,2X,F9.1    )  0UTP4540 
GO    TO    600  0UTP45^0 

141    WRITE(NT  ,5005)     T ,ODP ,0DQ ,DOR, DDEL1D,DDEL2D,DDE L3D,DDEL4D  GUTP4560 

5005  FORMATdH    ,  F7.  3  ,  3  ( 2X  ,  F8.  2  ) ,  10  (2  X  ,F7  .1  )  )                                                                        0UTP4570 
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GO    TO    600  0UTP45  80 

142    DPFDTO    =    PHIFD/RAD  OUTPA590 

OPFDD    =    DPHIFD/RAD  0UTP4600 

WRITE (NT, 5005)     T,ODP ,0DQ ♦ ODR , DEL  1, DtLlD ,DDEL 1D,DEL3»DE L3D, DDEL3D,    0UTPA6  10 

♦  DPFDTO, OPFDD, DPHDTOtOPHDD  0UTPA620 
GO    TO    600  0UTP4630 

15  NT  =  NT+1  0UTP4640 
ODPSFl  -  DPSIFI/RAD  OUTP4650 
ODDPSF  =  DDPSFl/RAD  0UTP4660 
WRITE(NT,5000)  T.TIPSI ,T2PSI ,0DPSF I , ODDPSF  DUTP467G 
GO    TO    600  0UTPA680 

16  NT  =  NT+1  0UTP4690 
PHRF  =  PHICKD/RAD  0UTPA700 
PHLF  =  PHICI(2)/RAD  0UTP4710 
PhRR  =  PH1CI(3)/RAD  0UTPA720 
PHLR  =  PMICI(4)/RAD  0UTP4730 
PSRF  =  PSIIP(1)/RA0  0UTP4740 
PSLF  =  PSIIP(2)/RAD  0UTPA750 
PSRR  =  PSIIP(3)/RAD  0UTP4760 
PSLR  =  PSlIPtA)/RAD  0UTP4770 
IF( ISUS.EQ.2)  GO  TO  162  0UTP4780 
PHI  10  =  PHII/RAD  0UTP4790 
PHI20  =  PHI2/RAD  CUTP4G00 
IF(ISUS.EO.l)  GO  TO  161  0UTP4810 
WRITE (NT, 50001     T  ,  PSRF, PSLF, PSRR , PSLR, PHRF , PHLF , PHRR, PHLR , PHI 10,          0UTP4b20 

*  PHI20  0UTP4630 
GO    TO    600  0UTP4840 

161  PHI30  =  PHI3/RAD  0UTPA850 
PHI40  =  PHI4/RAD  0UTP4860 
WRITE(NT,5006)    T  , PSRF, PSLF, PSRR , PSLR, PHRF , PHLF , PHRR , PHLR , PHI 10,          0UTP4870 

♦  PHI20,PHI3L),PHI40  OUTP^BSO 
GO    TO    600  0UTP^90 

162  PHIFO  =  PHIF/RAD  0UTP4900 
PHIRO  =  PHIR/RAD  DUTP4910 
WRITE (NT, 5000)     T , PSRF , PSLF, PSRR, PSLR, PHRF , PHLF , PHRR , PHLR , PHIFO,          DUTP49  20 

*  PHIRO  0UTP4930 
5006    FORMATdH    ,F  7.4,8  (2X  ,F  10  ,2)  ,4  ( 1X,F6.2  )     )  OUTP4940 

GO>TO    600  0UTP4950 

17  NT  =  NT+1  0UTP4960 
VLNRF  =  UG(1)/12.  0UTP4970 
VLNLF  =  UG(2)/12.  0UTP4980 
VLNRR  =  UG(3)/12.  0UTP4990 
VLNLR  =  UG(4)/12.  0UTP5000 
VLTRF  =  VG(1)/12.  0UTP5010 
VLTLF  =  VG(2)/12.  0UTP5020 
VLTRR  =  VG(3)/12.  0UTP5030 
VLTLR  =  VG(4)/12,  OUTP5040 
WRITE (NT, 5000)  T,  VLNRF  , VLNLF, VLNRR , VLNLR, VLTRF , VLTLF, VLTRR,  VLTLR  0UTP50  50 
GO    TO    600  0UTP5060 

18  NT  =  NT+1  0UTP5070 
WRITE(NT,5000)    T, ( ZGPP (I )  ,1-1 ,4)  0UTP5080 
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GO    TO    600 
IP    NT    =    NT+l 

WRITE(NT,5G00) 
GO    TO    600 

20  NT  =  NT+1 
IF(ISUS.hQ.2) 
ODl  =  -CF*DEL1 
0D2  =  -CF*DEL2 
GO  TO  202 

201  UDl  =  -CF*(DEL 
0D2  =  -CF*(DEL 

202  IF(ISUS.EO.l) 
0D3    =    -CR»(DEL 
0D4    =    -CR*(DEL 
GO    TO    2  04 

203  0D3    =    -CR*DEL3 
GD4    =    -CR*DEL4 

204  CONTINUE 

OSPl  -  -F2FI  (1 
CSP2  =  -F2FI(2 
0SP3  =  -F2RI(1 
0SP4  =  -F2R1(2 
WRITE(NT,&000) 
GO  TO  600 

21  NT  =    NT+1 
WRITE(NT,5000) 
GO  10  6  00 

22  NT  =  NT+1 

DO  220  1=1,4 
ASTRd  )  =  bLNK 
IF(ABSlbETBR(l 
SLPANG(I)  =  (T 
220  CONTINUE 

WRITE(NT,5003) 
* 

5003    FORMAT (IH    ,  F 7. 
GO    TO    600 

23  NT  =  NT+1 
OTQD(l)  =  0,5* 
0T^0(2  )  =  OTQD 
0TQD(3)  -0.5* 
0TQD(4)  =  OTCD 
WRITE(NT,5000) 
GO    TO    600 

24  NT    =    NT+1 
FRIO    =    AMTX(3, 

=    AMTX(3, 

=    AMTX(3, 

=    AMTX(3, 

AMTXd 

AMTXd 


T,(SI(I  ),I=lt4),(APnCH(I),I  =  l,4) 


GO 

D 

D 


TO    201 


HIFD) 
HIFD) 

IRD) 

IRD) 


1D+TSF02*P 
1D-TSF02*P 
GO    TO    203 
30+TS02+PH 
3D-TS0  2*PH 

D 
D 

) 
) 
) 
) 

T,ODl,OD2,DD3,0D4tOSPl,OSP2,OSP3,0SPA 


T,(FR(I ), 1=1,4), (HI ( I) ,1=1,4) 


FR20 
FR30 
FR40 
FXPUl  = 
FXPU2  - 


)  )  .GT.3.0) 
ERM( I)-PSI 

T,(FRCP(I 

(SLPANGd 

4,lX,4dX, 


TQD(1)*ARB 
(1) 

TQD(2)*ARB 
(3) 
T,(FCd), 


l)*FXUd)  + 
1)*FXU(2)+ 
1)*FXU(3)+ 
1)*FXU(4)+ 
,1)*FXU( 1) 
,1)*FXU(2) 


ASTRd  )=STAR 
TEMd)  )/RAC 

) ,1=1,4) ,(FS(1 ),ASTR( I),l=l,4)  , 

),I=1,4) 

F10.2),4(lX,F9,2,Al),4dX,F7.2) 


RCl) 
R(2) 
1=1,4), (OTQD( I) ,1=1,4) ,RPME,TQE 


AMTX(3,2)*FYU(l)  +  AMTX(3,3)*FZUd) 
AMTX(3,2)*FYU(2)+AMTX(3,3)*FZU{2) 
AMTX(3,2)*FYU(3)+AMTX(3,3)*FZU(3) 
AMTX( 3,2)*FYU(4)+AMTX(3,3)*FZU(4) 
+  AMTXd,2)*FYU(l)+AMTX<l,3)*FZU(i) 
♦AMTX(1,2)*FYU(2)+AMTX(1,3)*FZU(2) 


0UTP50  90 
0UTP5100 
0UTPi>110 
0UTP5120 
OUTP5120 
0UTP3140 
0UTP5150 
OUTP5)160 
DUTPbi7C 
OUTP^lEO 
0UTP519C 
0UTPS200 
0UTP52  10 
GUTPi)2  20 
0UTPfi230 
0UTPi>2  40 
OUTP52  5<0 
0UTPt>2  60 
0UTP5^70 
OUTP52e0 
0UTP52  90 
OUT  P  53  00 
OUTP53  10 
OUTP53  20 
0UTP5330 
PUTP53  40 
GUTP5350 
OUTPi.3  60 
OUTP5370 
OUTP53b0 
0UTP53  90 
0UTP54  0G 
0UTP5A10 
0UTP5420 
0UTP5430 
0UTP5440 
0UTP5450 
0UTP54  60 
0UTP5470 
0UTP54fc0 
OUTP54  90 
OUTP55  00 
0UTP55  10 
0UTP55  20 
OUTP5530 
0UTP5540 
0UTP55  50 
0UTP5560 
0UTP55  70 
OUTPt5bO 
0UTP55  90 
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FXPU3  =  AMTX(l,l)*FXU(3) 
FXPU4  =  AMTX(1,1>*FXU(4) 
FYPUl  =  AMTX(2,1)*FXU(  1) 
FYPU2  =  AMTX<2,1)*FXU(2) 
FYPU3  =  AMTX(2,1)*FXU(3) 
FYPU4  =  AMTX(2,1)*FXU(4) 
WRITE(NT,5002)  T,FR10,FR 
♦  FYPUl, FYP 

5002  FORMAT(»  ' , F 7, 4 , 12 (2X , F8 
GO  TO  600 
NT  =  NT-t-l 


+AMTX(1,2)*FYU(3)+AMTX(1,3)*FZU(3) 

♦AMTX(1,2J*FYU<4)+AMTX( 1,3)*FZU(4) 

♦AMTX(2,2)*FYU( 1 ) ♦AMTXI 2 ,3 )*FZU< 1) 

♦AMTX(2,2)*FYU(2J+AMTX(2,3)»FZU(2» 

+AMTX(2,2)*FYU(3)+AMTX(2,3)*FZU(3) 

+AMTX{2,2)*FYU(4)+AMTX(2,3)*FZU(4) 

20,FR30,FR40,FXPU1,FXPU2,FXPU3,FXPU4, 

U2,FYPU3,FYPU4 

.1)     ) 


25 


PHGIO 
PHG20 
PHG30 
PHG40 
THGIO 
THG20 
THG30 
TH&40 


PHGI(1)/RAD 
PHGn2)/RAD 
PHGI(3)/RAD 
PHGI(4)/RAD 
THGI (1)/RAD 
TH&1(2)/RAD 
THGI(3)/RAD 
THGIU)/RAD 


T,(ZPG1 (I 

THG20,THG 


26 


27 


271 


5007 


28 


29 


30 


5008 


WRITE(NT,5002) 

GO    TO    600 
NT    =    NT+1 

AXl  =  (DU-VR+W0-X1*(Q2*R 
AX2  =  (DU-VR+WQ-X2*{02+R 
AYl  =  {DV+UR-WP+X1*(PQ+D 
AY2  =  (DV+UR-WP+X2*(  PO+D 
AZl  =  (DW+VP-UQ+X1*{PR~D 
AZ2  =  (DW+VPHJQ+X2*(PR-0 
AIR  =  S0RT(AX1**2+AY1**2 
A2R  =  SORT(AX2**2+AY2**2 
WRITE(NT,5000)  T, AXl, AYl 
GO  TO  600 
NT  =  NT+1 
DO  271  1=1,4 
ORPS(I)  =  RPSI(I)*TWOPIR 
OSLIP(I)  =  SLIPAV(I)*100 
WRITE(NT,5007)  T,(OSLIP( 
L  (ORPS(I), 


1,1=1,4) ,PHG10,PHG20,PHG30,PHG40,THG10, 
3U,THG40 


*AZ2**2) 
,AZ1,A1R,AX2,AY2,AZ2,A2R 


.0 


I),I=1,4),(RH0SAV(I),I=1,4), 
1=1,4) 
,F7.4,8(2X,F6.3),4(2X,F8.2)  ) 


FORMAT! IH 

GO  TO  600 

NT  =  NT+1 

WRITE{NT,5000) 

GO    TO    600 

NT    -    NT+1 

WRITE(NT,5000) 

GO    TO    600 

NT    s   NT+1 

DPSSO    =    DPSISF/RAD 

WRITE(NT,5008)    T, DPSSO, E 

FORMATdH    ,F7,3,5(2X,F10 


T,PP(  1),PP(2), (TQBCI),I  =  1,4),(TAU(I),I=1,4) 


T,(RPSSM(I),I=1,4), (FCSLSM(I),I=1,4) 


T,DELTAX,APD,FBRK,IGEAR 
•2), 14       ) 


0UTP56  00 
0UTP56  10 
0UTP5620 
0UTP5630 
0UTP56  40 
0UTP56  50 
0UTP56  60 
0UTP5670 
0UTPS>6b0 
0UTP56  90 
0UTP5700 
0UTPb7  10 
0UTP5720 
DUTP5730 
0UTP5740 
0UTP57b0 
0UTP5760 
0UTP57  70 
0UTP5780 
0UTP57  90 
0UTP5B00 
0UTP58  10 
0UTP5820 
0UTP58  30 
0UTP5b40 
QUTP58  50 
0UTP58  60 
0UTP58  70 
0UTP58  80 
OUTP58  90 
0UTP5900 
0UTP5910 
OUTP59  20 
0UTP59  30 
0UTP5V40 
0UTP5950 
OUTP59  60 
OUTP59  70 
OUTP59  80 
0UTP5990 
0UTP60  00 
0UTP6010 
0UTP60  20 
0UTP60  30 
0UTP60  40 
0UTP60  50 
OUTP6060 
0UTP6070 
0UTP60  80 
0UTP60  90 
0UTP6100 
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600    CONTINUE:  0UTP6110 

RETURN  OUTPtli:0 

ENTRY    THPLOT(IPLT)  0UTP6130 

GO    T0(901,902,903) tIPLT  0UTP6I40 

901  WRITE(3)  HED,VHED,THFDtCHtU,GHED,SHED,DADL  0UTP6150 
RETURN  OUTP6i60 

902  WRITE(3)    T ,ULON tVL AT , ACL  ON, ACLAT ,ACVER, ACRES .ROLL , PITCH,  OUTP6x70 
1                     YAW,PHI0,THTA0,PS1U,AX1,AY1,AZ1,A1R,AX2,AY2,A22,A2R  OUlPolBO 

RETURN  0UTP6190 

903  WRITE(3)  { TTTTTT  ,  1  =  1  ,21)  CUTPto^OO 
RETURN  (JUTP62iO 
END  0UTP62  20 
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FUNCTION    PARI  (NN,IA,TSeCtX-»Y)  PARIOOIO 

C  HV0SM-VD2    VERSION  PARI  0020 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION  PARI0030 

DIMENSION    X(51),    Y(51)  PARI0040 

PARI    =    0.0  PARIOOIO 

PARI00  60 
PARI0070 
PARI0080 
PARI  00 ''O 
PARIOIOO 
PARI  01  10 
PARI  0120 
PARI0130 
PARI  0140 
10    XA    =    X{J)  PARIC150 

PARI0160 
PARI  01 70 
PARIOi&O 
PARI0190 
15    YC    =    Y(JB)  PARI0200 

PARI0210 

PARI0220 

PARI02  30 

(Dl    +   D3    *    (XX-XB)l  PARI0240 

PARI  02  50 
PARI02  60 


N  =  1 

SJN 

XX  = 

TSEC 

J  = 

lA 

JA  = 

J+I 

JB  = 

J  +  2 

IF(JB.LE.N) 

GO  TO  10 

J  =  1 

M 

JA  = 

N-1 

JB  = 

N-2 

XA  = 

X{  J) 

XB  = 

X(  JA) 

XC  = 

X(JB) 

YA  = 

Y(J) 

YB  = 

Y{JA) 

YC  = 

Y(JB) 

Dl  = 

(YB-YA)/(XB- 

-XA) 

D2  = 

(YC-YB)/{XC- 

-XB) 

03  = 

(D2-01)/(XC- 

-XA) 

PARI 

=  YA  + 

(XX-! 

<A)  ♦ 

RETURN 

END 

493 


SUBROUTINE  PINT  1 (IN , MODE,N,/X/,/HH/, YY, YYP, A) 

00048220 

Q:^*^i^i^:^iiii^i**}ti^:ti:ii******i**i*=(f********^**************t'¥'lf** 

C* 

♦00048240 

C* 

SUBROUTINE  PINTl 

*00048250 

C* 

*00048260 

C* 

PURPOSE 

*00048270 

C* 

TO  SOLVE  A  SYSTEM  OF  N  REAL  ORDINARY  DIFFERENTIAL  EQUATIONS  OF 

*00048280 

c* 

THE 

FIRST  ORDER 

♦00048290 

c* 

♦00048300 

c* 

USAGE 

♦00048310 

c* 

CALL 

PINTinN,MODE,N,X,HH,YY,YYP,A) 

♦00048320 

c* 

♦00048330 

c* 

DESCRIPTION  OF  PARAMETERS 

♦00048340 

c* 

N 

NUMBER  OF  EQUATIONS 

♦00048350 

c* 

IN 

INDICATOR  FOR  INITIALIZATION  OF  INTEGRATION  STEP  ,  IF 

♦00048360 

c* 

IN  =  I  THE  ROUTINE  INITIALIZES 

♦00048370 

c* 

IN  =  2  THE  ROUTINE  INTEGRATES  ONE  STEP 

♦00048380 

c* 

MODE 

THE  OPTION  WGRD(=0,1,CR  2)  FOR  USING  ONE  OF  THE  THREE  M0D*00048390 

c* 

ES  OF  INTEGRATION.    IF  MODE  EQUALS 

♦00048400 

c* 

0  -  THE  ADAMS-MOULTON  VARIABLE  STEP-SIZE  IS  USED, 

♦00048410 

c* 

1  -  THE  RUNGE-KUTTA  FIXED  STEP-SIZE  IS  USED, 

♦00048420 

c* 

2  -  THE  ADAMS  FIXED  STEP-SIZE  IS  USED 

♦00048430 

c* 

A 

IS  AN  ARRAY  OF  DIMENSION  SIX  CONTAINING  THE  PARAMETERS 

♦00048440 

c* 

FOR  THE  VARIABLE  MODE 

♦00048450 

c* 

X 

THE  SOURCE  VARIABLE 

♦00048460 

c* 

HH 

THE  INCREMENT  IN  SOURCE  VARIABLE  OR  THE  STEP  SIZE 

♦00048470 

c* 

YY 

THE  TARGET  VARIABLES  UPDATED  BY  THIS  ROUTINE 

♦00048480 

c* 

YYP 

THE  ARRAY  OF  FIRST  DERIVATIVES  OF  THE  TARGET  VARIABLES 

♦00048490 

c* 

COMPUTED   IN   THE  SUBROUTINE  DAUX 

♦00048500 

1000 

CONTINUE 

00048510 

c* 

METHOD 

♦00046520 

c* 

THE 

ROUTINE  USES  THE  E.K.BLUM  MODIFICATION  OF  THE  RIWGE-KUTTA 

♦00048530 

c* 

FOURTH-ORDER  METHOD, THE  FOURTH  ORDER  (  FIXED  AND  VARIABLE  ) 

♦00048540 

c* 

ADAMS-MOULTON  PREDICTOR  -CORRECTOR  METHOD. 

♦00048550 

c* 

♦00048560 

c* 

REMARKS 

♦00048570 

c* 

BEFORE 

;  EXECUTING  THE  FIRST  PINTl  CALL,  THE  USER  MUST  INITIALIZE 

♦00048580 

c* 

X,HH, 

AND  EACH  OF  THE  TARGET  VARIABLE. 

♦00048590 

c* 

♦00048600 

c* 

THE 

SECOND  ENTRY  POINT  (  IN=2  )  MAY  BE  USED  ANY  NUMBER  OF  TIMES*00048610 

c* 

AFTER 

THE  FIRST  PINTl  CALL  (  IN  =  1  )  TO  INTEGRATE  ONE  STEP-SIZE. 

♦00048620 

c* 

♦00048630 
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c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 
c* 


c 
c 
c 
c 
c 


c 
c 
c 


c 

c 


SUBROUTINES  REQUIRED 

(  ERRMSG  )  NOT  USED,  SEE  CARD  SERIAL  NUMBER05302840 
THE  USER  MUST  PROVIDE  A  SUBROUTINE  NAMED  'DAUX*  WHICH 
THE  N  DERIVATIVES  OF  THE  SYSTEM  OF  N  FIRST  ORDER  DIF 
EQUATION 

AUTHOR 

SQUARE  PARTEE 

AUGUST  1966 

CORNELL  AERONAUTICAL  LAB. 

DIMENSION   YY(1) ,YYP(l),A(l) 

DIMENSION    Y(30),YN0(30) , YNK 30 ) , YN2 (30) ,YN3(30) , YPNO< 30 

♦  YPN(30I,YPNI(30),YPN2C30)»YPN3(30),P(30),Q(30 
DOUBLE    PRECISION   H,DY,Y ,YNO t YN ,YNl, YN2, YN3, YPNO, YPN, YPN 

*  YPN3,DABS,P,0 
EQUIVALENCE    ( YPNO( 1 ) ,P { I ) ) 
EQUIVALENCE    ( YNO{ I ) ,Q( 1 ) ) 

MODE=0  VARIABLE    ADAMS    MOULTON   METHOD 

MODE=    I  FIXED   RUNGE-KUTTA 

MODE=    2  FIXED   ADAMS    MOULTON    METHOD 

1  INN  =  IN 

GO  TO  (2, 50), INN 

2  NMODE  =  MODE  ♦  I 
NDO  =  1 

NGO  =  1 

NSS  =  1 

3  GO  TO  (8, 50, 5), NMODE 
5  NGO  «  2 

GO  TO  50 

SET  UP  VARIABLE  MODE  PARAMETERS 

8  NGO  =  3 

EMAX  =  ABS(A(1)  ) 

IF  (EMAX. EQ. 0.0)  EMAX  =  .lE-03 

EMIN  =  EMAX  *  .01 

IF  (A(2).NE.0.0)  EMIN  =  EMAX/ABS ( A(2) ) 

AA  -    ABS(A(3)) 

IF  (AA.EQ.0.0)  AA  =    1.0 

HMAX  :=  ABS(A(4)  ) 

IF(HMAX.EO.O.O)  HMAX  =  IO.E+03 

HMIN  -  ABS(A(5) } 

IF  (HMIN. EQ. 0.0)   HMIN  =  .lE-06 

BETA  -  ABS(A(6) ) 

IF  (BETA.GE.1.0  .OR.  BETA.LE.0.0)  BETA  >  .5 

NMSG  =  0 

50  GO   TO  (  100,  III,  200,  300     )  ,  NDO 

FIXED  RUNGE  -  KUTTA       INITIALIZATION 
.00  DO  102   1=1, N 


♦00048640 

*00048650 

EVALUATES*00048660 

FERENIAL  ♦00048670 
♦00048680 
♦00048690 
♦00048700 
♦00C48710 
♦00048720 
♦00048730 
♦00048740 

♦*♦♦»♦♦♦ ♦♦♦00048750 
00048760 


),YN(30), 
) 

l,YPN2, 


00048770 
00048780 
00048790 
00048800 
00048810 
00048820 
00048830 
00048840 
00048850 
00048860 
00048870 
00048880 
00048890 
00048900 
00048910 
00048920 
00048930 
00048940 
00048950 
00048960 
00048970 
00048980 
00048990 
00049000 
00049010 
00049020 
00049030 
00049040 
00049050 
00049060 
00049070 
00049080 
00049090 
00049100 
00049110 
00049120 
00049130 
00049140 
00049150 
00049160 
00049170 
00049180 
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102 

103 
106 


108 


109 
110 


111 


Q(I)    =    0.0 
Yd)    =    YYd) 

CONTINUE 

NSTEP   =    0 

CALL       DAUX 

XOO    =    X 

H    =    HH 

IF     <NG0.EU,1)    GO    TU    110 

XN3    =    X 

DO    109       1=1, N 

YPN3(I)     =    YYPd  ) 

YN3(I)     =    YYd  ) 

CONTINUE 

NDO    =    2 

IF     (  NSS    .EQ. 


112 


113 


115 
116 
ll7 


120 


121 


125 


1    ) 


RETURN 


ONE   POINT   INTEGRATE 

XOO    =    X 

H    =    HH 

DO    112       1  =  1, N 

DY    =    YYPd) 

Pd  )    =    H*DY 

Yd  )    =    Y(I)+.5D0*P(  I  ) 

Qd)    =    Pd) 

YYd)       =    Yd) 
CONTINUE 

X    =    XOO    +       .5    *    HH 
CALL       DAUX 
DO    115       1  =  1, N 
DY    =    YYPd) 
Pil)    =    H*DY 

Yd)    =    Y(I)  +  .5D0*Pd)-.5DC*Qd) 
Qd)     =    Qd)/6.D0 

YYd)       =    Yd) 
CONTINUE 
CALL       DAUX 
DO    120       1=1, N 
DY    =    YYPd) 
Pd)    =    H*DY-.5D0*P(  I) 
Yd  )    =    Yd)+P<I  ) 
Q  d  )    =    0  ( I  )  -P  ( I  ) 

YYd)       =    Yd) 
CONTINUE 
X    =    XOO       ♦       HH 
CALL       DAUX 
DO    125       1  =  1, N 
DY    =    YYPd) 
Pd)    =    H*DY+2,0*Pd) 
Yd)    =    Yd)    ♦    Qd)+P(I)/6.0DO 

YYd)   =  Yd) 
CONTINUE 
CALL   DAUX 

END  OF  FIXED  STEP  RUNGE  -  KUTTA 


00049190 
00049200 
00049210 
00049220 
00049230 
00049240 
00049250 
00049260 
00049270 
00049280 
00049290 
00049300 
00049310 
C0C49320 
00049330 
00049340 
00049350 
00049360 
00049370 
00049380 
00049390 
00049400 
00049410 
00049420 
00049430 
00049440 
00049450 
00049460 
00049470 
0004948C 
00049490 
00049500 
00049510 
00049520 
00049530 
00049540 
00049550 
00049560 
00049570 
00049580 
00049590 
00049600 
00049610 
00049620 
00049630 
00049640 
00049650 
00049660 
00049670 
00049680 
00049690 
00049700 
00049710 
00049720 
00049730 


496 


c 

00049740 

c 

00049750 

t 

00049760 

130 

IF   (  NGO    .EQ.  1    )      RETURN 

00049770 

135 

NSTEP  =  NSTEP  ♦  1 

00049780 

GO  TO  (136,140,145),  NSTEP 

00049790 

c 

00049800 

c 

SET  UP  THREE  POINTS  FOR  ADAMS  MOULTON'S 

00049810 

c 

00049820 

136 

XN2  =  X 

00049830 

DO  138   1=1, N 

00049840 

YPN2(I)   =   YYPd) 

00049850 

138 

YN2(I)  =  Yd) 

00049860 

RETURN 

C0049870 

1^0 

XNl  =  X 

00049880 

DO  142   1=1, N 

00049890 

YPNKI)   =   YYP(I) 

00049900 

YNl(I)  =  Yd) 

00049910 

1^2 

CONTINUE 

00049920 

RETURN 

00049930 

145 

XN  =  X 

00049940 

DO  146   1=1, N 

00049950 

YNd)  =  Yd) 

00049960 

YPN  d)   =   YYPd) 

00049970 

146 

CONTINUE 

00049980 

NSTEP  =  0 

00049990 

NFIRST  =  1 

00050000 

NCRE  =  0 

00050010 

NDO  =  NGO  •»•  1 

00050020 

RETURN 

00050030 

c 

00050040 

c 

00050050 

c 

FIXED  ADAMS  MOULTON  PREDICTOR  METHOD 

00050060 

c 

00050070 

200 

XOO  =  X 

00050080 

H  =  HH 

00050090 

X  =  XOO   ♦   HH 

00050100 

DO  220   1  =  1, N 

00050110 

Yd)  =  YNd)^H*(55.DO*YPN(I)-59.D0*YPNld)*37,DO*YPN2II)-9.0D0* 

00050120 

4    YPN3(I))  /  24.00 

00050130 

YYd)   =  Yd) 

00050140 

220 

CONTINUE 

00050150 

CALL   DAUX 

00050160 

DO  225   1=1 ,N 

00050170 

DY  =  YYPd) 

00050180 

Yd)  =  YN(I)+H*(9.D0*DY    •d9.D0*YPNd  )-5.D0*YPNl  d  I^YPN2d  )  ) 

00050190 

5     /  24.00 

00050200 

YYd)   =  Yd) 

00050210 

225 

CONTINUE 

00050220 

CALL   DAUX 

00050230 

DO  250   1=1, N 

00050240 

c 

SAVE  VALUES 

00050250 

YPN3d)  =  YPN2d) 

00050260 

YPN2d)  =  YPNld) 

00050270 

YPNICI)  =  YPNd) 

00050280 

497 


YPN(I)         =         YYP(I) 
YN3(I)    =   YN2(I) 
YN2(I)    =    YNKI) 
YNl(I)    =    YN(I) 
YN(I)    =    Yd  ) 

250  CONTINUE 

251  XN3    =    XN2 
XN2    =   XNl 
XNl    =    XN 
XN    =    X 
I^ETURN 

VARIABLE    AOAMS    MOULTQN    METHOD 


300    XOO    =    X 
H    =    HH 

X    =    XOO       ■••      HH 
DO    364       I=L,N 
Y{I)=    YN(I)+H*(55,D0*YPN(I)-59.D0*YPN1(I)+37.D0*YPN2(I )-9.D0* 
o  YPN3(I  ))     /    24.00 

YY(I)        =    Y( I) 
P(I  )     =    Yd) 

364  CONTINUE 
CALL       OAUX 

DO    365       1=1 tN 
DY    =    YYP(I) 

Yd)  =  YN(I)  +  H*(9.D0*DY    +19.  DO*YPN  (  I ) -5.  D0*YPN1  ( I )  ♦YPN2  (  I  ) ) 
7         /  24. DC 
YYCI)   =  Yd) 

365  CONTINUE 
CALL   DAUX 

END  VARIABLE  ADAM  MOULTON 

ERROR  =  0.0 
DO  370   1=1, N 
PRED  =  SNGLCPd  )) 

SAVE  VALUES 

366  YPNO(I)     =    YPN3( I) 
YPN3(I)     =    YPN2( I) 
YPN2( I)     =    YPNIC I) 
YPNKI)     =   YPNd  ) 
YPNd  )       =    YYPd  ) 
YNO(I)     =    YN3(I) 
YN3( I)     =    YN2(I) 
YN2(I)    =    YNKI) 
YNKI)    =    YNd) 
YN(I)    =    Yd) 

DD    =    AMAXK ABS( SNGL(Y(I) )),AA) 

OERR    =    ABS(  PRED-SNGL(Y(I)  ))/d4.0*DD) 

ERROR  =  AMAX1(ERR0R,DERR) 
370  CONTINUE 
375  XNO  =  XN3 


O0C5C29 

00050301 

0005031( 

0005032( 

0005033( 

0005034C 

0005035C 

00050360 

C005C370 

00050380 

00050390 

00050400 

00050410 

00050420 

00050430 

00050440 

00050450 

00050460 

00050470 

00050480 

00050490 

00050500 

00050510 

00050520 

00C50530 

0005054C 

C0050550 

00050560 

00050570 

00050580 

00050590 

00050600 

00050610 

00050620 

00050630 

00050640 

00050650 

00050660 

00050670 

00050680 

00050690 

00050700 

00050710 

00050720 

00050730 

00050740 

00050750 

00050760 

00050770 

00050780 

00050790 

00050800 

00050810 

00050820 

00050830 
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XN3    =    XN2 

XN2    =    XNl 

XNl    =    XN 

XN    =    X 

c 

ERROR    TESTS               ADAMS 

MOULTO 

c 

305 

IF    (ERROR. GT.EMAX)    GO 
NFIRST    =    2 

TO    315 

IF    (ERROR. LT.EMIN)    GO 

TO    330 

306 

NFIRST    =    2 

NCRE    =    0 
RETURN 

c 

c 

REDUCE    STEP    SIZE 

c 

315 

NSS=2 

NCRE    =    0 

316 

HH    =    HH*BETA 

IF(  ABS(HH)  .GT.  HMIN 
HH  =  SIGN(  HMIN,  HH  ) 
IF  (NMSG.NE.O)  GO  TO  306 


)       GO      TO      319 


317 


CALL    ERRMSGdO       ♦39H      MINIMUM    STEP   SIZE       IN      PINTl 

tf<RITE(6,317) 

F0RMAT(28H0    MINIMUM    STEP    SIZE    IN    PINTl) 


NMSG   =    1 

c 

All)    ==-A(l) 

319 

GO    TO    {            320,325),    NFIRST 

c 

ERROR    FIRST   VARIABLE    POINT 

320 

X    =    XNO 

DO    321       1=1, N 

YY(I)    =    YNO(I) 

321 

CONTINUE 
GO    TO         100 

c 

ERROR    DURING    VARIABLE   MODE 

325 

X    =    XNl 

00    327      1=1, N 

YYCI)    =    YNl(I) 

327 

CONTINUE 
GO    TO         100 

c 

c 

INCREASE    STEP    SIZE    HERE 

c 

330   NSS    «    I 

NCRE    =    NCRE    ♦    I 

IF    (NCRE.LE.2)    RETURN 

NOW    INCREASE 
335   NCRE    =    0 

HH  =  SIGN(AMIN1(ABS(HH/BETA),HMAX),HH) 

GO  TO  106 

END 


00050840 
00050850 
00050860 
00050870 
00050880 
00050890 
00050900 
00050910 
00050920 
00050930 
00050940 
00050950 
00050960 
00050970 
00050980 
00050990 
00051000 
00051010 
00051020 
00051030 
00051040 
00051050 
00051060 
00051070 
00051080 
00051090 
00051100 
00051110 
00051120 
00051130 
00051140 
00051150 
00051160 
00051170 
00051180 
00051190 
00051200 
00051210 
00051220 
00051230 
00051240 
00051250 
00051260 
00051270 
00051280 
00051290 
00051300 
00051310 
00051320 
00051330 
00051340 
00051350 
00051360 
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DATE       01/19/76  TIME       0947  UPDATE    RECORD 


SUBROUTINE    PLOTTP(IPLT)  PLOTOOIO 

COMMON/ INPT/PHIO, THE  TAG, PSIO,PO,QOtRO,XCOP,YCOPtZCOP,UO,VO, WO,  PL0T00  20 

1  A,B,DEL10,DEL20,DEL30,PHIR0,DEL10D,DEL20D,DEL30D,  PL0T003G 

2  PHIROD,TF,TR,ZF,ZR,RHO,AKRSfXMUR,  PL0T0040 

3  XMS,XMUF,XIX,X1Y,XI2,XIXI,CF,AKF,XLAMF,0MEGF,CFP,EPSF,PL0T00  50 

4  RF,CR,AKR,XLAMR,OMEGR,CRP,EPSR,RR,TS,THMAX,DTCOMP,TO,    PL0T00  60 

5  T1,DTCMP1,DTPRNT,M0DE,EBAR,EM,AAA,HMAX,HMIN,BET,G,  PL0T0070 

6  HED(36),DADE(3) ,XIR,X1,Y1,Z1,X2,Y2,Z2,PHIC{50) ,DELB,       PL0T0060 

7  DELE,DDEL,NDEL,PSIF(50) ,TQF(50),T0R(50),TB,TE,TINCR,       PL0T0090 

8  NZTAb,NZ5,XBDRY(4,5) ,PSBDRY(4,5) ,YBDRY(2»5),NBX(5),  PLOTOIOO 

9  NBY(5),NTBL1,NTBL2,NTBL3,ZGP(21,21,5)  PLOTOllO 
COMMON/INPT/XB(5),XE(5),XINCR(5) ,NX (5 ) , YB ( 5 ) , YE ( 5) » YINCR (5 ) ,NY (5 ) , PLOTOl 20 

1  XXZGP5(21)  ,YYZGP5(21),AMUG(5) ,PSBDR0(4,5 ) tUVWM IN ,PQRMIN    PLOTOl 30 

COMMON    /INTG/NEQ»T,DT,VAR(50) ,DER(5G»  PL0T0140 

EQUIVALENCE     (U,VAR( 1))  ,( V,VAR(2) )t  (W,VAR{3)), (P,VAR(4) ), (Q , VAR ( 5 ) ) PL OTOl 50 

1  , {R,VAR(6))  ,(DtLl,VAR(7)  ) , (DEL  ID, VAR ( 8)  ) , {DEL2, VAR (9) ) ,PLOTOl 60 

2  (DEL2U,VAR(10)),(DEL3,VAR(11) ) ,(DfcL3D,VAR( 12)) ,  PL0T017G 

3  (PHIR,VAR( 13) ), (PHIRD,VAR(I4) ) ,(THtTTP,VAR(15) ) ,  PLOT0180 

4  (PHITP,VAR(16)), (PSITP,VAR(17) ), (XCP,VAR(18) )♦  PL0T0190 

5  (YCP,VAR(19) ),(ZCP,VAR(20)) ,(PSIFI,VAR(21) )♦  PL0T0200 

6  (PSIFID,VAR(22) )  PL0T0210 
EQUIVALENCE     (DU,DER( 1)  ), (DV,DER(2)  ) , ( DW, DER ( 3  )  ) , (DP  ,DER ( 4)  ) ,  PLOT02  20 

1  (DO, DER ( 5) ), (DR,DER(6) ) ,{DDEL1,DER(7)) , ( DDELID ,DER (8 ) I PLaT0230 

2  , (DDEL2,DER(9) ),(DDEL2D,DER(10) ), (DDEL3,DER(11) ),  PL0T0240 

3  (DDEL3D,DER( 12) ) ,(DPHIR,DER(13)) , (DPHIRD,DER(14)) ,  PL0T0250 

4  (DTHTTP,DER( 13) ), (DPHITP,DER( 16) ) ,(DPSITP,DER( 17) ),  PL0T0260 
b  (DXCP,DtR(  IB)  ),(DYCP,DtR( 19) ) ,(DZCP,DER(20)),  PL0T0270 
6                                  (DPSIFI,DER(21) ) ,(DDPSFI,DER(22)  )  PLDTG280 

EQUIVALENCE     (VAR(9),PH1F  ),(VAR(10) ,PHIFD) , ( DER( 9 ) , DPHI F ) ,  PLOT 02 90 

1  (DFR(IO) ,DPHIFD)  PL0T0300 

EQUIVALENCE     (VAR( 13) ,DEL4),(VAR( 14 ) ,DEL4D ) , ( DER( 13 ) ,DDEL4) ,  PLCT0310 

1  (DER(14) ,DDEL4D)  PL0TC320 

COMMON    /DIMV/X1P,X2P,X3P,X4P,Y1P,Y2P,Y3P,Y4P,Z1P,Z2P,Z3P,Z4P,PHI1,PLOT0330 

1  PHI2,PHI3,PHI4,PSI1,PSI2,PSI3,PSI4,CAYW(4),CBYW(4),       PLDT0340 

2  CGYW(4) ,ZPGI(4) , IHG 1( 4 ) , PHGK 4) , CPG(4 ) ,SPG (4) ,CTG(4 ) , PLOT03  50 

3  STG(4) ,CAGZ(4),CBGZ(4),CGGZ{4),D1(4),D2(4),D3(4) ,  PLUT0360 

4  XLM1(4) ,XLM2(4),XLM3(4),AMTX(3,3),CMTX(3,4),XGPP(4),    PL0T03  70 

5  YGPP(4) ,ZGPP(4),DMATX(10,11) ,DELTA(4) ,CAR(4),CBR(4) ,     PL0T03fc0 

6  CGR(4) ,FR(4) ,H1(4) ,FC(4) ,TI(4),AX(4),BX(4),CX(4),  PLOT0390 

7  CTXG(4) ,UG(^),STXG(4),AY(4),bY(4),CY(4),CPYG(4),  PL0T0400 

8  SPYG(4) ,VG(4),PSIIP(4) ,PHICI(4) ,CAC(4) ,CBC(4) ,CGC (4 ) ,PLOT0410 

9  FCXU(4) ,FCYU(^),FCZU(4),FS(4),CAXW(4) ,CBXW(4) ,CGXW( 4 ) PL 0T04  20 
COMMON    /DIMV/AS(4) ,BS(4),CS(4),CAS(4),CBS(4) ,C&S (4 ) ,bETP (4 ) ,  PL0TG430 

1  BETBR(4),FSXU(4) ,FSYU(4) ,FSZU(4) ,FRXU(^),FRYU(4),  PL0T0440 

2  FRZU(4) ,FXU(4),FYU(4) ,FZU(4),SIl^) ,F1FI(2),F1RI(2),       PL0TG45G 

3  F2FI(2)  ,F2RI(2),CAH(4) ,CBH(4) ,CGH(4)  PL0T0460 
DIMENSION  XP(4),YP(4),ZP(4),PHII(4) ,PSII(4)  PL0T0470 
EQUIVALENCE     (XP(1),X1P),  (YP(1),Y1P) , ( ZP ( 1 ) ,Z1P) , (PHII ( 1 ) ,PHI 1 ) ,          PLOT  04 80 

1  (PSIKl)  ,PSIl)  PL0T049G 
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DATE   01/19/76 


TIME   0947 


UPDATE  RECORD 


COMMON  /COMP/SUMM,TH 

1  GAM6,&AM 

2  TF02,TI 

3  B02APB, 

4  XIZRfRT 

5  ZRD3,ZR 

6  ,TANTP,S 

7  SNPSS.T 

8  SFYUR.S 

9  ANG2,CP 
COMMON    /COMP/TRH,DIS 

1  ZETA3D, 

2  TERM2,S 

3  HCAH3tH 

4  fPHlRD2f 

5  XX2,YY1 
DIMENSION  HCAH(4),HC 
EQUIVALENCE  (HCAHdJ 
COMMON    /COMPN/    FRSP( 

1  DPSIN 

2  PH12D 

3  SFRX( 
LOGICAL    LCB1,LCB2 
COMMON    /TIRIN/    AKT(4 

1  A4(4) 

2  A12(4 
DIMENSION  IC0NTW(4) 
DATA  TTTTTT/-9999,0/ 

1  GO  TO  (2,3f4),IPLT 

2  WRITE(1)HED»DADE»A,B 
RETURN 

3  DO    6    J=lfA 
IF(FRCP(J).6T,0,01) 
ICONTW{J)    =    0 

GO  TO  6 
ICONTW(J)  =  1 
IFCABS  (BETBRU)  ).GT. 
CONTINUE 

WRITEU)    T.XCP.YCPfZ 
1    PHI1,PHI2,(XGPP(J), 
RETURN 

4  WRITE(l)  (TTTTTT,I=1 
RETURN 

END 


ETNf PHlNtPSIN,PItRADtGAMlfGAM2tGAM3tGAM4,GAM5, 

7,GAM8,G*AM9fTHETT,PHIT,PSIT,ZR0,TR02, 

Z,RH02,RH0MURf AMUF,BMURtZPRtTM4,RHMR2,A02APBt 

RFTF,TS02tRRTStBR0MUR,XMUF02tAXMFC2fXMTF04, 

R,RHMR2ItXIXP,XIZP,XIXZP,XlYZP,DlPD2,DlMD2, 

D3R,ZFD3R,ZFD12tTIZ2,TG61,DDlP2fDDlM2tRPRfPHRP 

PHTPfCPHTPfSECTP,SFXS,SFYS,SFZSfSNPStSNTS, 

PR,CAY,CBY,CGY,CAX,CBX,CGX,SFYU,SFXU,SFYUF, 

FZUtCOSTH,SINTHtCOSPS,SINPS,COSPH,SINPH,ANGl, 

HI.SPHl.CPSItSPSI »PltP7,P3,P4,P5,P6»TX,TY,TZ 

TX,DISTY,DISTD,DISTS,D21f ZETA4,ZETA4D,ZETA3, 

SFZI,SNPU,SNTU,HCGH1,HCGH2,HCGH3,HCGH4,TERM1, 

NPSUfSNPRtHCBHl,HCBH2,HCbH3,HCBH4,HCAHl,HCAH2, 

CAH4,UQtWP,URf QR,VP,PR,P2,Q2,R2,VR,WQ,PQ,PHIR2 

RPHRD,GCTH,GSTH,GCTSP,GCTCPtXXX,YYY,lX,IY,XXl, 

,YY2,THGl,THG2,PHGl,PHG2,ZZl,ZZ2tLLL 

BH(4),HCGH(4) 

tHCAHl),  (HCBHd  )  ,HC8H1  )  ,  (  HCGH(  1  )  ,HCGH1  ) 

4),FRCP(4),ICBHIT,JCBHIT, 

T,TANPCItTANPC2,PHIClR,PHIC2RtAMUCMP,PHllD, 

,LCB1(4),LCB2(4),IHIT,AJMTX(3,3),BMTX(3,3), 

4),SFRY(4),SFRZ(4),T1PSI,T2PSI,XMUGI{4) 


),SIGT(4) ,XLAMT(4)tA0(4) f Al{4) ,A2{4),A3(4 
t0MEGT(4),AMU(4),RW(4),FJP(35,4),A234(4), 
)tOMT2A2(4) ,0MT2M1(4) , A23 (4) ,ITIR( 4) 


,TS,ZRtRHO,ZF,RW(lJtTF,TR 


4) 


GO   TO   5 


3.0)     ICaNTW(J)=   -1 


CP,PHIT,THETT,PSIT,DELl,DEL2tDEL3,PHIR,PSIl, 
YGPP(J),ZGPP(J),J=1,4),IC0NTW 

t30) 


PLOT  05  00 
PLOT  05  10 
PL0T0520 
PLOT0530 
PL0T0540 
PLOT 05  50 
PLOT 05  60 
PL0T0570 
PL0T0580 
PLOT  05  90 
PL0T06  00 
PLOT  06  10 
PL0T0620 
PLOT 06 30 
PLOT  06  40 
PLOT  0650 
PL0T0660 
PL0T06  70 
PL0T0680 
PL0T0690 
PL0T0700 
PL0T0710 
PL0T0720 
PL0T0730 
PL0T0740 
PL0T0750 
PL0T0760 
PL0T0770 
PL0T0780 
PLOT  07  90 
PLOT  08  00 
PL0T0810 
PL0T08  20 
PL0T0830 
PL0T08  40 
PLOT  08  50 
PL0T0860 
PLOT  08  70 
PLOT 0880 
PL0TG890 
PLOT 0900 
PLOT 0910 
PLOT 0920 
PLOT  09  30 
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DATE       01/14/76  TIME       1725  UPDATE    RECORD 


SUBROUTINE    RUFFRC{ I , Z&M)  RUFFOOIO 

C  HV0SM-RD2    VERSION  RUFFC020 

C  HV0SM-VD2    VERSION  RUFF0030 

C  REVISED    OCTObER    1S.7!3      CALSPAN    C0RPGRA1I0N  RUFFOOAO 

C0MM0N/INPT1/YC1P,YC2P,ZC2P,DELTC,PHIC1,PHIC2»AMUC,XIPS»  RUFF  00 50 

1  CPSPtOMGPS, AKPS,EPSPS,XPS,RWHJB rRWHJE,DRWHJ,INDCRE,       RUFF0060 

2  PS1FI0,PSIFD0  RUFF0070 
DIMtNSION  YC1P(2)  RUFFOO&O 
EQUIVALENCE  (YC IP (1 ) , YCl P  )  RUFFOOVO 
COMMON    /DIMV/XlP»X2P»X3P,X4P,YlP,y2P,Y3P,YAP»ZlP,Z2P,Z3PtZ4P,PHIl,RUFF0i00 

1  PriI2,Phl3,PHI4,PSII,PSI2,PSI3,PSI4,CAYW(4)»CBYW(A),       RUFFCllO 

2  C&YW(4)  ,ZP&n4)»THGII4)»PH&I(4)  ,CPG  (4  )  ,SPG(  4)  ,CTG  <4  )  ,  RUFF  01  20 

3  STG(4} ,CAGZ(4),CBGZ(4) ,CGGZ(4),D1{4),D2(4),D3(4),  RUFF0130 

4  XLM1(4)  ♦XLM2(4),XLM3(4),AMTX(3,3),CMTX(3,4) ,XGPP(4) ,    RUFF 01 40 

5  YGPP(4) ,ZGPP{4),DMATX(10,11) ,DELTA(4) ,CAR(4),CbR(4) ,    RUFF0i50 

6  CGR(h),FK(4 ),HI(4) ,FC(h) ,TI(4),AX(4),BX(4),CX(4) ,  RUFF0i6O 

7  CTXG(4) ,UG(^),STXG(4) ,AY(^),BY(4),CY(4),CPYG(4),  RUFF017& 

8  SPYG(4),VG(4),PSIIP(4),PHICI  ( ^) , CAC (^  )  ,CBC{ 4)  ,CGC(4) ,RUFF0ie0 

9  FCXU(4)  ,FCYU(^) f FCZU(4),FS(4) ,CAXW(4)  ,CBXW(4) , CGXW ( 4 ) RUFF  01 VO 
COMMON    /DIMV/AS(4) ,BS(4) ,CS ( 4 ) » C AS ( 4) , CBS ( 4 ) , CGS (4 ) ,bE TP (4 ) ,  RUFF0200 

1  BETbR(4) ,FSXU(4) ,FSYU(4) ,FSZU(4) ,FRXU(^)»FRYU(^),  RUFF0210 

2  FRZUU)  ,FXU(4),FYU(4)  ,FZU(4)  ,SI  (4)  »F1FI(2  ),F1RI(2  ),       RUFF0220 

3  F2FI(2) ,F2RI(2),CAH(4),CBH(4) ♦CGH(4)  RUFF0230 
DIMENSION  XP(4)  ,YP(4  ),ZP(4),PHII (4),PSII(4)  RUFF0240 
EQUIVALENCE     (XP«l),XlP),(YP(l),YlP),(ZP(l)tZlP),(PHIl(l)  ,PHI1),  RUFF  02 50 

1  (PSIK  1)  ,PSI1)  RUFF0260 

COMMON     /C0MP/SUMM,THtTN,PHlN,PSIN,PItRAD,&AMl,GAM2 ,GAM3 , &AM4, GAMS , RUFF02 70 

1  GAMb,GAM7,GAM8,GAM9,THtTT ,PHIT,PSIT,ZR0,TRO2,  RUFF02b0 

2  TF02,7I Z,RH02,RH0MUR,AMUF»BMUR,ZPR,TM4,RHMR2tA02APB,    RUFF0290 

3  B02APB,RFTF,TS02»RRTS,bROMUR tXMUFC2,AXMF02»XMTF04,  RUFF0300 

4  ■  XlZRtRTR,RHMR2ItXlXP,XIZP,XlXZP,XIYZP,DlPU2t01MD2t  RUFF0310 

5  ZRD3tZRD3Rt  ZFD3R , ZFDi2 ,T I Z2 , 1 G61 ,0D1P2,DD1M2,RPR t PHRPRUFF0320 

6  ,TANTP,SPHTP,CPHTP,SECTP,SFXS,SFYS,SFZS»SNPS,SNTS,  RUFF0330 

7  SNPSS,TPR,CAY,CBY,C&Y,CAX,CbX,CGX,SFYU,SFXUtSFYUF,  RUFF0340 

8  SFYUR,SFZU,C0STH,SINTH,C0SPS,S1NPS»C0SPH,SINPH,ANG1 »    RUFF035G 

9  ANG2,CPHI,SPHI,CPSI,SPSI,P1»P7,P3,P4,P5,P6,TX,TY,TZ  RUFF0360 
COMMON    /C0MP/TRH,DlSTX,DISTY,DIST0,DISTS,D21,ZETAt,ZETA4D,ZETA3,       RUFF 03 70 

1  ZETA3D,SFZ1,SNPU,SNTU,HCGH1,HCGH2,HCGH3»HCGH4,TERM1,    RUFFO3fc0 

2  TERM2,SNPSU,SNPR,HCBHl,HCbH2,HCBH3,HCBH4,HCAHWHCAH2f  RUFF03  90 

3  HCAH3tMCAH4,UQ,WP,UR,QRtVP,PR,P2,W2tR2tVR,WQ,PQtPHIR2RUFFG400 

4  ,PHlRD2,RPhRD,GCTH,GSTH,GCTSPfGCTCP,XXX,YYY,IX, I Y, XXI , RUFF  04 10 

5  XX2,YY1,YY2,THG1,THG2,PHGI,PHG2,ZZ1,ZZ2»LLL  RUFF0420 
DIMENSION  HCAH(h) ,HCBH(4) ♦HCGH(4l  RUFF0430 
EQUIVALENCE  (HCAH(l) ,HCAHi ) , ( HCBH( 1 )?HCBH1), (HCGH( DtHCGHl)  RUFF  04 40 
COMMON    /COMPN/    FRSP { 4 ) ,F RCP (4 ) , I CBH IT , JCBHIT ,                                                             RUFF0450 

1  DPSINT,TANPCl,TANPC2,PHIClR,PHIC2R,AMUCMPfPHIlD,  RUFF0460 

2  PHl2D,LCBl(4),LCb2(4)t IHII tAJMTX(3t3) ,bMTX(3,3) t  RUFF0470 

3  SFRX(4) ,SFRY(^),SFRZ(4),T1PSI ,T2PSIfXMU&I(4)  RUFF04tO 
LOGICAL    LCBl,LCb2  RUFF0490 
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DATE   01/14/76 


TIME   1725 


UPDATE  RECORD 


COMMON  /TIRIN/  AKT (4 ) , SIGT(4) ,XL AMT (4 ) , AO (4) , Al (4) , A2 ( 4) , A3( 4) , 

1  A4(4),0MEGT(4) ,AMU( 4 ) , RW (4) ,F JP( 35, 4 ) , A234( 4 ) , 

2  A12(4),0MT2A2(4) ,0MT2M1 (4) , A23 (41 ,1 TIR ( 4) 
/    D£LG,DGMAX,NEND,1RUF 
2205) 


20 


10 


11 


COMMON 
DIMENSI 
DIMENSI 
DO  20  N 
FJPP(N) 
SNPSI  = 
CSPSI  = 
SNPHI  = 
CSPHI  = 
SFRXd  ) 
SPRY (I  ) 
SFRZ(I) 
TTAJ21 
TTAJ31 
AJMTXd 
AJMTX(2 
AJMTXO 
INDF  = 
INDL  = 
MF  =  IF 
ML  =  MF 
IF(MF.G 
MF  =  1 
INDF  = 
IFiML.L 
ML  =  NE 
INDL  = 
DO  100 
THTJ  = 
STJ  =  S 
CTJ  =  C 
AJMTXd 
AJMTX{2 
AJMTXO 
AJMTXd 
AJMTX(2 
AJMTX(3 
DO  8  K  = 
DO  7  L= 
BMTX(K, 
DO  6  M  = 
BMTX(K, 
CONTINU 
CONTINU 
IF(BMTX 
DO  50  M 
ZMl  =  0 
IF(M.LT 


/RUFNES 
ON    ZGM( 
ON    FJPP 
=  1»35 
=    FJP( 
SIN  (PS 
COS(PS 
SIN(PH 
COS(PH 
=    0.0 
=   0.0 
=   0.0 
=   CSPHI 
=    SNPHI 
,2)    =   - 


(35) 

N,I) 
IKD) 
IKD) 
lid)  ) 
IKD) 


=   C 
=    S 


t2) 

.2) 

0 

0 

IX( (XP( 

♦IFIX(2 

E.l)    GO 


♦SNPSI 

♦SNPSI 

SNPSI 

SPHI*CSPSI 

NPHI*CSPSI 


I)-RW( I) )/DELG) 
.0*RW(I)/D£LG) 
TO    10 


.NEND) 
D 


GO    TO    11 


=1,21 

-44.0+4.0*J)*RAD 
N(THTJ) 
S(ThTJ) 


1)    = 
1)     = 
1)    = 
3)    = 
3)    = 
3)    : 
f3 
f3 
)    = 
f3 
)    = 


CTJ*CSPSI 

TTAJ21*CTJ+SNPHI*STJ 

TTAJ31*CTJ -CSPHI*STJ 

CSPHI*STJ 

TTAJ21*STJ-SNPHI*CTJ 

TTAJ31*STJ*CSPHI*CTJ 


0.0 


BMTX(K,L)+AMTX(K,M)*AJMTX(M,L) 


3,3)  .EQ.0.0)    GO    TO    100 

MF,ML 

0 

NENO)    ZMl    =    ZGM(M*1) 


RUFF0500 
RUFF  05  10 
RUFF0520 
RUFF0530 
RUFF  05 40 
RUFF  05  50 
RUFF  05  60 
RUFF0570 
RUFF  05  &0 
RUFF05  90 
RUFF06  00 
RUFF  06  10 
RUFF  06  20 
RUFF  06  30 
RUFF  06  40 
RUFF  0650 
RUFF  06 60 
RUFF06  70 
RUFF  06  60 
RUFF0690 
RUFF  07 00 
RUFF  07  10 
RUFFO/20 
RUFF  0730 
RUFF07  40 
RUFF0750 
RUFF  07  60 
RUFF0770 
RUFF0780 
RUFF0790 
RUFF  08 00 
RUFF0810 
RUFF  08  20 
RUFF  08 30 
RUFF0840 
RUFF  08 50 
RUFF  0860 
RUFF0870 
RUFF08  60 
RUFF0890 
RUFF  09  00 
RUFF0910 
RUFF  09 20 
RUFF09  30 
RUFF09  40 
RUFF09  50 
RUFF09  60 
RUFF09  70 
RUFF 0980 
RUFF  09 90 
RUFF  1000 
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DATE       01/14/76  TIME       1725  UPDATE    RECORD 

XM    =    DtLG*(M-l)  RUFFIOIO 

XMl    =    XM+DELG  RUFF  102:0 

TMP    =    (BMTX( 1»3)*(ZM1-ZG«(M) )/(BMTX(3t3)*DELGn  RUFF1030 

IF(TMP.LQ.l)    GO    TO    30  RUFF1040 

XD    =    XM-XP(  I  )  RUFF  105)0 

XDl    =    XMi-XPd)  RUFF  1060 

IF(ABS(XD).LT. 0.001. OR. AbS(XDl).LT. 0,001)    GO    TO    49  RUFF1070 

SM    =    (ZGM(M)-ZP( I))/XD  RUFFIOBO 

SMI    =     (ZM1-ZP( I ))/XDl  RUFF1090 

SGM    =    SIGN  (1.0,  SM)  RUFF  HOC 

SGMl    =    S1GN( l.O.SMl)  RUFFlllO 

IFISGM.GT.O.O.AND.SGMI.LT.0.0)    GO    TO    50  RUFF1120 

lF(SGM.tQ.SGMl.AND.SMl,GT.SM)    GO    TO    50  RUFF1120 

49  TMPl  =  1.0/(1. 0-TMP)  RUFF  1140 
XJP    =    TMP1*(XP(1 )+bMTX(l ,31*(ZGM(M)-ZP(I)-XM«  RUFF115G 

1               (ZM1-ZGM(M))/DELG)/BMTX(3,3))  RUFF116C 

IFCXJP.GE.XM)    GO    TC    60  RUFF117G 

IF(XJP.Gt.O.O)    GO    TO    100  RUFFllfcO 

GC    TO    t>9  RUFF  11  90 

60    IF{XJP.L£.XM1)     GC    TC    70  RUFF1200 

50  CONTINUE  RUFFlllO 
GO    TO    69  RUFF  12^0 

70  IF(ABS(bMTX( 1,3) ) .LT, 0.0001)  GO  TO  71  RUFFi230 
HJ  =  (XJP-XP(I) )/bMTX( 1,3)  RUFF1240 
ZJP  =  2P(I  )  +  bMTX(3,3)*HJ  RUFF12:>0 
GO    TO    la  RUFF  12  60 

71  ZJP  =  2GM(M)+(XJP-XM)*(ZM1-ZGM(M))/DELG  RUFF1270 
HJ  =  (ZJP-ZP(I ))/BMTX(3,3)  RUFF1280 
XJP  =  XP(I)  RUFF12V0 
GO    TO    72  RUFF  1300 

69    ZJP    =    0.0  RUFF  1310 

XJP    =    XPd J-BMTX(1,3)*ZP( I)/BMTX(3,3)  RUFF1320 

HJ    =    -ZP(I)/BMTX(3,3)  RUFF1330 

72  YJP  =  YP(I)+BMTX(2,3)*HJ  RUFF1340 
IF(HJ.LT.O.O.OR.HJ.GT.RW(I))  GO  TO  100  RUFF1350 
CAJ  =  (XP{ I)-XJP)/HJ  RUFF1360 
CBJ  =  (YP(I )-YJP)/HJ  RUFF13  70 
CGJ  =  (ZP( I)-ZJP)/HJ  RUFF1360 
CALL  INTRPL(FJPP,RWHJB,RWHJF,DRWHJ,RW(I)-hJ,FJ)  RUFF139G 
SFRX(I)  =  SFRX( I)+FJ*CAJ  RUFF1400 
SF^Y(I)  =  SFRY(I)+FJ*CEJ  RUFF1410 
SFRZ(l)    =    SFRZ(I)+FJ*CGJ  RUFF1420 

100    CONTINUE  RUFF1430 

FR(I)     =    SQRT(SFRX(I)**2+SFRY(I)**2*SFRZ(I)**2)  RUFF1440 

IF(FR(I  )  .NE.0.0)    GO    TO    110  RUFFi4f>0 

CAR( I  )     =    0.0  RUFF  1460 

CBR(I)    =   0.0  RUFF14  70 

C6R(I)    =1.0  14  60 

HI(I)     =    RW(1)  1490 

PHGKI)     =    0.0  1500 

THGKI)    =    0.0  15  10 
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DATE       01/14/76  TIME       1725  UPDATE    RECORD 

SPG(I»    =   0,0  1520 

TXGP    =    XP{  I)  1530 

GO    TO    112  1540 

110  CAR(I)  =  -SFRX(I)/FRn  )  RUFF1550 
CBR(I)  =  -SFRY( I)/FR(I)  RUFF1560 
CGR(I)  =  -SFRZ(I)/FR(I)  RUFF1570 
HI(I)  =  RW(I)-FR(I)/AKT(I»  RUFF1580 
IFCHKI  ).GT,RW(  I)-SIGT(I))  GO  TO  111  RUFF1590 
HI( I)     =    RW(I)-(FR(I)/AKT{I)+SIGT(I )*(XLAMT(I)-1.0) )/XLAMT(I)  RUFF16G0 

111  TXGP  =  XP(I)+HI(I»*CAR(I)  RUFF1610 
ME  =  TXGP/DELG+1  RUFF1620 
TPHGI  =  0.0  RUFF  1630 
TTHGI  =  ATAN2( (2GM(ME)-ZGM(ME+1) ),DELG)  RUFF1640 
TAX  =  CBRd  )*CGYW(I)-CGR(  I)*CBYW(n  RUFF1650 
TBI  =  CGR(I)*CAYW(I1-CAR(I)*CGYW(I )  RUFF1660 
TCI  =  CARd  )*CBYW(I)-CBR(  1)«CAYW(I)  RUFF1670 
STI  =  SINCTTHGI)  RUFF  1680 
CTI  =  COS(TThGI)  RUFF  1690 
ONI  =  (TCI*TCI+TBI*TBI )*STI-TAI*TCI*CTI  RUFF1700 
DN2  =  -TBI*(tAI*STI+TCI*CTI)  RUFF1710 
DN3  =  (TAI*TAI+TBI*TBI)*CTI-TAI*TCI*STI  RUFF1720 
TERM5  =  SQRT(DN1*DN1+DN2*DN2+DN3*DN3)  RUFF1730 
SPG(I)  =  -DN2/TERM5  RUFF1740 
PHGI(I)  =  ARSINCSPGd)  )  RUFF1750 
THGI(I)    =    ATAN(DN1/DN3)  RUFF1760 

112  CPG(I)  =C0S(PHG1(I))  1770 
CTG(I)  =  C0S(THGI(I) )  RUFF1780 
STG(I3  =SIN(THGI(I))  RUFF1790 
XGPP(I)  =  TXGP  RUFF  1800 
YGPPd)  =  YP(I)+HI{I  )»CBR(I)  RUFF1810 
ZGPPd)  =  ZP(II+HI(I  )*CGR(I)  RUFF1820 
RETURN  RUFF  1850 
END  RUFF  18  40 
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iJAlE        01/1^/76 


TIME   1725 


UPDATF  RECORD 


'^Ol 

9  00  1 


CALSPAN    CORPORATILN 


CALSP/iN    CCPPLRAIJDN 


SUbkOUl  INE    RuhRLL'(M:i\D,DtLG,tJbMAXt  Zt<7  AR  J 

^iV0S^i-Vu2    VERSION 

REVISED    t.CTOBER    197^ 

HV0SM-Ru2    VLRSION 
HV0SM-VU2    VtRSIGN 

REVISED    UCTOBtR     197^ 
uIMENSiUN    IRlf^oiZZOt) 
IF(NENL.G7.2I0O)    GG    TO    900 
RhA.OfH,  1  ND  =  901  )     (ZRl  A5  (I  )  ,I  =  1,NFND) 
GO    TO     i2 
WRITr  (  t  t^'OOl  ) 

hORMAll'  END    OF    FILE     ENCOUNTEREL    IN    <^ 

1  •        LATA 

NEND    =     I 

O^MAX     -     (N[-\'oi-l)*Uf  LG 
RETURN 

WRITE  (<-  ,9000  ) 
I^ORMAT  (  •  NUMbt.  K     C  P 

1  •     TmA^4    Thi      ALLLWEL 

STOP 
tNG 


ct-;FG:-,F:    NLND    POINTS    WERE     REAI, 


cAD     OF     ROUGHNlSS 
•         ) 


LAST 

;<ioo. 


ROUGHNlSS     :..  *  T  A    POINT     IS    GRE^TE"     •/ 
PROGRAM     ]l  P^'lNAl  lI  .  •        ) 


ROFR 
RjFR 
^OFR 
ROFR 
Kt.lFR 
RUFk 
RU  FR 
RUFR 
RUFR 
RoFR 
RUFK 
RUFR 
ROFR 
vUFR 
ROFR 
ROFR 
■OFR 
P  U  F  R 
ROFR 
RUFk 
ROFR 


0010 
00  20 
00  30 
00  40 
00  50 
00  60 
0070 

00  BO 
CO  90 
0100 

01  10 
0120 
0130 
0140 
01t>0 
0160 
0171) 
C180 
0190 
(-2  00 

02  10 
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SUBROUTINE  SIMSOL  (A,KK,LLI 

C* 

C*  SUBROUTINE  SIMSOt       (SINGLE  P 

C* 

C*  AUTHOR 

C*        DR. JOHN  T.  FLECK 

C*        (REVISED  BY  F.E.  BUTLER) 

C*  ' 

C*  REFERENCE 

C*        "SUBROUTINES  TO  SOLVE  AN  INO 

C*        SIMULTANEOUS  EQUATIONS'*   HS/ 

C* 

C*  PURPOSE 

C*  TO   SOLVE    A    SET  OF   SIMULTANEOU 

C* 

C*  USAGE 

C*  CALL    SIMSOL     (A,N,NDI) 

C* 

C*  DESCRIPTION    OF    PARAMETERS 

C*  A   ~    IS    A    2-DIMENSIONAL    (NDI*N 

C*  N    -    IS    THE    NUMBER    OF    EQUATION 

C*  NDl    -    IS    THE    FIRST   DIMENSION 

C*  (    NOl.GE.N      AND      ND2.6E. 

C* 

C«  CALLING  PROGRAM  SETUP 

C*        ACIfJ)  FOR  ItJ=IfN 

C*        A(I,N+1)=B(I)  FOR  1  =  1, N 

C*        THE  SOLUTION  IS  RETURNED  IN  C 

C*        MATRIX  A  IS  DESTROYED  BY  THE 

1000  CONTINUE 

C*  REMARKS 

C*        IF  MATRIX  A  IS  SINGULAR,  AN  E 
C*        AND  THE  JOB  IS  TERMINATED. 
C* 

C*  METHOD 

C*        SOLUTION  IS  OBTAINED  BY  ELIMI 
C*        DIVISOR  OF  EACH  COLUMN.  EACH 
C*  OF  INTERCHANGING  ROWS  WHEN  NE 

C*  ZERO  OR  SMALL  NUMBERS. 
C*  THE  FORWARD  SOLUTION  TO  OBTAl 
C*  STAGES.  THE  BACK  SOLUTION  FOR 
C*  CALCULATED  BY  SUCCESSIVE  SUBS 
C*  VALUES  ARE  DEVELOPED  IN  COLUM 
C*  VARIABLE  1  IN  A(1,N«I),  VARIA 
C*  VARIABLE  N  IN  A(N,N-i-l). 

C* 

REAL  A(LL,I),BtBIG 

N   »:  KK 

Nl  =  N*I 

DO  50   L-I«N 

LI  =  L*l 

BIG  s  0.0 

DO  25   I»L»N 

IF  (ABS(A(I,L)).tE.ABS(BIGn  GO 

K  =  I 

BIG  s  A(I,L> 


00047370 

«4>«*«4t««4t4!4:*)|(4c*4t«4t««*******)«i4c«*)|i*«00047380 

♦00047390 
RECISION  VERSION)  ♦00047400 

♦00047410 
♦00047420 
♦00047430 
♦00047440 
♦00047450 
♦00047460 
EPENDENT  SET  OF  LINEAR  ^00047470 

FEB/PAW~84,  21  JULY  1965.         ♦00047480 

♦00047490 

♦00047500 

S  LINEAR  EQUATIONS,  AX=B.         ♦00047510 

♦00047520 

♦00047530 

♦00047540 

♦00047550 

♦00047560 

D2)  MATRIX  OF  COEFFICIENTS.       ^00047570 

S  AND  UNKNOWNS.  ♦00047580 

OF  A  IN  CALLING  PROGRAM.  ^00047590 

N+1  )  ♦00047600 

♦00047610 
♦00047620 
♦00047630 
♦00047640 
OLUMN  N-M  OF  MATRIX  A.  ^00047650 

SUBROUTINE.  ^00047660 

00047670 

♦00047680 

RROR  MESSAGE  IS  PRINTED  ^00047690 

♦00047700 

♦00047710 

♦00047720 

NATION  USING  LARGEST  PIVOTAL      ^00047730 

STAGE  OF  ELIMINATION  CONSISTS     ^00047740 

CESSARY  TO  AVOID  DIVISION  BY      ♦00047750 

♦00047760 
N  VARIABLE  N  IS  DONE  IN  N         *00047770 
THE  OTHER  VARIABLES  IS  ♦00047780 

TITUTIONS.  FINAL  SOLUTION         ♦00047790 
N  N+1  OF  MATRIX  A,  WITH  ♦00047800 

BLE  2  IN  A(2,N4>l),....t  ♦00047810 

♦00047820 
♦00047830 

00047850 
00047860 
00047870 
00047880 
00047890 
00047900 
00047910 
TO  25  00047920 

00047930 
00047940 
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r^    CONTINUE 

IF  (BIG. NE. 0.0)  GO  TO  30 

WRITE(6, 32000) 
32000   F0RMAT(24H  SIMSOL  MATRIX  SINGULAR.) 

STOP 
30  DO  40   J=L,N1 

IF  (K.EQ.L)  GO  TO  AO 

3        =  A(Kf J) 

A(K,J)  =  A(Lt J) 

A(LtJ)  =  B 
AC  A(L»J)  =  A(LtJ)/BIG 

IF  (L.EO.N)  GO  TO  50 

DO  48   I=L1»N 

IF  (A(I ,L).EO.O.O)  GO  TO  48 

DO  45   J=L1,N1 
45  A(I,J)  =  A(I,J)-A(I,L)*A(L,J) 
48  CONTINUE 
50  CONTINUE 

IF  (N.EQ.l)  RETURN 

N2  =  N-1 

DO  60   L=lfN2 

I   =  N-L 

LI  =  1*1 

DO  60   J=LltN 
60  Ad.Nl)  =  A(I,N1)-A(I,J)*A(J,NI) 

RETURN 

END 


00047950 
00047960 
00047970 
00047980 
00047990 
00048000 
00048010 
00048020 
00048030 
00048040 
00048050 
00048060 
00048070 
00048080 
00048090 
00048100 
00048110 
00048120 
00048130 
00048140 
C0048150 
C0048160 
00048170 
00048180 
00048190 
00048200 
00048210 
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SUBROUTINE    SUSFRC (DI SP ,VEL)    .  SUSFOOIO 

C  HV0SM-VD2    VERSION  SUSF0020 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION  SUSF0030 

C  SUSF0040 

C       SUBROUTINE    TO    COMPUTE    SUSPENSION    FORCES    ACTING    BETWEEN    SPRUNG  SUSF0050 

C       AND    UNSPRUNG    MASSES  SUSF0060 

C  SUSF0070 

COMMON/INPT/PHIO,THETAO,PSIO,PO,QO,RO,XCOP,YCOP,ZCOP,UO,VO,WO,  SUSFOOBO 

1  A,B,DEL10,DELi:0,DEL30,PHIR0,DEL10D,DEL20D,DEL30D,  SUSF0090 

2  PHlROD,lF,TRtZFtZR,RHO»AKRS,XMURT  SUSFOIOO 

3  XMS,XMUF,XIXfXlY,XIZ»XIXZ,CF,AKF,XLAMF,0MEGFtCFP»EPSF,SUSF0110 

4  RF,CR,AKR,XLAMR,OM£&R,CRPtEPSR,RR,TS,THMAX,DTCOMP,TO,    SUSF0120 
b  TlfDTCMPl,DTPRNTtMODE,EBAR,EM,AAA,HMAX,HMINf BET,G,  SUSF0130 

6  HED(36),DADE (3),XIR,X1,Y1,Z1,X2,Y2,Z2»PHIC(50),DELB,       SUSF0140 

7  DELE,DDEL,NDEL,PSIF(50) ,TQF(50) tTQR(50),T6,TE,TINCR,       SUSF0150 

8  NZTAb»NZ5,XBDRYU,5),PSBDRY(4,5),YBDRY(2t5),N&X(5»,  SUSF0160 

9  NBY(5) fNTBLl,NTBL2,NT6L3,ZGP(21,21,5)  SUSF0170 
C0MM0N/INPT/XB(5),XE(5),XINCRi5>,NXC5),YB(5) t YEC 5 » , YINCR( 5 ) ,NY( 5 ) ,SUSF01 80 

1  XXZ6P5(21) ,YYZGP5(21) , AMUG( 5 ) ,PSBDRO( 4,5 ) ,UVWMIN ,PQRMIN    SUSF0190 

COMM0N/INPT3/    AKFCtAKFCP ,0MEGFC , AKFE, AKFEP ,OMEGFE, AKRC , AKRCP,  SUSF0200 

1  0MEGRC»AKRE,AKREP,0MEGRE,END3  SUSF0210 

COMMON    /INTG/NEQ,T,DT,VAR(50>,DER(50)  SUSF0220 

EQUIVALENCE     (U,VAR(1 )) ,( V,VAR(2) )»(W,VAR(3)) , (P,VAR(4) ) , (Q , VAR< 5 ) ) SUSF02 30 

1  , (R,VAR(6)) ,( DEL1,VAR(7) ), (DELID, VAR( 8) ) , (DEL2, VAR(9 ) ),SUSF0240 

2  (DEL2D,VAR(10)) ,(DEL3,VAR(11) ) ,(DEL3D,VAR( 12)) ,  SUSF0250 

3  (PHIR,VAR( 13)),(PHIRD,VAR(14) ),(THETTP,VAR(15) ) ,  SUSF0260 

4  (PHlTPtVAR(16)),IPSITP,VAR(17) ), (XCP,VAR(18) ),  SUSF0270 

5  (YCP,VAR(19) ) ,(ZCP,VAR(20)) ,(PSIFI,VAR(21) »,  SUSF0280 

6  (PSIFID.VARC 22))  SUSF0290 
EQUIVALENCE    (DU,DER< 1) ), (DV,DER(2) ) , ( DW, DER{ 3 ) ) , (DP,DER (4) ) ,  SUSF0300 

1  (DQ,DER(5)  )t (DR,DER(6) ) , ( DUEL  1 ,DER (7) ) , (DDELID, DER( 8 ) ) SUSF03 10 

2  , (DDEL2,DER(9)),(DDEL2D,DER(10)), (DDEL3,DER(11) ) ,  SUSF0320 

3  (DDEL3D,DER( 12)),(DPHIR,DER( 13)) ,(DPHIRD,DER(14)),  SUSF0330 

4  (DTHTTP,DER(15)), (DPH1TP,DER( 16)),(DPSITP,DER(17)),  SUSF0340 

5  (DXCP,DER(18 1),(DYCP,DER(19) ) ,(DZCP,DER(20)),  SUSF0350 

6  (DPSIFI,DER(21)),(DDPSFI,DER(22) )  SUSF0360 
EQUIVALENCE     (VAR (9) , PHIF ) , ( VAR ( 10) ,PHIFD) ♦ (DER(9), DPMI F ) ,  SUSF0370 

1  <DER(10),DPHIFD)  SUSF0380 

EQUIVALENCE    ( VAR{ 13) ,DEL4) , ( VAR { 14 ) ,DEL4D ) , ( DER( 13 ) ,DD EL4) ,  SUSF03  90 

1  (DER(14),DDEL4D)  SUSF0400 

COMMON    /DIMV/XlP,X2PfX3P,X4P,YlP,Y2P,Y3P,Y4P,ZlP,Z2P,Z3P,Z4P,PHIl,SUSF04l0 

1  PHI2,PHI3,PHI4,PSI1,PSI2,PSI3,PSI4,CAYW<4),CBYW(4),       SUSF0420 

2  CGYW(4) ,ZPGI(4),THGI<4),PHGI(4) ,CPG(4) ,SPG (4) ,CTG(4 ) , SUSF0430 

3  STG(4),CAGZ(4),CBGZ(4),CGGZ{4),D1(4),D2{4),D3(4),  SUSF0440 

4  XLM1(4),XLM2(4),XLM3(4),AMTX(3,3),CMTX(3,4),XGPP(4),    SUSF0450 

5  YGPP(4) ,ZGPP(4),DMATX(10,ll),DELTA(4) ,CAR(4),CBR(4),     SUSF0460 

6  C6R(4),FR(4) ,HI(4) ,FC(4) ,TI(4),AX(4),BX(4),CX(4),  SUSF0470 

7  CTXG(4),UG(4),STXG(4),AY(4),BY(4),CY(4),CPYG{4),  SUSF0480 

8  SPYG(4) ,VG(4),PSIIP(4),PH1CI(4),CAC(4),CBC(4),CGC(4),SUSF0490 
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9  FCXU(4),FCYU(4),FCZU(4),FS(4) ,CAXW(4) ,CBXW(4) ,CGXW(4) SUSF05  00 

COMMON  /DIMV/AS(4),BS(4) , CS ( 4) tC AS ( 4) ,CBS (4) ,CGS (4 ) ^BETP (4 ) ,  SUSF0510 

1  BETbR(4),FSXU(4),FSYU(4) ,FSZU(4),FRXU(4),FRYU(4),  SUSF0b20 

2  FRZU(4)  ,FXU(4),FYU(4)  ,FZU(4)  ,  SI(  4)  ,  FIFK  2  )  ♦  F1RI(  2  )  ,  SUSF05)30 

3  F2hl(2) ,F2RI(2),CAH(4),CbH(4) ,CGH(4)  SUSF0540 
DIMENSION  XP(4) ,YP(4),ZP(4),PHII(4),PSII(4)  SUSF05^0 
EQUIVALENCE     (XP<1),X1P  ),  ([YPiDiYlP  )  ,  (  ZP  (  1  )  ,  Z  IP  )  ,  (PHI  I  (  1 )  ,  PHI  1 )  ,  SUSF05  6C 

1  (PSlIt  1)  ,PSIli)  SUSF0t.7C 

COMMON    /COMP/SUMM,THETNt PWINtPSIN,PI,RAD,GAMl,GAM2,GAM3,&AM4,&AM5,SUSF05faO 

1  &AM6tGAM7,GAMft,GAM9,THETT,PHIT,PSIT,ZRCtTR02»  SUSF0590 

2  TF02,TIZ,RH02,RHOMUR, AMUF,BMUR,ZPRtTM4,RHMR2tA02APB,  SUSF0600 

3  B02APB,RFTF,TS02,RRTS,BROMUR tXMUF02tAXMF02»XMTF04t  SUSFOolO 

4  XIZR,RTR,RHMR2IfXIXP,XIZP,XlXZPtXIYZPtDlPD2,DlMD2t  SUSF06  20 
b                                    ZR03tZRD3R, ZFD3RtZFDI2»TIZ2,TG61,DDlP2,DDlM2tRPR,PHRPSUSF06  30 

6  ,TANTP,SPHTP,CPHTPtSECTP,SFXS,SFYStSFZStSNPS»SNTSt  SUSFObAO 

7  SNPSS,TPRtCAY,CBY,CGY,CAX,CBX,C&X,SFYU,SFXUfSFYUF,  SUSF06^0 
b  SFYUR,SFZU,CUSTHtSINTH,C0SPStSINPS,COSPH»SINPH,ANGl,  SUSFObfcO 
9                                    ANG2»CPHI,SPH1,CPSI,SPSI,P1»P7,P3,P4,P5»P6,TX«TY,TZ  SUSFC670 

COMMON    /CQMP/TKHtDISTX,DISTY,DISTD,DISTS,U21tZETA4,ZETA4D,ZETA3,  SUSF06bO 

1  ZE1A3D, SFZl ,SNPUtSNTU,HCGril,HCGH2,HCGH3tHCGH4,TERMl,  SUSP  06 90 

2  TERM2tSNPSU,SNPRtHCeHl,HCbH2,HCBH3,HCbH^,HCAHl,HCAH2,SUSF07O0 

3  HCAH3,HCAH4,UQ,WP,UR,QR,VP,PK,P2tQ2,R2,VR,W0,PQ,PHIR2SUSFC710 

4  ,PHlRD2,RPHRUtGCTH,GSTH,&ClSP,GCTCP,XXX,YYY» IX , I Y ,XX 1 t SU SF 07 20 
b  XX2,YY1 ,YY2»THGl,THG2,PHGl,PhG2tZZltZZ2tLLL  SUSF0730 

DIMENSION    HCAH(4) ,HCBH(4)  ,HCGh(4)  SUSF0740 

EOUI  VALENCE     (HC/iH(  1 )  ,HCAH1 )  ,  {HCBH(  1  ),HCBHI),  <HCGH(  1  ),HCGHl  )  SUSF07t>0 

COMMON/ADTNL/    Ul t U2 , U3 ,U4 , VI ,V2 t V3 , V4 t Wl , W2 , W3 , W4,  SUSF0760 

1  XlYP,SPHIC,CPHlCt APTCHl,APTCH2t APTCH3tAPTCH4,  SUSFC770 

2  SLUPEl,SL0PE2tXlRA(300)  SUSF07fcO 
DIMENSION  UI (4),VI(4),WI (4)  SUSF0790 
EQUIVALENCE  ( UI ( 1 ) ,U 1) , ( Vl( 1 ) ,V 1 ) , ( WI ( 1 ) , Wl )  SUSF0800 
DIMENSION  APITCH(4)  SUSFOBiO 
EQUIVALENCE  ( AP ITCH ( 1) , APTCHl)  SUSF0620 
COMMON/ APT ABL/    APFR(21 ,2 ) , I APFR ( 2 ) , DAPFB , D APFE tDDA PF»N APF ,  SUSFOBSO 

1  DAPRb tDAPkE,DDAPR,NAPR  SUSF0&40 

DIMENSION    APF(21 ) tAPR(21 )  SUSFObSO 

EQUIVALENCE     ( APFR( 1 , 1 )  ,A PF( I) ) , ( APFR ( 1 , 2 )  , APR ( 1 )  )  SUSF0e60 

EQUIVALENCE     ( I APF , lA PFR (  1 ) ) , (I APR , I APFR ( 2  )  )  SUSF0870 

COMMON    /INSUS/    X  I F ,RHUF, TSF, PHI FO, PHI FOD , DEL4C , DEL40D, ISUS ,  SUSF0660 

1  AKDSt AKDS1,AKDS2,AKDS3,PHIRC{50),DTHF(50),DTHR(50),SUSF0&90 

2  NCAMF,NCAMR,ND1HF,NDTHR  SUSF0900 
COMMON    /SUSCMP/    XMUR02 »BXMR02 tXMTR04, ZFO t TSF02 ,RH0F2 tRHEMUF,  SUSF0910 

1  RHF2MF  ,RF2MF1,RTF,RRTR,D3PD4,D3MD4,D43,DD3P4,  SUSF0Q20 

2  DD3M4,ZFD1RF,ZRD34,RFPF,RPF2M,WFMF,PHFP,PHIF2,  SUSF0930 

3  PHIFD2,RPHFD,ZFDltZFD2tZRD4,TPF,SL0PE3fSL0PE4,  SUSF0940 

4  PHI3D,PHI4D,DTHFi,CTHF2,DThR3,DTHR4,DlDDl»  SUSF0950 

5  DTDD2,UTDD3,DTDD4»FJF(4),SNPF  SUSF0960 
DIMENSION  DISP(4),VFL(4)  ,F1I(4),F2I (4)  SUSF0970 
EQUIVALENCE     ( F 1 1 ( 1 ) , Fl FI  (  1) ) , ( F2 I ( 1  )  , F2F I ( 1 )  )  SUSF0980 

SUSF09  90 

DO    500    1=1,4  SUSP  10 00 
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IF(1.GE,3!  CO' 
IFCEPSF.LEoO.O 
IF(ABS(VEL( I)) 
FlI  (I  )  =  (CFP/ 
GO    TO    20 

10    FlI  (I)     =■   SIGMl 

20    XLM    =1.0 

TMP  =  DISP(I)* 
IF(DISP(I),GT. 
IF(DISP(I).LT. 
F2I (I)  =  AKF*D 
GO    TO    100 

30  1F(TMP,LT,0.0) 
DISPl  =  DlSPd 
F?I(I )  =  AKF*D 
GO    TO    100 

40    IF(TMP.LT.O,0) 
DISPl    =    DISPd 
F2I(I)     =    AKF*D 
GO    TO    100 
loo    IF(IAPF.EQ.O) 
APITCHd)    =    0. 
IF(FC(I>.EO,0. 
TMP3    =    COS (PHI 
CALL    INTRPL(AP 
APITCHd)    =    -A 
150    ABAR    =    RFTF*D2 
IFMSUS.fcQ.2) 
IF(I.EQ,2)    GO 
FJF(1»    =   -SLOP 
GO    TO    103 

102  ABAR    =    -ABAR 
FJF(2)    =    -SLOP 
GO    TO    103 

105  ABAR  =-RTF*PHI 
IF(I.EQ.2)  ABA 
FJF(I)     -   0.0 

103  SKI)  =^  B02APB 
GO    TO   500 

200  IF(ePSR.LE.0.0 
IF(ABS(VEL(I)) 
FII(I)  =  (CRP/ 
GO    TO    220 

210    FIKI)    =   SIGN( 

220    XLM    =    1,0 

TMP  =  DISP(I)* 
IF(DISP(I).GT. 
IF(DISP(I).LT. 
F2I(I)  =  AKR*D 
GO    TO   300 

230    IF(TMP.LT.O.O) 


TO  200 
?.  GO  T 
•GE.EP 
EPSF)« 


0    10 

SF)    GO   TO    10 

VEL(  I) 


CFPfVELd)  ) 


yELd) 

OMEGFE 
OMEGFC 
ISPd) 

XLM  = 
)-OM£G 
ISPd) 

XLM  = 
)-UMEG 
ISPd) 


)    GO    TO    30 
)    GO    TO    40 


XLAMF 
FE 
+XLM*(AKFE*DISP1+AKFEP*DISPI**3) 

XLAMF 
FC 
♦XLM*(AKFC*DISP1+AKFCP*DISP1**3) 


GO   TO    150 

0 

0)    GO 

id))*( 

F.DAPFI 

PC*FC( 

1 

GO   TO 

TO    102 

E1*{FYU(1)*HCGH1-FZU(1)*HCBH1)     ♦    FYU(1)*DTDD1 


TO    150 

'COS(PSIId)  )/12.0 
B,DAPFE,DDAPF,DISPd  )f  APC) 
I)*HI (I)*TMP3 

105 


E2*(FYU(2)*HCGH2-FZU(2)*HCBH2)    -    FYU(2)«DTDD2 


F 

R    =    -A 


BAR 


-CF*VELd  )  -FlI  d  )-F2  I  { I )  ♦ABAR+F  JF(  I)  ♦API  TCH(  I ) 

)  GO  TO  210 
•GE.EPSR)  GO  TO  210 
EPSR)*VEL(I) 

CRP^VEL(I) ) 


VELd) 
OMEGRE 
OMEGRC 
ISPd) 


)    GO    TO    230 
)    GO    TO   240 


XLM    =    XLAMR 


SUSF  ...  lU 
SUSFI020 
SUSF  10  30 
SUSF  1040 
SU  SF  10  50 
SUSF  10  60 
SUSF  10  70 
SUSf-  lObO 
SUSF  10  90 
SUSF 11 00 
SUSFlllO 
SUSF1120 
SUSF 1130 
SUSFlltO 
SUSF  1150 
SUSP  1160 
SUSF  1170 
SUSF 1130 
SUSF  11  90 
SUSF  12  00 
SUSF12iO 
SUSF  12  20 
SUSF  12  30 
SUSF  12  40 
SUSF  12  50 
SUSF  12  60 
SUSF  12  70 
SUSF12B0 
SUSF  12  90 
SUSF  1300 
SUSF  1310 
SUSF 13  20 
SUSF  13  30 
SUSF  1340 
SUSF  13  50 
SUSF 1360 
SU  SF  13  70 
SUSF  13  80 
SUSF 13  90 
SUSF 1400 
SUSF  14  10 
SUSF  14  20 
SUSF  1430 
SUSF  1440 
SUSF  14  50 
SUSF 1460 
SUSF  1470 
SUSF1460 
SUSF1490 
SUSF  15  00 
SUSF  15  10 
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240 


300 


350 


302 


305 


303 
500 


DISPl    =    DISP(I)-OMEGRE  SUSF1520 

F2I{I)    =    AKR«DISP(I)+XLM*{AKRE*DISP1+AK.REP*DISP1**3)  SUSF  1530 

GO    TO    300  SUSP  15 40 

IFtTMP.LT.O.O)     XLM    =    XLAMR  SUSF15f0 

DISPl    =    DISP(I)-OME&RC  SUSF1560 

F2I(I)     -    AKR*D1SP(I)+XLM*(AKRC*DISP1+AKRCP*DISP1**3)  SUSF1570 

IFdAPR.EQ^O)    GC    TO    350  SUSF1580 

APITCH(I)    =    0.0  SUSF1590 

IF(FC{I).EQ.O.O)    GO    TO    350  SUSF1600 

TMP3    =    COS(PhIl ( I) )*COS(PSII(I) )/12.0  SUSF 16 10 

CALL    INTRPL( APR,DAPRb,DAPRE,DDAPR,DlSP(I) ,APC)  SUSFl6?0 

APITCH(I)    =       APC*FC(  I)*HI (I)»TMP3  SUSF1630 

ABAR    -    RRTR*D43  SUSF  16^0 

IF( ISUS.NE.l )    GO    TO    305  SUSF1650 

IF(I.Ey.A)    GO    TL    302  SUSF166G 

FJF(3)     =   -SL0PE3*(FYU(3)*HCGH3-FZU(3)*HCBH3)  +    FYU (3) *DTDD3                    SUSF167C 

GC    TO    303  SUSF16P0 

ABAR    =    -    ABAR  SUSF1690 

FJF(4)     =    -SL0PF4*(FYU<4)*HC&H4-F2U(4)*HCBH4)  -    FYU(4)*D1DD4                    SUSF  1700 

GO    TO    303  SUSF1710 

ABAR    =     -RTR«PHIR  SUSF1720 

IF(1,EQ.4)     ABAk    =    -ABAR  SUSF 1730 

KJF(I)     =    0.0  SUSF1740 

SKI)    =    A02APB-CR*VEL(  I)-F1I(I)-F2I(I  )+ABAR  +  APITCH(I)  +  FJF(  I)  SUSF1750 

CONTINUE  SUSF1760 

SFZl    =    SKI  )*SI(2)+SI(3)+SI(4)  SUSF1770 

RETURN  SUSF17K0 

END  SUSF 1790 
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SUBROUTINE    TERE ADC  I t NNBX , NNBY ,NNX,NNY ,NZ5T,NERR )  TEREOOIO 

C                                     HV0SM-VD2    VERSION  TERE0020 

C                                     REVISED    OCTOBER    1975         CALSPAN    CORPORATION  TERE0030 

C0MMON/lNPT/PHI0tTHETA0,PSI0,PO,Q0,RO,XC0P,YCOP,ZC0PfU0iV0,W0,  TEREOOAO 

1  .              A,B,DEL10,DEL20,DEL30,PHIRO,DEL10D,D£L20D,DEL30D,  TERE0050 

2  PHIRODfTFf TRtZF,ZR»RHO, AKRS,XMURt  TERE0060 

3  '  XMS,XMUF ,XIXf XIYf XIZfXIXZ,CF,AKF,XLAMF,0MEGF,CFPtEPSF»TERE0070 

4  RF,CR,AKR,XLAMR,OMEGR,CRP.tPSR»RR,TS,THMAX,DTCOMP,TO,    TEREOOBO 

5  TItDTCMPltDTPRNT,MODEtEBAR,EM,AAA,HMAX,HMINtBET,&,  TERE0090 

6  H£D(36),DADE(3),XIR,X1,Y1,Z1,X2,Y2,Z2,PHIC(50),DELB,  TEREOIQO 

7  DELE,DDEL,NDEL,PSIFi50) ♦T0F(50),TQR(50),7fa,TE,TINCR»  TEREOllO 

8  NZTAb,NZ5,XBDRY(4»5),PSBDRY(4,5) ,YBDRY(2,5 ),NBX(5),  TEREOi^O 

9  NBY(5)tNTLLl »NT&L2,NTBL3,ZGP(21,21,5)  TERE0130 
C0MM0N/1NPT/XB(5) ,XE ( 5 ) , XINCR ( 5  I fNX (5 ) , YB ( 5) t YE { 5  I ,YINCR(5) ,NY ( 5 ) ♦TEREOl 40 

1  XXZGP5(21 ),YYZGP5(21) tAMUG(5) t PSbDR0(4,5 ) ♦UVWMIN ,PQRMI N    TERE01i)0 

DIMENSION    DUM(ie)  TERFG160 

LSEQ    =    0  TERE0170 

IFCNNBX.LE.O)    60    TO    10  TERE0180 

READ(2,2000)     (DUM(K ) ,K=1 , 9) ,NSEO ,NCARD  TERE019C 

2000    F0RMAT(9F8. 0,214)  TERE0200 

IF(NSEO.LT.LSEQ)    GO    TO    98  TERE0210 

LSEQ    =    NSEQ  TERE0220 

IF(NNBX.GT.4)    GOTO    98  TERE0230 

DO    11    K=1,NNBX  TERE0240 

11  XBDRY(K,I)  =  DUM(K)  TERE0250 
READ(2,2000)  ( DUM( K ) ,K=1 , 9) , NSEQ,NC ARD  TcRE0260 
IF(NSEU«LT,LSEQ)  GO  TO  98  TERE02  70 
LSEQ  =  NSEQ  TERE02P0 
DO    12    K=1,NNBX  TERE0290 

12  PSBDR0(K,I)     =    DUM(K)  TERE0300 
10    IF(NNBY.LE.O)    GO    TO    20  TERE0310 

IF(NNBY.GT.2)    GO    TO    98  TERE0320 

READ(2,2000)     ( DUM(K ) ,K=1 , 9) ,NSEQ ,NC ARD  TERE0330 

IF(NSEQ.LT.LSEQ)    GO    TO    98  TERE0340 

LSEQ    =    NSEQ  TERE('350 

DO    13    K=1,NNBY  TERE0360 

13  YBDRY(K,I)    =    DUM(K)  TERE0370 
20    NYCDS    =    (NNY-l)/9+l  TER£03bO 

DO    30    J=1,NNX  TERE0390 

M    =    0  TE  RE  04  00 

DO    40    K=l, NYCDS  TEREOhIO 

READ(2,2000)     ( DUM( N ) ,N=1 ,9) ,NSEQ ,NCARD  TERE0420 

IF(NSEQ.LT.LSEO)    60    TO    98  TERE0430 

LSEQ    =    NSEQ  TERE044C 

DO    50    N  =  l,9  TERE0450 

M    =    M-fl  TERE0460 

ZGP(J,M,I)    =    DUM(N)  TERE0470 

IF(M.GE,I^WY)    GO    TO    30  TERE0460 

50    CONTINUE  TERE0490 
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40  CONTINUE 
30  CONTINUE 

IF(NZ5T.tQ,0)    GO    TO    99 

M    =    0 

DO    60    K=1»NYCDS 

READ (2, 2000)     (OUM(N) ,N=1 , 9) ,NSC Q ,NC ARD 

1FINSEQ.lt. LSEQ)    GO    TO    98 

LSEg    =    NSEQ 

DO    61    N=it9 

M    =    M+1 

YYZGP5(M)    ~    DUM(N) 

IFIM.GE.NNY)    GO    TO    70 
61    CONTINUE 
60    CONTINUE 

70  NXCDS    =     (NNX-1 )/9    ♦    1 
M    =    0 

DO    71    K=l, NXCDS 

READ(2t2000 )     (DUM(N) ,N=1 t 9 ) , NSEO ,NCARD 
IFiNSEQ.LT.LSEQ)    GO    TO    9b 
LSEO    =    NSEQ 
DO    72    N-1,9 
M    =    M+1 

XXZGP5(M)    =    DJMIN) 
IF(M.GE.NNX)    GO    TO    99 
72    CONTINUE 

71  CONTINUE 

98  NERR  -  1 

99  RETURN 
END 


TE RE  05 00 
TEREOpIO 
TERE05  20 
TE  RE  05  30 
TE  RE  05  40 
T ERE  05 50 
TE  RE  05  60 
T  ERE  05  70 
TERE05e0 
TERE0590 
TE RE  0600 
TE  RE  06  10 
TERE0620 
TERE0630 
TERE06  40 
TERE06  50 
TfcRE06  60 
TE  RE  06  70 
TEREObcO 
TE  RE  06  90 
TtR£0700 
TERE071C 
TERE0720 
TERL07  30 
TEREC740 
TERE0750 
TERE0760 
T ERE  07  70 
T ERE  07 80 
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SUBROUTINE    TIRFR  TIRFOOIO 

C  HV0SM-VD2    VERSION                                                                                                           TIRF0020 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION                                            TIRF0030 

COMM0N/INPT/PHIO,THETA0,PSIO,P0,QO,RO,XCOP,YC0P.ZC0P,U0,V0,WO,  TIRF0040 

1  A,B,DELlO,DEL20,DEL30,PHIRO,DEL10DtDEL20DtDEL30D,  TIRF0050 

2  PHIROD,TF,TR,ZF,ZRfRHO,AKRS,XMURt  TIRF0060 

3  XMS,XMUF,XIX,XlY,XIZfXIXZ,CF,AKF,XLAMF,0MEGF,CFP,EPSF,TIRF0070 

4  RF , CRt  AKR, XL  AMR ,OMEGR, CRP , EPS R  tRR  tTS ,T HMAX ,DTCOMP ,T0 ,    TI RF 00  80 

5  Tlf DTCMPlfDTPRNTtMODE,EBAR,EM,AAA,HMAX,HMIN,BET,G,  TIRF0090 

6  HED(36),DADE(3),XIR,Xl,Yl,ZlfX2,Y2,Z2,PHIC(50),DELB,       TIRFOIOO 

7  DELE,DDEL,NDEL,PSIF(50),T0F(50),TQR(50),TB,TE,TINCR,       TIRFOllO 

8  NZTAb,NZ5,XBDRY(4,5)tPSBDRY(4,5)f YBDRY(2t5)fNBX(5),  TIRF0120 

9  NBY(5»tNTBLl,NTBL2,NTBL3tZGP(21,21,5)  TIRF0130 
C0MM0N/INPT/XB(5),XE(5),XINCR(5)tNXC5),YB (5 ) , YE( 5) t YINCRC 5) ,NY( 5 ) , TI RF0140 

I  XXZGP5(21) ,YYZGP5(2l) » AMUG( 5 ) ,PSBDR0( 4,5 ) ,UVWMIN ,PORMIN    TIRF0150 

COMMON  /INTG/NLQ,T,DT,VAR(50) ,0ER( 50)                                                                                TIRF0160 
EQUIVALENCE     CU, VAR{ 1  ) ) , ( V  ,VAR ( 2 ) ),(W,VAR(3)) , (P, VAR(4n , (Q, VAR(5 ) ) TI  RFOiTO 

1  ,  (R  ,  VAR  ( 6  ) )  ,  (  D  EL  I ,  VA  R  ( 7  )  )  ,  { D EL  ID ,  V  AR  {  8 )  )  ,  {  DE  L2  ,  V AR  (9  )  )  ,  T I  RF  01  80 

2  (DEL2D,VAR(10)),(DEL3,VAR(11) ),(DEL3D,VAR(12)) ,  TIRF0190 

3  (PHIR,VAR(13) ),(PHIRD,VAR(14) ),(THETTP,VAR(15) ),  T1RF0200 

4  (PHITP,VAR(16)),(PSITP,VARC17)),(XCP,VAR{18)),  TIRF0210 

5  (YCP,VAR(19) ),{ZCP»VAR(20)),(PSIFI,VAR(21) ),  TIRF0220 

6  (PSIFID,VAR(22))  TIRF0230 
EQUIVALENCE    (DU,DER( 1)), (DV,DER(2> ) , ( DW,DER ( 3 ) ) , CDP.DER (4) ),  TIRF0240 

1  (DQ,DER(5) ), CDR,DER<6)),(DDEL1,DER(7)),(DDEL1D,DER(8))TIRF02  50 

2  ,(DDEL2tDER(9)),(DDEL2D,DER(10)),(DDEL3,DER(ll) ),  TIRF0260 

3  (DDEL3D,DERtl2)),(DPHIR,DER(13)),(DPHIRD,DER(l4)),  TIRF0270 

4  (DTHTTP,DER( 15)), (DPHITP,DER(16)),(DPSITP,DER(17)),         TIRF0280 

5  (DXCP,DER{18)),(DYCP,DER(19)),(DZCP,DER(20)),  TIRF02V0 

6  (DPSIFI,DER(21)),(DDPSFI,DER(22) )  TIRF0300 
COMMON  /DIMV/XlP,X2P,X3P,X4P,YlP,Y2P,y3P,Y4P,ZlP,Z2P,Z3P,Z4P,PHIl,TIRF03l0 

1  PHI2,PHI3,PHI4,PSII,PSI2,PSI3,PSI4,CAYW(4),CBYW(4),       TIRF0320 

2  CGYW(4) ,ZPGI(4),THGI{4),PHGI(4) ,CPG<4) ,SPG(4) ,CTG(4 ) ,TIRF0330 

3  STG(4),CAGZ(4),CBGZ(4),CGGZ(4),D1(4),D2(4),D3(4),  TIRF0340 

4  XLM1{4) ,XLM2(4),XLM3(4),AMTX(3,3),CMTX(3,4),XGPP(4),    TIRF0350 

5  YGPP(4) ,2GPP(4),DMATX(10,11),DELTA(4) ,CAR{4),CBR(4),    TIRF0360 

6  CGR(4),FR(4),HI(4),FC(4),TI(4),AX(4),BX(4),CX(4),  TIRF0370 

7  CTXG(4),UG(4),STXG(4),AY(4),BY(4),CY(4),CPY6(4),  TIRF0380 

8  SPYG(4),VG(4),PSIIP(4),PHICI(4),CAC(4),CBC(4),CGC(4),TIRF0390 

9  FCXU(4) ,FCYU(4),FCZU{4),FS(4),CAXW(4) ,CBXW<4) ,CGXW( 4) TI RF0400 
COMMON  /DIMV/AS(4),BS(4) ,CS (4) ,CAS ( 4) ,CBS (4) , CGS (4 ) ,BETP (4) ,                 TIRF0410 

1  BETBR(4),FSXU(4),FSYU(4),FSZU(4),FRXU(4),FRYU(4),  TIRF0420 

2  FRZU(4),FXU(4),FYUI4)  ,FZU{4),$H4),F1FI(2),F1RI(2),      TIRF0430 

3  F2FI(2),F2RI{2),CAH(4),CBH(4),CGH(4)  TIRF0440 
DIMENSION  XP(4),YP(4),ZP(4),PHII(4),PSII(4)  TIRF0450 
EQUIVALENCE    (XPU)  ,X1P  )  ,  ( YP(  I )  ,  YIP  )  ,  (  ZP(  1 )  ,Z1P)  ,  (PHII  (  I)  ,PHI1 )  ,         TIRF0460 

1  (PSII<1),PSI1)                                                                                                        TIRF0470 

COMMON  /C0MP/SUMM,THETN,PHIN,PSIN,PI,RAD,GAM1,GAM2,GAM3,GAM4,GAM5,TIRF0480 

I  GAM6,GAM7,GAM8,GAM9,THETT,PHIT,PSIT,ZR0,TR02,                         TIRF0490 
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2  TF02,TI 

3  B02APB, 

4  XIZRtRT 

5  ZRD3»ZR 

6  ,TANTP,S 

7  SNPSS,T 

8  SFYURtS 

9  ANG2,CP 
COMMON  /C0MP/TRH,D1S 

1  ZE7A3D, 

2  TERM2,S 

3  HCAH3,H 

4  ,PH1RD2, 

5  XX2,YY1 
DIMENSION  HCAH(4) ,HC 
EQUIVALENCE  {HCAH(l) 
COMMON    /COMPN/    FRSP( 

1  OPSIN 

2  PHI2D 

3  SFRX( 
LOGICAL    LCbl,LCB2 
COMMON    /INPT4/    F1DJ( 

A  XXFRC 

B  XMXSM 

C  XMUXP 

EQUIVALENCE     (FIDJdj 

EQUIVALENCE     (FIWJ(2) 

COMMON    /COMP^/F]DAR( 

1  TiHKt 

2  DTINT,TW0P1R, 

3  SLIPK 

4  EPSSFC 
t>                                       FRYFAC 

6  SFCDTR 

7  FSAV(4 

8  ARTQ6(4),T 

9  RPSFC(2),R 
COMMON  /C0MP4/  XBRA 
LOGICAL  IUVS»IUVB,I 
C0MM0N/INPT5/  IBTYP( 

1  C0NE,C 

2  TRPME( 

3  ,TTS(10 

4  BTT,ET 
C0MM0N/C0MP5/  TAU(4) 

1  NBTYPt 

2  RHOMAX 

3  DELTAE 
COMMON  /INTR/  NEQR,T 
DIMENSION  RPSI(4) ,DR 
E0UIVALENCE(VARR(1), 


Z,RH02,RHOMURf A 

RFTF,TS02,RRTS, 

R,RHMR2i»XIXP,X 

D3R,ZFD3R,ZFD12 

PHTP,CPHTP,SECT 

PR,CAY,CBY»CGY, 

FZU,COSTH,SINTH 

HI,SPHT,CPSItSP 

TX  ,OISTY,DISTO, 

SFZ1,SNPU,SNTU, 

NPSU,SNPR,HCBH1 

CAH4,UQfWP,UR,Q 

RPHRDfGCThtGSTH 

,YY2,THGltTH&2, 

BH(4) ,HCGH(4) 

tHCAHl),(HCBH( 1 

4) ,FRCP(4),ICBH 

T,TANPC1,1ANPC2 

tLCB1(4) ,LCB2(4 

4) ,SKRY(4),SFRZ 


MUF,BMUR,Z 
BROMURfXMU 
IZPtXIXZPt 
♦TIZ2,TG61 
P.SFXStSFY 
CAX,CBX,CG 
,COSPSfSlN 
SI,P1,P7,P 
D1STS,D21, 
HCGH1,HCGH 
,HCBH2,HCB 
R,VP,PR,P2 
,GC7SP,GCT 
PHG1tPHG2, 


PR,TM4,RHMR2,Aa2APB,  TI 
F02,AXMF02,XMTF04,  TI 

X1YZP»D1PD2,D1MD2,  TI 

,DDlP2tDDlM2,RPR,PHRPTI 
S.SFZStSNPS.SNTSf  TI 

X,SFYU,SFXU,SFYUF,  TI 
PS,COSPHtSlNPH,ANGl,  TI 
3,P4»P5,P6,TX,TY,TZ  TI 
ZETA^,ZETA4D,ZETA3,  TI 
2,HCGH3,HCGH4,TERM1,  TI 
H3,HCBH4,HCAH1,HCAH2,TI 
,Q2,R2,VR»W0,PQ,PHIR2TI 
CP,XXX,YYY»IX,IY,XX1,TI 


ZZl,ZZ2f LLL 


)fHCBHl),(HC&H(l ),HCGH1 ) 

IT, JCBHIT, 

,PHIC1R,PH 

),IH1T ,AJM 

(4),T1PSI, 


1C2R,AMUCMP,PHI1D, 
TX(3,2),BMTX{3,3), 
T2PSI fXMUGI (4) 


2  )  ,  F  I W  J  (  2  )  , 
P(6)  tXMUMAT 
T(6,6,4),SL 
(4), XMUXS (4 
,FIDJF),(FI 
,FIWJR) ,(AR 
25  ,FILIW(2) 
), ARBRI(4), 
FHTPS1(4) ,X 
4) ,RH0S(4), 
,FSXFAC(4)  t 
(4),FKZFAC( 
(4), SFSDTR( 
),FRCPAV(4) 
UFAC(4),ARF 
PSFD(2)  ,HRP 
K{  16),IUVS( 
RPS 

2),AKI,AK2, 
TWOtCThREE, 
12),TWOT(12 
1) ,BTLF,ETL 
T,DTT,NTT1, 
,TQD(2),T0b 
ARFAC3(2) ,R 
,RH0SAV(4), 
,P1013R,C0M 
IMR,DTR,VAR 
PSI(4) 
RPSKD),  (D 


AR6R(2 
<6,6,4 
IPMT(6 
) tRRMC 
DJ(2  ), 
BR{ 1), 
,FIDWR 
PSITE 
MUI (4) 
EPSS{4 
FSYFAC 
4),FCX 
4),SFR 
,SLIPA 
ACl  (2) 
SFA(4) 
4),  lUV 

PONE,P 
TAUA,T 
) tTCTi 
F.DTLF 
NTT2,N 

(4) ,PP 

PSFE(2 
SRHOS( 
EN5,TQ 
R(12). 


),NX 
).XM 
»6t4 
(4), 
FIDJ 
ARBR 
2(2) 
M(4) 
,FRC 
),TE 
(4), 
FAC( 
CPR( 
V(4) 
,ARF 
,HRP 
B(4) 


UGMU 
XPMT 
),CT 
RRM( 
R),( 
F),( 
tSPH 
,SLP 
PMU( 
RMP< 
FSZF 
4),F 
4),S 
,RPS 
AC2( 
SFB( 
,IRP 


,NXFRCP.XXUGMU(6)  , 

(6,6,4) , 

(4),XMUM(4) , 

4)  ,CaMEN4 

FIWJ{  I),FIWJF) 

ARBR(2),ARBRR) 

ICI(4),CPHICI(4), 


TI 
TI 
TI 
TI 
Ti 
TI 
TI 
II 
TI 
TI 
TI 
TI 
TI 
TI 
TI 


TWO,PZER 

AU0(4),T 

12),TT(1 

,NTLF,BR 

TT3,NTTS 

(2  ),TLAM 

) ,RHGSMX 

4) ,UGW(4 

E,RPMt 

DERR(12) 


FAC(4),DTSTEP,DTTEST,TI 
4),HRTERM,SLIP(4) ,  TI 

4),T£RMB(^),TERM(4) ,    TI 
AC(4) ,FRXFAC(4),  TI 

CYFaC (4),FCZFAC{4),       TI 
SLIP(4),FCAV(4),  TI 

SM(4) ,FCSLSM(4),  TI 

2),RPSFA(2),RPSFB(2),T1 

TI 
TI 
TI 
TI 
TI 


4),HRPSFC(4),STEPD 
S,IDTCNT,ISTEP,ISTOP 


0(2),GN(16,2) ,ZETAB, 
LF(51)  ,T1  AU(51), 
01),TPC(101),TTR(101)TI 
PM,ERPM,NRPM,  TI 

,XINPT5(9)  TI 

B(2),PC,RWDRIV,JDEND,TI 
(3),SLIPMX(3),SLIPP,    TI 


),ABSUGW(4) ,VECS, 


ERR(l) ,DRPSI(1 )) 


TI 
TI 
TI 
TI 
TI 


RF  Oi»  00 
RF0510 
RF05  20 
RF03  30 
RF0540 
RFObSO 
RF0i60 
RF05  70 
RF  05  bO 
RF05  90 
RF0600 
RF0610 
RF0620 
RF  06  30 
RF06  40 
RF0650 
PF06  60 
RF0670 
RF06  80 
RF06«'0 
RF0700 
RF07  10 
RF0720 
RF0730 
RF07  40 
RF07  30 
RF0760 
RF0V70 
RF07eO 
RF0790 
RFObOO 
RFOBiO 
RF0a20 
RF0830 
RF  C8  40 
RF08  50 
RF08  60 
RF08  70 
RFOBSO 
RF0&90 
RF09  00 
RF0910 
RF0920 
RF0930 
RF09  40 
RF09  50 
RF09  60 
RF09  70 
RF09eO 
RF0990 
RFIOOO 
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c 
c 
c 
c 
c 

VARIABLES  NO  LONGER 

FOR  ISTtP=lf  TIME  T 

c 

•OUTEK*  INTEGRATION 

c 

AND  THE  INTEGRATED 

c 

USING  THE  DERIVATIV 

c 

INTERVAL,  SAID  DERI 

c 

VARIABLE  VALUES  FOR 

c 

FOR  ISTEP=2,  TIME 

c 

VARIABLES  ARE  REEV 

c 

FOR  1STEP=3,  TIME 

c 

VARIABLES  ARE  REEVA 

c 

FOR  ISTEP=4,  TIME 

c 

VARIABLES  ARE  UPDAT 

c 

USING  TF^SE  FINAL  V 

c 
c 

COMPUTED,  READY  FOR 

DO  15  1  =  1,4 

SPHICKI)  =  CAYW(I)* 

PHICKI  )   =  ARSIN(SP 

15  CONTINUE 

ISTEP  =  ISTEP  ♦  1 

IF(ISTEP.E0.2.0R.IST 

c 

RETAIN  FCFS, 

c 

TO  THE  S 

STEPD  =  1.0 

IF  (MODE  -1}   17,16, 

16  STEPD  =  0.5 

17  DO  21  1=1,4 

FC(I)    =  0.0 

FS(I)    =  0.0 

FRCPd)  =  0.0 

FCXUCI)  =  0.0 

FCYU(I)  =  0.0 

FCZU(I)  =  0.0 

FRXU(I)  =  0.0 

FRYU(I)  =  0.0 

FRZU(I)  =  0.0 

FSXU(I)  =  0.0 

FSYU(I)  =  0.0 

FSZU(I)  =  0.0 

FXU(I)   =  0.0 

FYU(I)   =  0.0 

FZU(I)   =0.0 

SFCDTR(I)  =  0.0 

SFSDTR(I)  =  0.0 

SFRCPR(I)  =  0.0 

SSLIP  (I)  =  0.0 

USED    INCLUDE    TQF  ( 50 ) ,TQR I  50) , TI (4 » ,TIHI ( 4) 


IS  A  HALF-INTERVAL  AHEAD  OF  CLOSIN 
,  SO  TABLE  VALUES  ARE  FOUND  AT  TIM 
VARIABLES  ARE  SET  AT  THIS  NEW  HALF 
E  VALUES  COMPUTED  AT  CLOSE  OF  PREV 
VATIVES    HAVING    BEEN    COMPUTED    WITH 

THE     INTEGRATION    OF    THE    PREVIOUS    I 

T    IS    SAME    AS    FOR    ISTEP=1,    AND    THE 
ALUATED,    USING    THE    DERIVATIVES    FRO 

T    IS    A    FULL    INTERVAL    AHEAD, AND    TH 
LUATED, USING    THE    DERIVATIVES    FROM    ISTEP=2. 

T    IS    SAME    AS    FOR    ISTEP=3,AND    INTEGRATED 
ED    FINALLY    BY    THE    AVERAGING.       NEW    DERIVATIVES 
ALUES    OF    THE    INTEGRATED    VARIABLES    ARE 

NEXT    INTERVAL. 


G  TIME  FOR 
E  T, 

INTERVAL, 
lOUS 

THE  FINAL 
NTERVAL, 

INTEGRATED 
M  ISTEP=1. 
E  INTEGRATEDTI 


Tl 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
TI 


CAGZ{I)+CBYW(I)*CBGZ( I )+CGYW{ I ) *CGGZ ( I) 
HICKD) 


EP.EQ.4)    RETURN 

RPSIt    DRPSI    AS    COMPUTED    TO   THE    HALF-STEP 

ECOND   HALF-STEP   ONCE. 


17 


TI 
TI 
tl 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
ONCE,TI 
TI 
TI 
TI 
TI 
Tl 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
TI 
TI 


RF  1010 
RF1020 
RF1030 
RF1040 
RF1050 
RF1060 
RF1070 
RF106C 
RFI090 
RHIOO 
RFlllG 
RF1120 
RF1130 
RF1140 
RF1150 
RF116G 
RF1170 
RF118G 
RF1190 
RF1200 
RFIZIO 
RF1220 
RF12  30 
RF12  40 
RF1250 
RF1260 
RF12  70 
RF12  60 
RF12  90 
RF1300 
RF1310 
RF13  20 
RF1330 
RF13  40 
RF13  50 
RF1360 
RF  13  70 
RF13  80 
RF13  90 
RF1400 
RF1410 
RF1420 
RF1430 
RF14  40 
RF1450 
RF1460 
RF14  70 
RF14  80 
RF1490 
RF1500 
RF1510 
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FCAV       (I)    =    0.0  TIRFlS^iO 

FSAV       (U    =    0.0  TIRF1530 

FRCPAVd)    =    0,0  TIRFi540 

SLIPAV(I)    =    0.0  TIRFie^tO 

SRHCS(I)    =    0.0  TIRH5)tO 

RHOSAV(l)    =    O.C  TlRPlb70 

C                    NOTE    THAT    RPSSM       AND    FCSLSM    ARE    NOT    CHANGED.  TIRFISBO 

C                                  FORMERLY,    TIRFRCi I  )    WAS    CALLED    FROM    VGORNT    SEPARATELY    FOR  T1RF1590 

C  EACH   WHEEL.    THE    SUM    OF    THE    FORCES    FOR    ALL    WHEELS    WAS    THEREFOR TI RF It 00 

C  NOr    ZEROED    IN    TIRFRC    BUT    IN    VPOS    FOR    EACH    RUNGE-KUTTA    STEPTlRFlbiO 

C                                       SFXU,SFYUtSFZU  TIRFi620 

21    CONTINUE  TIRF1630 

SFXU    =    0.0  TIRF  16A0 

SFYU    =    0.0  TIRF 1650 

SFZU    =    0.0  lIRUcbO 

DO    23    I=lf4  TIRF 1670 

IF     (FR(i).N£.0.0)    GO    TO    30  TIRFloBO 

IFiTQBtD.NE.O.O)    GO    TO    30  TIRF16S0 

23    CONTINUE  TIRF1700 

RETURN  TIRF 1710 

C                                AT    30    RADIAL    TIRE    FGKCE    IS    NON-ZEPO    FOR    AT    LEAST    ONE    WHEEL  TlRF17i:0 

C                                     OR    TORQUE    IS    NON-ZERO    FOR    AT    LEAST    ONE    WHEEL.  TIRF 1730 

30  DO  31  I=lt4  TiRF1740 
CPHICKI)  =  C0S(PHICI(I)  )  TIkFiTbO 
PSITEM(I)    =    PSIIP(I)*    SIGN(1.0,UG( I) )  T7RF1760 

C                               UGW(I)     IS    VELOCITY     IN    WHEEL    PLANE  TIRF1770 

UGWn)     =   UG(I)    *    CUS(PSIIP(I)  )       ♦    VG(I)    *    SIN{PSIIP(I)  )  TIkFl7b0 

ABSUGW(I)    =    ABS(UGW(I))  TIRFi790 

C                  lUVS    FOR    SLIP    TEST,       lUVB    FOR    FS       (SIDE    FORCE)    TEST  TlRFiaOO 

lUVS(I)     =    .FALSE.  TIRFiBlO 

IF(     ABSUGWd)        .GE.    0.3)     lUVS(I)    =     .TRUE.  T1RF1820 

lUVB(I)     =    .FALSE.  TIRF1630 

IF(  ABS(UG(I)  ).GT.0.5       .OR.    AbS  (  VG(  I  )  )  .GT.O  .5  )     lUVB(I)'    =    .TRUE.  TIRFlcAO 

TERMd  )    =    0.0  T1RF1630 

IF(  .NOT.IUVbd  ))    GO    TU    301  TIRF1660 

IFlUGd  ).NE.O.O.OR.VG(I)  .NE.0.0)    TERM  d  )  =ATAN2  ( VGd  ) ,  ABS  (UG  ( I  )  )  )  TIRF  18  70 

301       TERMPl    =    TAN(TERM(I  )-PSITEMd)  )  TIRF1880 

TERMPd)=    TERMPi    *    TERMi-l  TIRF1890 

TERM6d)=   PHICId)    -    0.6366*PHICI(  I  )    *    ABS  (  PHICI  ( I  )  )  TIRFIVOO 

FSXFACd)    =      AMTX(  1,  l)«CASd)+AMTX<2,l)*CbSd  )+AMTX(3,  1)*CGS(I  )  TIRFi^lO 

FSYFACd)    =       AMTXd,2)*CAS(I)+AMTX(2,2)*CbSd  )  +  AMTX(3,2)*CGS(I)  TIRF1V20 

FSZFACd)  =  AMTXd,3)*CASd)+AMTX(2,3)*CBSd  )+AMTX(3,3)*CGS(I)  TIRF1V30 
FRXFACCl  )    =      AMTXd,  1)*CAGZ(I  )  +  AMTX(2,l  )  »CbGZ  d  )  ♦AMTX  (  3  ,  1 )  *CGGZd  )TI  RF  1940 

FRYFACd  )  =  AMTXd,2)»CA&Zd)+AMTX(2,2)*CBGZ(I  ) +A  MTX  (  3,  2)  *CGGZd  )T  I  RF  l^SO 
FRZFAC(  1  )    =      AMTX{1,3)*CAGZ(I )♦ AMTX (2 ,3 )*CBGZ ( I ) +AMTX ( 3, 3) *CGGZd ) TI RF 19  60 

FCXFAC(I)    =      AMTXd,  l)*CACd)    +AMTX  (  2  , 1  )*CBC  (  I)     +AMTX  (  3,  1 )  *CGC  ( I  )  TIRFl«v70 

FCYFACd)    =       AMTX{  l,2)*CACd)     ^AMTX  ( 2  , 2  )*CbC  (I  )    +AMTX  (  3  ,  2  )  »CGC  ( I  )  TIRF1980 

FCZFACd)    =      AMTXd, 3)*CAC(I)    ♦AMTX  (  2  ,  3  )  *CBC  (I )     +AM1X  (  3  ,  3)  *CGC  ( I  )  TIRF1990 

31  CONTINUE  TIRF2000 
DO  33  1=1,4  TIRF2010 
SLPFACd)    =    0.0  TIRF2020 
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IF(     ABSUGW(I)       .LE.    0.5)     GO    TO    33  TIRF2030 

SLPFAC(I)    =    HI(I)    /    UGW( I)  TIRF20A0 

33  CONTINUE  TIRF2050 
IFdRPSi  GO  TO  35  TIRF2060 
IRPS  =  .TRUE.  T1RF2070 
DO  34  1  =  1,4  TIRF2080 
RPSKI  )  =  0.0  TIRF2090 
IF  (SLPFAC(I)  .EQ.  0.0)  GO  TO  34  TIRF2100 
RPSKI)    =    1.0/SLPFAC(I  )  T1RF2110 

34  CONTINUE  T1RF2120 
C                            GEl    DRPSI    USING    RPSI    COMPUTED    ABOVE.  TIRF2130 

NTRA    =     1  TIRF2140 

CALL    DAUXRCNTRA)  TIRF2150 

35  DTSTEP  =  DT  ♦STfcPD  TIRF2160 
DTR  =  DTSTEP  TIRF2170 
DTTEST  -  1.0E20  TIRF21bO 
DO  30  1-1,4  TIRF2190 
IF    (DRPSI(I)    .EQ.O.O    .OR.   RPSKI)    .EO.O.O)    GO    TO   38  TIRF2200 

36  DTINT  =  ABS  (RPSK  I) /DRPS  1(  I )  )  TIRF2210 
IF<DTINT    -    DTTEST)    37,38,38  TIRF2220 

37  DTTEST    =   DTINT  TIRF2230 

38  CONTINUE  TIRF2240 
C                              DTTEST    MUST    NOT    BE    ZERO.  TIRF2250 

IDTCNT    =    1  TIRF2260 

C  TIRF2270 

C  TIRF22B0 

50  IF    (DTR      -    C0MEN4*DTTEST)    52,52,51  TIRF2290 

51  DTR  =  0.5  ♦  DTR  T1RF2300 
IDTCNT  =  2*IDTCNT  TIRF2310 
IF  < IDTCNT  .GE.32)  GO  TO  52  TIRF2320 
GO    TO    50  TIRF2330 

52  IF(DTR.GT.O.O)  GO  TO  55  TIRF2340 
ISTOP  =  1  TIRF2350 
GO    TO    64  TIRF2360 

55      NTRA    =    2  TIRF23  70 

CALL    DAUXR(NTRA)  TIRF2380 

DO    58    1=1,4  TIRF2390 

RPSKI)    =   RPSKI)    +    DRPSKI)*DTR  TIRF2400 

C  TIRF2410 

C   COMPUTE  CHANGE  IN  BRAKE  TEMPERATURE  AND  ADD  TO  PREVIOUS  VALUE  FOR     TIRF2420 

C   BRAKE  TEMPERATURE  TIRF2430 

C  NOTE,  TQB(I)*RPSKI)  IS  NECESSARILY  NEGATIVE, THE  SIGNS  HAVTIRF2440 

C  BEEN  SET  OPPOSITE.  SEE  SUBROUTINE  ADJTQB .CALLED  BY  DAUXR.   TIRF2450 

C  TIRF2460 

JFR    =    1  TIRF2470 

IF(I.GT.2)    JFR    =   2  TIRF2480 

UG36    =    0.0  TIRF2490 

ABSUG    =    ABS(UG(I))  TIRF2500 

IF(ABSUG.GT.0.0)    UG36   =    ABSUG** { 0.36)  TIRF2510 

DELTAE    =(-(TOB(I)*RPSI (I ))/777.8      -GN ( 14, JFR ) *UG36    *  TIRF2520 

I                              (    TAU(I)    -    TAUA))    *    DTR  TIRF2530 
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TAU(I)  =    TAU(I)  +    (DELTAE/(GN{ 15, JFR)*GN( 16,JFR)))  TIRF2540 

58  CONTINUE  TIRFi:550 
IDTCNT    =    IDTCNT    -    1  TiRF2560 

C  IF(ISTOP)    64,59,64  TIRF2570 

59  DO  70  1=1,4  TIRF2580 
SFCDTR(l)  =  SFCDTR(I)  ♦  FC ( I  )  ^DTR  TIRF2590 
SFSDTRCI}  =  SFSDTR(I)  +  FS ( I  I  ♦DTR  TIRF2600 
SFRCPR(I)  =  SFRCPR(I)  ♦  FRCP(I)  ♦  DTR  T1RF2610 
SSLIP(I)  =  SSLIP(I)  ♦  SLIP(I)  *  DTR  TIRF2620 
SRHOS(I)    =    SRHOSd)     +    RHOS(I)    *    DTR  TIRF2630 

C  '^PSSM    AND    FCSLSM    FOR    PRINT    ONLY.  TIRF2640 

RPSSM(I)    =    RPSSM(I)    -    (TOe(I)    ♦    RPSKD)     ♦    DTR  TIRF2650 

IFiSLPFACd)  .EQ.0.0)    GO    TO    70  TIRF2660 

XTfcM    =    ABS(  FC(I)*HI  (I)/(12.0*SLPFAC(I)  )  )  TIRF267(J 

FCSLSM(l)    =    FCSLSM(I)     +    (SLiP(I)    *    X7EM)    *    DTR  T1RF2660 

70    CONTINUE  1IRF2690 

IF(IDICNI)     62,62,55  TIRF2700 

C  TIRF2710 

62    DO    75    1    =    1,4  TIRF2720 

FCAV       (I)    =    SFCDTR(I)    /    DTSTEP  TIRF2730 

FC(I)    =    FCAV       (1)  T1RF2740 

RHOSAV(I)    =    SRHOS(I)/DTSTEP  TIRF2750 

FSAV       (I)    =    SFSDTRCI  )    /    DTSTEP  TIRF2760 

FS(1)    =    FSAV       (1)  TIRF2770 

FRCPAV(I)    =    SFRCPR(I)    /    DTSTEP  T1RF2780 

FRCPdJ    =    FRCPAV(I)  TIRF2790 

C  SLIPAV    NOT    YET    USED.  TIRF2800 

SLIPAV(I)    =    SSLIP(l)     /    DTSTLP  TIRF2810 

FSXUd)       =    FSdJ    ♦    FSXFACd)  T1RF2820 

FSYUd)       =    FSd)    »    FSYFACd)  TIRF2630 

FSZUd)       =    FSd)    *    FSZFAC(I)  TIRF2e40 

FRXUd)       =-FRCPd)    ♦    FRXFAC(T)  TIRF2850 

FRYUd)       =-FRCP(I)    *    FRYFACd)  T1RF2B60 

FRZUd)       =-FRCP(I)    »    FRZFACd)  TIRF2e70 

FCXUd)       =    FC(I)    ♦    FCXFACd)  TIRF2880 

FCYUd)       =    FCd)    ♦    FCYFAC(l)  TIRF2690 

FCZUd)       =    FCd)    *    FCZFAC(I)  TIRF2900 

FXUd)     =    FRXU(I)     +    FCXU(I)    +FSXU(I)  TIRF2910 

SFXU  =    SFXU    +    FXUd)  TIRF2920 

FYUd)     =    FRYUd)    +    FCYUd)    +FSYU(I)  TIRF2930 

SFYU  =    SFYU    ♦    FYUd)  T1RF2940 

FZUd)     =    FRZUd)     ♦    FCZUd)    ♦FSZU(I)  T1RF2950 

SFZU         =    SFZU    +    FZUd)  TIRF2960 

75    CONTINUE  TIRF2970 

C  TIRF29b0 

64    RETURN  TIRF2990 

C  ISTOP.NE.O    CAUSES    PRINTING    OF    OUTPUT    UP    TO    CURRENT    RUNGE-KUTTA         TIRF3000 

C  INTERVAL,    MESSAGE,    AND    TERMINATION    OF    THIS    RUN    AT    END    OF    THIS       TIRF3010 

C  INTERVAL    IN    THE    MAIN    PROGRAM.  TIRF3020 

C  TIRF30  30 

C  TIRF30  40 
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C      63    IF    (ISTOP)    64,65t64  TIRF3050 

C                                     AT    64    TEMPORARY    ERROR    STOP.  TIRF3060 

C       64    CALL    0UTPUT(2)  TIRF3070 

C               CALL    PL0TTP(3)  TIRF3080 

C               CALL    ABDUMP  TIRF3090 

C               SUBR    ABDUMP    CAUSES    'ABNORMAL    END*  AND    DUMP    ON    OUR    OPERATING    SYSTEMTI RF31 00 

C      65    RETURN                          .  TIRF3110 

END  TIRF3120 
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SUBROUTINE    TMCNST  TMCNOOIO 

HV0SM-VD2    VERSION  TMCN0020 

REVISED    OCTOBER    1973         CALSPAN    CORPORATICM  TMCN0030 

COMMON/ INPT/PHlOt THE TAO,PSIOtPO,QOtRO,XCOP,Y COP tZCOP,UOtVO,WO,  TMCNOOhO 

1  A,b,DEL10,DEL20,DEL30,PHlR0,DEL10D,DEL20D,DEL30D,  TMCN0050 

2  PHIROD,TF,TR,ZF,ZR|RhO,AKRS,XMUR ,  TMCN0C60 

3  XMS,XMUF ,XlX,XIY,XIZtXIXZtCF,AKF,XLAMF,0MEGF,CFP,EPSF,TMCN0070 

4  RF,CR,AKR,XLAMR,0MEGRtCRPtEPSRtRR»TStTHMAX,DTCOMP»T0,     TMCNOOtiO 

5  Tl,DTCMPl,DTPRNTtMODEt EBAR,EM,AAA,HMAX,HMIN,BET,G,  TMCN0090 

6  HED(36) ,DADE ( 3) ,XIR ,XltYl,Zl,X2»YZ,Z2»PHlC (50),DELB,        TMCNOIOO 

7  D£LE,DDEL,NDtL,PSIF(50) ,TOF ( 50 ) , TOR ( 50 ) , Tb , Tt, TINCR »       TMCNOllO 

8  NZTAb,NZ5,XBDRY(4,5) ,PSBDRY(^,5) , YbORY { 2 ,5 ) ,NBX ( 5 ) ,  TMCN0120 

9  NBY(5 ),NTBL1 »NTBL2»N1BL3,ZGP( 21,21t5)  TMCN0130 
COMMON/ I NPT/XB ( 5 ) , XE {5 ) , XINCR ( 5 ) tNX (5 ) , YB ( 5) , YE ( 5 ) « YINCR ( 5 ) , NY ( 5 ) , TMCNGl AG 

1  XXZGP5(21) ,YYZGP5(21) ,AMUG{ 5) ,PS&DRQ(A»5 ) ,UVWM IN tPORMI N    TMCN0150 

COMMON    /INTG/NfcQtT,D1,VAR(50) tDERC 50)  TMCNGltO 

EQUIVALENCE     (U,VAk(l  ))  ,( V,VAR(2)  ),  (W,VAR(3)) , (P,VAR(4)  ), (Q,VAR(5) )TMCN0170 

1  , (R,VAR(6))  ,(DtLl,VAR(7)  ), {DEL1D,VAR(&)  ),(0£L2,VAR(9)  ),TMCN0i80 

2  (DEL2D,VAR{10)),(DEL3,VAR(11)  )  ,(DtL3D,VAR(  12)) t  TMCNOIVO 

3  (PH1R,VAR{ 13) ) t(PHIRD,VAR{ 14) ) ,(THETTP,VAR (15) ) ,  TMCN0200 

4  (PHITP,VAP(16)) , {PSITP,VAR(17)  ), (XCP,VAR(18) ),  TKCNG210 

5  (YCP»VAk(19)  )  ,(ZCP,VAR(20) ) ,( PSIFI,VAR(21) ),  TMCN0220 

6  (PSIFIDtVAR( 22) )  TMCN023G 
EQUIVALENCE     (DUtDER(  1)  ),  (DV,DER(2)  )  ,  (  DW  ,  DER  (  3  )  ) ,  (DP'tDER(  4  )  )  ,  TMCNO^^O 

1  (Dw»DER(  5)  ),  (tjR»DER(6)  )  ,(DDEL1,DER(7))  ♦(DDEL1D»DER(8))TMCN0250 

2  , (DDEL2,DER(9) ), (DDFL2D,UER( 10) ), (DDEL3,UER{11) ) ,  TMCN0260 

3  (DDEL3D,DER(  12))  t  (L»PHIR,DbR(  13)),  (DPH1RD,DER(14)),  TMCN0270 

4  (DTHTTP,DER( 15) ), (DPHITP,DER(  16) )  ,(DPSITP,DER{17) )  ,  TMCN02eO 

5  (DXCP,DER( 18 ) ), (DYCP,DER{ 19) ) ,(DZCP,DER(20) ) ,  TMCN0290 

6  (DPSIF1,DER( 21) ) »{DDPSFI,DER(22) )  TMCNG30G 
EQUIVALENCE     ( VAR (9 ) » PHIF  )  ,  ( VAR ( 1 0)  , PHI FD )  » (DER ( 9  )  , DPHI F ) ,                          TMCNG3iO 

1  (DER(IO) tDPHIFD)  TMCNG320 

EQUIVALENCE     (VAR( 13) ,DEL4),(VAR{ 14) ,DEL4D ) ,(DER( 13),DDEL4) ,  TMCN03  30 

1  (DER(14) ,DDEL4D)  TMCN0340 

COMMON     /COMP/SUMM,TH£TN,PHlNtPSIN,PI,RAD,GAMl , GAM2 , GAM  3 , GAM^, GAM5 , TMCN 03 50 

1  GAM6,GAM7,GAMb,GAM9,THETT,PHIT ,PSIT,ZR0tTR02»  TMCN03tO 

2  TF[j2,TIZ,P.HG2,RH0MUR,  AMUF,BHUR»ZPR,TM4,RHMR2,  AG2APB,    TMCNC3  70 

3  B02APB,RFTF,TS02,RRTS,BRCMUR  »XMUFr)2,AXMF02,XMTF04,  TMCN03B0 

4  XIZR,RTR,RHMR2I,XIXP,XIZP,XIXZP,XIYZP,D1PD2,D1MD2,  TMCN039G 

5  ZRD3,ZRD3R, ZFD3R t ZFD12 ,T I Z2 , TG61 ,DD1P2,DD1M2 » RPR , PHRPTMCN04  00 

6  ,TANTP,SPHTP,CPHTP,SECTP,SFXS,SFYS,SFZS»SNPStSNTSt  TMCN0410 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYU,SFXU,SFYUF,  TMCN0420 

8  SFYUR,SFZU,GLSTH,SINTH»C0SPS»S1NPS,C0SPH,SINPH,ANG1 ,    TMCNC430 

9  ANG2,CPHI,SPH1,CPSI,SPSI,P1,P7,P3,P4,P5,P6,TX,TY,TZ       IMCNCm^O 
COMMON    /C0MP/TRH,DISTX,DISTY,DISTD,UISTS,l)21,ZETA4,ZETA4D,ZETA3,       TMCN 0^.50 

1  ZETA3D,SFZl,SNPUfSNTU,HCGhl,HCGH2,HC&H3,HC&H4,TERMl,    TMCNG460 

2  TERM2,SNPSUtSNPR»HCbHl,HCEH2,HCBH3,HCBH4,HCAHl,HCAH2,TMCN04  70 

3  HCAH3,HCAH4,UQ,WP,UR,QR,VP,PR,P2,Q2,R2,VR,WQ,PU,PHIR2TMCN04  80 

4  ,PHIRD2,RPHRD,GCTH,GSTH,GCTSP,GCTCP,XXX,YYY,IX,IY,XX1,7MCN04  90 
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5                                    XX2,YYl,YY2,THGl,THG2,PHGl,PHG2tZZl,ZZ2,LLL  TMCN0500 

DIMENSION   HCAH(4),HCBH(4),HCGH(4)  TMCN0310 

EQUIVALENCE     (HCAH(l) ,HCAH1 ) , { HCfaH( I) ,HCbHl ) , (HCGH( 1 ) ,HCGH1 )  TMCN05  20 

C                 COMMON/EINDEX/    FOR    EULER    ANGLE    INDEX ING, MAIN ,CNSTNT,DAUX, TMCNST  TMCN0530 

COMMON/EINDEX/    TWOPI ,PI02 ,PI04, XINDN, XINDL ,THETTL, PHITL,PSITL t  TMCN0540 

1  COSTHN,SINTHNfCOSPSN,SINPSN,COSPHN,SINPHN,CTHETP,  TMCN0550 

2  STHETP,CPSTP,SPSTP,BNMTX(3,3) ,  CNMTX( 3, 3) t ENDEIN  TMCN0560 
COMMON    /C0MP4/FIDAR(2) ,FIDIW{2) fFIDWR2(2) ,SPHIC1 (4 ) ,CPHICI< 4 ) ,  TMCN05  70 

1  TIHI(4) tARBRI{4)t     PSITEM( 4 ) , SLPFAC (4 ) ,DTSTEP,0TTEST,TMCN05 80 

2  DTINT,TW0PIR,FRTEST(4) tXMUI ( 4) ,FRC PMU( 4) ,HRTERM ,SLI P (4) ,  TMCN05  90 

3  SLIPT(4),RH0S(4),EPSS(4),TERMP<4),TERMB{4),TERM(4) t    TMCN0600 

4  EPSSFC,FSXFAC(4)f FSYFAC{4),FSZFAC(4)  ,FRXFAC(4),  TMCN0610 

5  FRYFAC(4),FRZFAC(4),FCXFAC(4),FCYFAC(4),FCZFAC(4I,       TMCN0620 

6  SFCDTR(4),SFSDTR(4),SFRCPR(4),SSLIP{4),FCAV{4),  TMCN0630 

7  FSAV(4),FRCPAV(4) ,SLIPAV(4) ,RPSSM(4),FCSLSM(4),  TMCN0640 

8  ARTQ6(4),TQFAC(4) ,ARFAC1(2) t ARFAC2 ( 2 » ,RPSFA{ 2) ,RPSFB (2 ) , TMCN0650 

9  RPSFC(2},RPSFD{2)tHRPSFA(4) ,HRPSFB ( 4) .HRPSFC (4 ) , STEPD  TMCN06  60 
COMMON  /COMPit/  XBRAK(16} ,IUVS(4),IUVB(4),IRPStIDTCNT,ISTEP,IST0P  TMCN0670 
LOGICAL  lUVStlUVBtlRPS  TMCN0680 
COMMON/ INPT5/    IBTYP(2) t AKl, AK2f PONE ,PTWO, PZER0(2) ,GN( 16,2) , ZETAB ,    TMCN0690 

1  C0NE,CTW0,CTHREE,TAUA,TAU0<4),TLF(51),TTAU(51),  TMCN0700 

2  TRPME( 12),TW0T(12),TCT(12),TT{ 101) ,TPC( 101 ) ,TTR( 101 )TMCN07 10 

3  ,TTS(101)fBTLF,ETLF,DTLF,NTLF,BRPM,ERPM,NRPM,  TMCN0720 

4  BTT,£TT,DTT,NTT1,NTT2,NTT3,NTTS,XINPT5(9)  TMCN0730 
COMMON    /INSUS/    XIF,RH0F, TSF,PHIFO, PHIFOD, DEL40,DEL40D, ISUS ,  TMCN0740 

1  AKDSTAKDSl»AKDS2,AKDS3,PHIRC(50),DTHF(50),DTHR{50),TMCN07i>0 

2  NCAMF,NCAMR,NDTHF,NDTHR  TMCN0760 
COMMON    /SUSCMP/    XMUR02 ,BXMR02 ,XMTR04, ZF0,TSF02 ,RH0F2,RHFMUF,  TMCN0770 

1  RHF2MF,RF2MFI,RTF,RRTR,D3PD4,D3MD4,D43,DD3P4,  TMCN07e0 

2  DD3M4,ZFD1RF,ZRD34,RFPF,RPF2M,WFMF,PHFP,PHIF2,  TMCN0790 

3  PHIFD2fRPHFD,ZFDl,ZFD2,ZRD4,TPF,SL0PE3,SL0PE4,  TMCN0800 

4  PHI3DfPHI4DfDTHFl,DTHF2,DTHR3tDTHR4,DTD01,  TMCN08 10 

5  DTDD2,DTDD3,0TD04tFJF(4),SNPF  TMCN0820 
DIMENSION  ANAME(3)  TMCNOBSO 
DATA  ANAME(1)/4HPSIT/,ANAME(2)/4HTHET/,ANAME(3)/4HPHIT/  TMCN0840 

C  ♦    *    *    *   FOR    TEMPORARY    ERROR    STOP,    USE    THE    VARIABLE    ASTOP    AS    SH0WTMCN0850 

C  ASTOP    IS    SOME    LARGE    NUMBER    TO    BE    COMPARED    TO    THE    ANGLES    IN    RADIANSTMCN0860 

DATA    ASTOP/3000,/  TMCN0870 

IF(PHITP,GE. ASTOP    .OR.    THETTP.GE .ASTOP )    GO    TO    60  TMCN0880 

C  ♦*♦♦»♦♦♦♦  TM  0^08  90 

C  THETTL,PHITL,PSITL    ARE    VALUES    OF    THETT,PHIT,PSIT    FROM    PREVI0UTMCN0900 

C  TIME    INTERVAL,    USED   TO    TEST    NEW    ANGLES  IN    SUBROUTINE   TMCTMCN0910 

C  XINDL    IS   PREVIOUS    VALUE    OF    XINDN.    XINDL    INITIALLY    ZERO    GETS    BNMTXTMCN09  20 

C  XINDN.Nt.0.0    FOR    THETAO    OR    PHIO    .NE.O.O,    OR    AFTER    INDEXING    TMCN0930 

C  THAT    IS       THETN    OR    PHIN    NOW    .NE.    0,0  TMCN0940 

C  USED    IN    MAIN    PROGRAM    AND    IN    SUBROUTINES    CNSTNT, TMCNST  TMCN0950 

UQ    =    U*Q  TMCN0960 

WP    s    W*P  TMCN0970 

UR    =    U*R  TMCN0980 

QR    =    0*R  TMCN0990 

VP    =    V*P  TMCNIOOO 
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DATE   01/14/76 

PR  =  P*R 
P2  =  P*P 

Q2  =  Q*C 
R2  =  R*R 
VR  =  V*R 

WO  =  w*o 

PQ  =  P*Q 

ZFDl  =  ZF+DELl 

ZR03  =  ZR+DEL3 

IF(ISUS.NE.l)  GO  TQ 

D3PD4    =    DEL3+DEL4 

D3MD4    =    DEL3-DeL4 

D43    =    -D3MD4 

DD3P4    -    DEL3D+DfcL4D 

DD3M4    =    DEL3D-DEL4D 

2RD34    =    ZR+0.5*D3PD4 

2RD4    =    2R+0EL4 


TIME   1725 


UPDATE  RECORD 


100 


200 


iOO 


60    TO    £00 
100    IF(ISUS.NE.2)    GO    TO 
PHIF2    =    PHIF*PHIF 
PHIFD2    =    PHIFO*PHIFD 
2FD1RF    =    2FD1+RH0F 
KPF2M    =    RHF2MF»PHIF2 
RFPF    =    RHOF*PHIF 

WFMF    =    XMUF«(DtLlD-RFPF«PHIFD) 

PHFP    =    PHIF-PHITP 

RPriFD    =    R*PHIFD 

TPF    =    0,i)*TF«PHIF 

GO    TO    300 
-200    IF(ISUS.tQ,2)    GO    TO 

ZFD2    =    ZF+DEL2 

D1PD2    =    DEL1+DEL2 

D1MD2    =    DEL1-DEL2 
DD1P2    =    DEL1D*DEL2D 
DD1M2    =    DEL1D~DEL2D 
D21    =   -D1MD2 
2FD12    =    ZF  +  0,5=^D1PD2 
300       IF(ISUS.EQ.l)    GO    TO 
PHIR2    =    PHIR*PHIR 
PHIRL)2    =    PHIRD*PHIRD 
ZRD3R    =    ZRD3+RH0 
ZFD3R    =    ZF+DEL3+RH0 
RPR    =    RHO*PHIR 
TIZ2    =    RFMR2*PHIR2 
TG61    =    XMUR*(DEL3D-RPR*PHIRD) 
PHRP    =    PHIR-PHITP 
TPR    =    0.5*TR*PHIR 
RPHRb    =    R*PH1RD 
400    CONTINUE 

2    SPHTP    =    SIN{PHITP) 
CPHTP    =    COS(PHITP> 


400 


TMCNIOIO 

TMCN1020 

TMCN10  30 

TMCN1040 

TMCN10  50 

TMCN1060 

TMCN10  70 

TMCNlOtJO 

TMCN10  90 

TMCNllCO 

TMCNlilO 

TMCN1120 

TMCN1130 

TMCN1140 

TMCM150 

TMCN1160 

TMCN1170 

TMCN1160 

TMCN1190 

1MCM2  00 

TMCNlilO 

TMCN12  20 

TMCN12  30 

TMCN1240 

TMCN12  50 

TMCN1^60 

TM  CN  12  70 

TMCN1280 

TMCM2  90 

TMCN13  00 

TMCN13  10 

TMCN13  20 

TMCN1330 

1MCN13  40 

TMCN13  50 

TMCN13  60 

TMCN13  70 

TMCN13e0 

TMCN13  90 

TMCN1400 

TMCN1410 

TMCN14  20 

TMCN1430 

TMCM440 

TMCN14  50 

TMCN14  60 

TMCM470 

TMCN14fcO 

TMCN14  90 

TMCN15  00 

TMCN1510 
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DATE   01/14/76 


TIME   1725 


UPDATE  RECORD 


TANTP    =    TAN(THETTP) 

TMCN1520 

CTHETP    =  COS{THETTP> 

TMCN15  30 

SECTP    =    1.0/CTHETP 

TMCN1540 

IF(XINDN)            7,    5,    7 

TMCN15  50 

5    THETT       =   THETTP 

TMCN1560 

PHIT          =   PHITP 

TMCN15  70 

PSIl          -    PSITP    ♦    PSIN 

TMCNi5  80 

SINPS    -    SIN(PSIT) 

TMCN1S)90 

COSPS    =    COS(PSIT) 

TMCN16  00 

GO    TO    70 

TMCNlblO 

7    IF(XINDN    -    XINDLl       *>tll»9 

TMCN16  20 

C                            COMPUTE    BNMTX       ONCE    AFTER 

EACH    INDEXING    ON    THETMX 

TMCN1630 

9    XINDL    =    XINDN 

TMCN1640 

C                             IF    THETAO    OR    PHIO    .NE.O, 

0 

COMPUTE    BNMTX       ONCE    AT    T=T0 

TMCNl6i>0 

COSTHN    =^   CGS(THETN) 

TMCN1660 

SINTHN    =    SIN(THETN) 

TMCN16  70 

COSPHN    =    COS(PHIN) 

TMCNlbeO 

SINPHN    =    SIN(PHIN) 

TMCN16  90 

COSPSN    =    COS(PSIN) 

TMCNlfOO 

SINPSN    =   SIN(PSIN» 

TMCN17  10 

BNMTX     (1,1)=    COSTHN    ♦COSPSN 

TMCN17  20 

BNMTX     (Ztl)     -    COSTHN*SINPSN 

TMCN17  30 

BNMTX    (3,1)     =    -SINTHN 

TMCNi7  40 

BNMTX    (1,2)     =    -COSPHN*SINPSN 

+ 

SINPHN*SINTHN«COSPSN 

TMCN17  50 

BNMTX     (2,2)     =      COSPHN»COSPSN 

■♦■ 

SINPhW*S IN THN* SINPSN 

TMCN1760 

BNMTX    (3,2)     =      COSTHN*SINPHN 

TMCN17  70 

BNMTX    (1,3)     =      SINPHN*SINPSN 

+ 

COSPHN*SINTHN*COSPSN 

TMCN17b0 

BNMTX    (2,3)     =    -COSPSN»SINPHN 

+ 

C0SPHN*SINTHN*S1NPSN 

TMCN17  90 

BNMTX     (3,3)     =      COSTHN*COSPHN 

TMCN18  00 

11    STHETP    =   SIN(THETTP) 

TMCNieiO 

SPSTP       =   SIN(PSITP) 

TMCNie20 

CPSTP      =   CQS(PSITP) 

TMCN18  30 

CNMTX    (1,1)    =   CTHETP*CPSTP 

TMCN1840 

CNMTX     (2,1)     =    CTHETP«SPSTP 

TMCN18  5)0 

CNMTX    (3,1)    =    -STHETP 

TMCN18  60 

TMPl          =         SPHTP    *    STHETP 

TMCN18  70 

TMP2         =         CPHTP    ♦    STHETP 

TMCN18  80 

CNMTX    (1,2)    =      -CPHTP*SPSTP 

+ 

TMP1*CPSTP 

TMCN1890 

CNMTX    (2,2)    =         CPHTP*CPSTP 

♦ 

TMP1*SPSTP 

TMCN1900 

CNMTX    (3,2)     =         CTHETP*SPHTP 

TMCN1910 

CNMTX    (1,3)    =      SPHTP*SPSTP 

+ 

TMP2*CPSTP 

TMCN1920 

CNMTX    (2,3)    =   -CPSTP*SPHTP 

+ 

TMP2*SPSTP 

TMCN19  3G 

CNMTX    (3,3)    =      CTHETP*CPHTP 

TMCN19  40 

C                         COMPLTTE    CNMTX    EACH    R-K    STEP    IF    XINDN. NE. 0.0 

TMCN1950 

C               ITRY,    INDICATOR    TO    ALLOW    ONE 

ADDITIONAL    REVOLUTION    FOR    TRIAL 

ANGLETMCN1960 

ITRY    =    0 

TMCN1970 

C                         IAN6   =    1      FOR   PSIT,    =2   FOR 

THETT,       =3    FOR    PHIT       DETERMINATION    TMCN1980 

lANG    =    1 

TMCN19  90 

ANGL    =    PSITL 

TMCN20  0C 

TMP3    =       BNMTX(2,1)*CNMTX(1,11 

1    ♦    BNMTX(2,2)*CNMTX(2,1)       ♦ 

TMCN2010 

X                      BNMTX(2,3)*CNMTX(3,1) 

1 

TMCN2020 
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DATE   ( 

[)l/14/76 

TIME 

1725 

TMP4  = 

BNMTX( 1,1)*CNMTX( 1. 

•  1) 

4 

< 

BNMTX( 1,3) 

*CNMTX(3 

il) 

NOTE,  TANA  AND  ANGA: 

=ATAN(TANA)  NOT 

1F(TMP4) 

18,14,16 

14 

IF(TMP3) 

15,16,17 

15 

ANGA  =  - 
GO  TO  21 

PI02 

16 

ISTOP  =  * 
GO  TO  64 

!^ 

17 

la 

20 
21 

22 


25 


27 


29 
30 

31 

32 


33 
34 


36 
1005 

40 
41 


ANGA  =    P102 

GO  TO  21 

TANA  =  TMP3/TMP4 


ANGA  = 
NREV  = 
FNREV  = 
ANGTRY 
DIFFA 
DIFFL  = 
IF( ABS( 
DIFFA  = 
DIFFL  = 
IF(ABS( 
DIFFA  = 
DIFFL  = 
IF( A6S( 
IFUNGT 
TWOPIA 
GO  TO  3 
TWOPIA 
DIFFA 
DIFFL  = 
IF(ABS( 
IF  (ITR 
FNREV  = 
ITRY  = 

ONCE 
GO  TO  2 
ISTOP  = 
WRITE(c. 
FORMAT ( 
X,12H,  A 
GO  TO  6 


ATAN(IANA) 

ANGL/TWOPI       ♦    SIG 
FLOAT(NREV)       ♦    T 

=      ANGA    ♦    FNREV 

=      ANGTRY 

DIFFA    -    ANGL 

DIFFL)    -    PI04) 
ANGTRY    +    PI 
DIFFA    -    ANGL 

DIFFL)    -    PI04) 
ANGTRY    -    PI 
DIFFA    -    ANGL 

DIFFL)    -    P1G4) 

RY)     30,30,31 

=   TWOPI 


N(0«1     ,ANG 
WOPI 


L) 


40 


^0 


40 


,40,25 
.40,27 

t40,29 


DI 
DIF 
Y) 

FN 
1 

ON 
2 

5 
,10 

7H 
S  A 
4 


TWGPI 
ANGTRY    ♦    TWOPI, 
FFA    -    ANGL 
FL)    -    PIO^ )    40 
36,34,36 
REV    +    SI&N(TWOI 


A 

,40,33 
PI, ANGL) 
LY,  INCREASE  FNREV  BY  ON 


05)  T,ANAME(  lA 
0  TIME=,F8.3,5 
RCTAN=,  E13.5, 


NG) ,ANGL, 
X,A4,I1H 
i6H,   COR 


ITRY  =  0 

IF(lANG-2)  41,50,59 
lANG  =  2 
PSn  =  DIFFA 
SINPS   =  SIN(PSIT) 
COS  PS  =  COS(PSIT) 


UPDATE  RECORD 

•»    BNMTX(1,2)*CNMTX(2,1)    +  TMCN2030 

TMCN20  40 
USED    WHEN    DENOMINATOR    TANA    ZFR0TMCN2050 

TMCN2060 
TMCNI0  70 
TMCN20  60 
TMCN20  90 
TMCN2100 
TMCN2110 
TMCN212G 
TMCN2130 
TMCN2i40 
TMCN2150 
TMCN2160 
TMCN2170 
TMCN2180 
TMCN219C 
TMCN22  00 
TMCN2210 
TMCN2220 
TMCN22  30 
TMCN  22  40 
TMCN22  50 
TMCN  22  60 
TMCN  22  70 
TMCN 22  80 
TMCN  22  90 
TMCN  23  00 
TMCN2310 
TMCN 2320 
TM  CN  23  30 
TMCN2340 
TMCN  23  50 
TMCN  23  60 
TMCN  23  70 
TMCN 23  80 
TMCN  23  90 
TMCN 2400 
TMCN  24  10 
TMCN  24  20 
TMCN2430 
NEW=,E13.5TMCN2440 
ST0P5)  TMCN2450 

TMCN  2460 
TMCN  24  70 
TMCN  24  to 
TMCN  24  90 
TMCN 25 00 
TMCN  25  10 
TMCN  25  20 
TMCN  25  30 


E    REVOLUTION    AND    TRY    AGAIN 


DIFFA    , ANGA, ANGTRY 
PREVI0US=,1PE13.5,6H, 
R.FOR    REV=,tl3.5    ,8H 
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DATE       01/14/76 


TIME       1725 


UPDATE    RECORD 


AN6L    =    THETTL 

TMP5       =  -(BNHTX(3,1)*CNMTX(1,1) 

X  BNMTX(3,3)*CNMTX(3,1) 

IF(     ABS(SINPS)     "   0.7)    A2f42.43 
^2    TMPP4    =    TMP4/C0SPS 
IF     (TMPP4)     49,44,49 

43  TMPP4    =    TMP3/SINPS 
IF    (TMPP4)     49,44,49 

44  IF(    TMP5))    45,46,47 

45  ANGA  =  -  PI02 
GO  TO  21 

46  ISTOP  =  6 
GO  TO  64 

47  ANGA    -    PI02 
GO    TO    21 

49  TANA    =    TMP5/TMPP4 
GO    TO    20 

50  lANG    =    3 
THETT 
ANGL 
TMP6 


BNMTX(3,2I*CNMTX{2,1)    ♦ 


=   DIFFA 

PHITL 

BNMTX(3,1)*CNMTX(1,2) 

BNMTX(3,3)»CNHTX(3,2) 

TMP7       =      BNMTX(3,1)*CNMTX(1,3) 

BNMTX(3,3)*CNMTX{3,3) 


♦      BNMTX(3,2)*CNMTX<2,2) 
+       BNMTX(3,2)*CNMTX(2,3) 


IF(TMP7)       55,51,55 

51 

IF(TMP6)       52,53,54 

52 

ANGA    =    -  PI02 
GO    TO    21 

53 

ISTOP    =    7 
GO    TO    64 

54 

ANGA    =         PI02 
GO    TO    21 

55 

TANA    =       TMP6/TMP7 
GO    TO    20 

59 

PHIT    =    DIFFA 

c 

AT    ST    70   HAVE    NEW    PSI T, THETT , PHIT 

70 

CONTINUE 

c 

IFITHETT.GE.ASTOP    .OR.    PSIT       .GE.ASTOP) 
IF(PHIT    .GE.ASTOP)    GO    TO    60 

c 

70 

COSTH    =    COS( THETT) 

c 

COSTH    =    COS(THETT) 
SINTH    =    SINITHETT) 

c 

COSPS,SINPS    COMPUTED    ABOVE    EITHER    AFT 
COSPH    =    COS(PHIT) 
SINPH    =    SIN(PHIT) 

3 

CONTINUE 
GCTH    =   G*COSTH 
GSTH    '    G*SINTH 
SFXS    =    0.0 

GO    TO    60 


ST    5   OR    AFTER    ST   41 


TMCN25  40 
TMCN2550 
TMCN25  60 
TMCN2570 
TMCN25  80 
TMCN25  90 
TMCN2600 
TMCN26  10 
TMCN2620 
TMCN26  30 
TMCN2640 
TMCN26  50 
TMCN26  60 
TMCN26  70 
TMCNi6B0 
TMCN26  90 
TMCN2700 
TMCN2710 
TMCN27  20 
THCN27  30 
TMCN2740 
TMCN2750 
TMCN2760 
TMCN2770 
TMCN2780 
TMCN2790 
TMCN2800 
TMCN2810 
TMCN2820 
TMCN28  30 
TMCN2B40 
TMCN2850 
TMCN28  60 
TMCN26  70 
TMCN2680 
TMCN2890 
TMCN29  00 
TMCN2910 
TMCN2920 
TMCN29  30 
THCN2940 
TMCN29  50 
TMCN29  60 
TMCN29  70 
TMCN2980 
TMCN2990 
TMCN3000 
THCN3010 
TMCN30  20 
TMCN30  30 
TMCN3040 
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ABSU    =    ABS{U)  TMCN30  50 

IF(ABSU.GE.1,0)SFXS=-CC'NE*U*ABSU-CTW0*U-CTHREE*SIGN(1.,U)  TMCN30  60 

RETURN  TMCN3070 

r                           4c«4c>t'«4'4c>^«  TMCN3080 

C                  ISTOP.NE.O    CAUSES    PRINTING    OF    OUTPUT  UP    TO    CURRENT    RUNGE-KUTTA         TMCN3090 

C                       INTtRVALf    MESSAGE,    AND    TERMINATION  OF    THIS    RUN    AT    END    OF    THIS       TMCN3100 

C                       INTERVAL     IN    THE    MAIN    PROGRAM.  TMCN3110 

C  TMCN3120 

C  TMCN3130 

60    ISTOP    =    30  TMCN3i40 

C                                     AT    64   TEMPORARY    ERROR    STOP.  TMCN3150 

64    CALL    0UTPUT(2)  TMCN3160 

CALL    PL0TTP(3)  TMCN3170 

WRITE(6,1006)    1,     ISTOP  TMCN31bO 

1006    F0RMAT{7H0    T  IME=  ,F  8.3,  f)X  ♦    7H    ISTOP  =  ,  13 ,2  IH    IN    SUBROUTINE    TMCNST)       IMCN3190 

C               CALL    A P' DUMP  TMCN32  0C 

C               SUBR    AbUUMP    CAUSES    'ABNORMAL    END*    AND  DUMP    ON    OUR    OPERATING    SYSTEMTMCN32 10 

STOP  TMCN3220 

C  IF    STOP    IS    CODED    AS    HERE,     DOES    NOT    RETURN    TO    MAIN    PROGRAM.       TMCN3230 

Q                       4.««)(c4(4:>«<««  TMCN32  40 

C       64    WRITE(6,  1006)    T,     ISTOP  TMCN3250 

C               RETURN  TMCN3260 

END  TMCN32  70 
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DATE      01/14/76 


TIME       1725 


UPDATE    RECORD 


CALSPAN    CORPORATION 


SUBROUTINE    TREADCNCARD ,NCRD^t NT fNDIM, ARRAY, N ERR ) 
C  HV0SM-VD2    VERSION 

C  REVISED    OCTOBER    1975 

DIMENSION    ARRAY(2),DUM(9) 

IF(NT.&T.ND1M)    GO    TO    90 

K   =    0 

LSEQ    =    0 

DOlO    I=1,NCRDS 

READ (2. 2000)     (DUM{N) ,N=1 , 9) ,NSEO ,LCARD 
2000    F0RMAT(9F8,0,2I4) 

IF(NCARD,NE.LCARD)    GO    TO    90 

IF(NSEQ.LE.LSEQ)    GO    TO   90 

LS60   =    NSEQ 

DO    20    N=l,9 

K    =    K  +  1 

ARRAY(K)    =    OUM(N) 

IF(K.GE.NT)    GO    TO    91 
20    CONTINUE 
10    CONTINUE 
91    RETURN 
90    NERR    =    1 

RETURN 

END 


TR  EA  00  10 
TREA0020 
TREA00  30 
TR  EA  00  40 
TRtA00  50 
TREA00  60 
TREA00  70 
TREA00  8C 
TREA00  90 
TREAOIOO 
TREAOllO 
TREA0120 
TREA0130 
TREA0140 
TREA0150 
TREA016C 
TR  EA  01  70 
TREA0180 
TREA0190 
TR  EA  02  00 
TREA0210 
TREA02  20 
TR  EA  02  30 
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SUBROUTINE    T2READ(NCARD,NDl,NI,NJ,AKRAY,NfcRR)  T2Rt0010 

C  HV0SM-RD2    VERSION  T2RE0U20 

C  HV0SM-VD2    VERSION  T2RE0030 

C  REVISED    OCTOBER    1975         CALSPAN    CORPORATION  T2RE0040 

DIMENSION    ARRAY(ND1,NJ),DUM(9)  T2RE0050 

LSEQ    =    0  T2RE0060 

NICRDS    =    (NI-l)/9    ♦    1  T2RE0070 

DO    30    J  =  1,NJ  T2RE0080 

K    =    0  T2RE0OS0 

DO    20    1=1, NICRDS  T2RE0100 

RfcAD(2,2000)     (DUM(N),N=1,9),NSE0,LCARD  T2RE0110 

2000    F0RMAT(9F8. 0,214)  T2RE0i20 

IF(NLARD.Nt.LCARD)    GO    TO    90  T2Rt0130 

IF(NSEvj.LE.LSEU)    GO    TO    90  T2RE0i40 

LSEO    =    NSEC  T2Rt0150 

DO    10    N=l,9  12RE0160 

K    =    K  +  1  T2REG17& 

ARRAY(K,J)     =    DUM(N)  T2RtOieC 

lF(K.Gt.Nl)    GO    TO    30  T2Rt0190 

10    CONTINUE  12RF0i00 

20    CONTINUE  T2REC2  10 

30    CONTINUE  T2RE0220 

RETURN  T2RE0230 

90    NtRR    =    1  T2RE0240 

RETURN  I2RE021>0 

END  T2RE02  60 
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SUBROUTINE    UMOMNT(IS)  UMOMOO 10 

C  HV0SM-VD2   VERSION  UM0M0020 

C  REVISED    OCTOBER    1973         CALSPAN    CORPORATION  UM0M0030 

C       SUBROUTINE    TO    COMPUTE    THE    MOMENTS    ACTING    ON    THE    SPRUNG    AND  UM0M004G 

C      UNSPRUNG    MASSES    RESULTING    FROM    TIRE    FORCES    AND    SUSPENSIN    FORCES,  UM0M0050 

C  UMOMOO  60 

COMMON/INPT/PHIOf THETAO,PSlO,PO,Q0»R0,XCOPtYCOP»ZC0PtUO,VO,W0,  UM0M0070 

1  A,B,DEL10,DEL20,DEL30,PHIRO,DEL10D,DEL20D,DEL30D,  UMOMOObO 

2  PHIR0D,TP,TR,ZF,ZR,RHO,AKRSfXMUR,  UM0M0090 

3  XMS,XMUF,XIX,XIY,XIZ,XIXZ,CF,AKF,XLAMF,0MEGF,CFP,EPSF,UM0M0100 

4  RF,CR»AKR,XLAMR,OMEGR,CRPfEPSR,RR,lStTHMAX,DTCOMP,TOt    UMOMOllO 

5  Tl,DTCMPl,DTPRNTtMODEtEBAR,EM,AAA,HMAX,HMIN,BET,G»  UM0M0120 

6  HED(36),DADE {3)tXIR,Xl,Yl,Zl,X2,Y2,Z2,PHIC{50),DELB,       UM0M0130 

7  DELE,DD6L,NDEL,PSIF(50),TQF(50) tTOR ( 50 ) ,TB ,TE» TINCR,       UM0M0140 

8  NZTAB,NZ5,XBDRY(4,5) tPSBDRY(4,5),YBDRY(2t5),NBX(5) ,  UMGM0150 

9  NBY(5)tNTBLl tNTBL2,NTBL3,ZGP(21,21,5)  UM0M0160 
C0MM0N/INPT/XB<5),XE(5),XINCR{5) ,NX(5),YB(5) , YE ( 5 ) , YINCR ( 5 ) ,NY ( 5 ) , UMGM0170 

1  XXZGP5(21),YYZGP5(21) , AMUG( 5 ) tPSBDR0(4,5 ) .UVWMIN ,PQRMI N    UM0M0I80 

COMMON    /DIMV/XlPtX2P,X3PtX4P,YlP,Y2PtY3P,Y4P,ZlP,Z2PtZ3P,Z4P,PHIl,UM0M0190 

1  PHI2,PHI3,PHI4,PSI1,PSI2,PSI3,PSI4,CAYW(4) ,CBYW{4),       UM0M0200 

2  C6YW(4) ,ZP6I (4),THGI(4),PHGI (4) t CPG(4 ) tSPGt 4) ,CTG (4l ,UM0M02 10 

3  STG(4),CAGZ(4)tCB6Z(4),CGGZ(4),Dl(4),D2(4),D3(4),  UM0M0220 

4  XLM1{4) ,XLM2(4),XLM3(4),AMTX(3f3) tCMTX(3,4),XGPP(4),    UMOM0230 

5  YGPP(4) ,ZGPP(4),DMATX(10,11) ,DELTA{4) ,CAR(4),CBR(4) ,    UMOM0240 

6  CGR{4),FR(4) ,HI{4) ,FC<4),TI(4),AX(4),BX(4),CX(4),  UM0M0250 

7  CTXG(4),UG(4),STXG(4) fAY(4),BY{4) ,CY(4),CPYG(4),  UM0M0260 

8  SPYG(4) fVG(4),PSIIP(4),PHICI(4)f CAC(4),CBC(4),CGC(4),UM0M02  70 

9  FCXU(4),FCYU(4),FCZU{4),FS{4) ,CAXW(4) ,CBXW(4) ,CGXH( 4)UM0M02  80 
COMMON    /DIMV/AS(4)',BS(4)  ,CS  (4)  ,CAS  (  4)  ,CBS  (4)  ,CGS(4)  ,BETP{4)  ,  UM0M02  90 

1  BeTBR(4),FSXU(4) ,FSYU(4),FSZU(4) ,FRXU(4),FRYU(4),  UM0M0300 

2  FRZU(4) ,FXU(4),FYU<4I ,FZU(4),SI(4),FlFI(2),FlRI(2)f       UMOM03 10 

3  F2FI(2)  ,F2RI(2)fCAH(4),CBH(4l,CGH(4)  UM0M0320 
DIMENSION  XP(4),YP(4),ZP(4),PHII(4) tPSII(4)  UM0M0330 
EQUIVALENCE     (XP(1),X1P),  ( YP ( 1 ) , YIP ) ,1  ZP( 1 ) , ZIP) , (PHII ( 1 ) ,PHI1 ) ,         UM0M0340 

1  (PSII(l) ,PSI1)  UM0M0350 

COMMON    /C0MP/SUMM,THETN,PHIN,PSIN,PI,RAD,GAMl,6AM2,GAM3fGAM4,GAM5,UM0M03  60 

1  GAM6,GAM7,GAM8,GAM9,THETT,PHIT,PSIT,ZR0,TR02t  UMOM0370 

2  TF02tTIZ,RH02,RH0MUR,AMUF,BMURf ZPR»TM4,RHMR2tA02APB,    UMOM038O 

3  B02APB,RFTF,TS02,RRTSfBR0MUR,XMUF02»AXMF02,XMTF04,  UM0M0390 

4  XIZRtRTR,RHMR2ItXIXP,XlZPfXIXZP,XIYZPtDlPD2tDlMD2,  UMGM0400 

5  ZRD3,ZRD3R,ZFD3RfZFD12.TIZ2,TG61,DDlP2tDDlM2.RPR»PHRPUM0MO4  10 

6  fTANTPfSPHTP,CPHTP,SECTPfSFXS,SFYS,SFZStSNPSfSN7Sf  UM0M0420 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBXfCGX,SFYU,SFXUfSFYUF,  UM0M0430 
a  SFYURfSFZUtCOSTH.SINTHfCOSPSfSINPSfCOSPH.SINPH.ANGl,  UMOM0440 
9                                  ANG2tCPHl,SPHI,CPSItSPSItPl.P7,P3,P4,P5,P6,TX,TY,TZ      UMOM0450 

COMMON    /C0MP/TRH,DISTX,DISTY,DISTD,DISTS,D21tZETA4,ZETA4D,ZETA3,       UM0M0460 

1  ZETA3D,SFZl,SNPU,SNTU»HCGHl,HCGH2tHCGH3iHCGH4fTERMl,    UMOM0470 

2  TERM2tSNPSUtSNPRtHCBHl,HCBH2tHCBH3tHCBH4fHCAHl,HCAH2tUM0M04  80 

3  HCAH3fHCAH4,UQ,WP,UR,QR,VPjPR,P2fQ2fR2,VR,WQf PQtPHIR2UM0M0490 
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4  tPHIRD2,RPHRD,GCTH,GSTH,GCTSP,GCTCP,XXX,YYY,IX,IY,XXl,UM0M0500 

b                                     XX2,YYl,YY2,ThGl,THG2fPHGl,PHG2,ZZI»ZZ2»LLL  UMOMCSIO 

DIMbNSiON    riCAH(^),HCBH(4) ,HCbH(4)  UMOM05L0 

tOUlVALLNCE     (HCAH( 1) ,HCAH1 ) , ( HCBH( 1 ) tHCBH 1 ) , ( HCGH ( l),HCGhl )  UM0M05  30 

CGMMQN/C0MP5/    TAU(4) t TQD ( 2 ) ,TQB ( A ) ,PP(2) » TLAML ( 2 ) , PC,R WDRI V , JDENDtUM0M0540 

1  NBTYP,  ARFAC3(2)  ,RPSFE  ( 2  )  ,  RHuSMX  (3  )  ,  S  LIPMX  (  3  )  tSLIPP,    UMQM05>i>0 

2  RH0MAX,RH0SAV(4)tSRHGS(4) ,UGW(4),AbSUGW(4) ,V£CS,  UMOM0560 

3  DELTAE ,PI015R,COMEN5,TQE,RPME  UM0M0570 
COMMON    /INSUS/    XIF ,RHCF , TSF,PHIFO, PHI FOD, DEL40, DEL40Dt ISUS ,  UMOM0580 

1  AKDS,  AKUSl,AKDS2»AKDS3tPHIRC(bO),DTHF(50)  tDTHR(50),UMCM05>90 

2  NCAMF,NCAMKtNDTHF tNDTHR  UM0M0600 
COMMON    /SUSCMP/    XMUR02 tBXMR02 ,XMTR04» ZFO, 1SF02 ,RHLF2,RHFMUF ,  UMOM0610 

1  RHF2MF,RF2MF1  ,RTF,RRTR,D5PD4,Ij3MD4,Da3,DD3P4,  UM0M0620 

2  DD3M4,ZFD1RF,ZRD34,RFPF,RPF2M,WFMF  ,PHFP,PHlF2f  UMGM0630 

3  PhlFG2,RPHFU,ZFDl,ZFD2,ZRD4,TPF,SL0PE3,SL0PE4,  UM0M0640 

4  PHl3D,PHl4DfDTHFl,DTHF2tDlHR3,DTHR4,UTUDl,  UM0M06&0 

5  DTDG2tDT[)D3,DTDD4,FJF(4)»SNPF  UMCM06tyO 
C  UMGMC6  70 

ISl    =     IS+l  UM0M068G 

GO    TO     (  10,20,30)  ,  ISl  UMGMG6':/G 

C  UMOM0700 

C       MOMENTS    FOR    SUSPENSION    OPTICN    0    ,     INDi PENDENT     FRONT,     SOLID    AXLE    REAR    UM0M0710 

C  UM0M07  20 

10    Tt'^Ml    =    ZFDl-mCGHl  UMCV0730 

TERM2    =    ZFD2+HC6H2  UM0M074C 

C  UM0M07t.0 

C       ROLL    MOMENT  UMCV>10y60 

C  UM0M07  70 

SNPU    =    -FYU(  l)*TfcRMl    -    FYU(^  ) '^^T  ERM2    -     (  FYU  (3  ) +FYU(  4)  )*ZRD3  UM0MG7b0 

1  +SI{2)*(TF02+DTHF2)    -    SI ( 1) * (TFG2+DTHF 1 )  UM0M079G 

2  +(SI (4)-Sl(2) )*TS02  +  12.0*RWDRIV«TQD(2)  UMOMObGG 
C  UM0M08  10 
C  PITCH  MOMENT  UMOMOb^iO 
C  UM0M0«3C 

SNTU    =        (SI(1)+SI (2) )*A    -    (SI(3)+SI(4) )*B  UMOMOrt^O 

1  ♦FXU( 1)*TERM1    +    FXU(2)*TERM2  UM0MG650 

2  +FXU(3)«{ZRD3R+TPR+HCGH3)  ♦  FXU ( 4 ) * ( ZRG3R-TPR+HCGh4 )  UMCM0&6C 
C  UM0M0fa70 
C  YAW  MOMENT  UM0«0o60 
C  UMOMObVO 

SNPSU    =    FYU( 1)*(A+HCAH1)     ♦    FYU ( 2 )♦ ( A+HCAH2 )  UMOMOVOO 

1  -FYU(3)*(B-HCAH3)     -    FYU ( 4 )♦ ( E-HCAH4 )  UM0M0910 

2  -FXU( 1)»(TF02+DTHF1+HCBH1 )    +    FXU ( 2 )♦( TFG2+DTHF2-HCBH2 )  UM0M0920 

3  -FXU(3)»(TR02-RPR+HCBH3)  +  FXU ( 4 )* ( TRC2+RPR-HCBH4 )  UM0MC930 
C  UMOM0940 
C  REAR  AXLE  ROLL  MOMENT  UM0M0930 
C  UMOMOV60 

SNPR    =       FZU(3)»(TR02-RPR*HCbH3)     -    FZU(4 )♦ ( TR02+RPR-HCBH4 )  UMGM0970 

1  -FYU(3)*(RH0*TPR  +  HCGH3)       -    FYU  {  4  )  *  {  RH0-TPR+HCGH4)  UM0MG9t.0 

2  ♦(S1(3)-SI(4) )«TS02    -    12 .0*R WCRI V*TQD ( 2)  UMGM0990 
RETURN  UMOMiOOO 
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C 
C 
C 


MOMENTS    FOR    SUSPENSION    OPTIOf^  1,     INDEPENDENT    FRONT    AND   REAR 


C 
C 
C 


c 
c 
c 


20  TERMl 

TERM2 
TERM3 
TERM4 

ROLL    MOMENT 


ZFDl+HCGHl 
ZFD2+HCGH2 
ZRD3+HCGH3 
ZRD4+HCGH4 


SNPU    =       SI(2)*(TF02+DTHF2)    -    SI( 1) * (TF02+DTHF 1 ) 

1  ♦SI(4)*(TR02+DTHR4)    -    SI( 3) ♦ (TR02+DTHR3 ) 

2  -FYU( 1)*TERM1    -    FYU(2)*TERM2    -    FYU(3)*TeRM3 

PITCH  MOMENT 


-   FYU(4)*TERM4 


SNTU    =    (SI(1)+SI(2))*A   -    (SI(3)+SI(4) )*B 
1  +FXU(l)*TERMl    +    FXU(2)*TERM2    +    FXU(3)*TERM3    .♦    FXU(4)*TERM4 

YAW    MOMENT 

SNPSU    =    FYU(1)*(A+HCAH1)     +    FYU( 2  )* ( A+HCAH2 ) 

1  -FYU(3)*(B-HCAH3)     -    FYU( 4)* ( 8-HCAH4) 

2  -FXU( 1)*(TF02+DTHF1+HCBH1)    ♦    FXU ( 2 )*( TF02+DTHF2-HCBH2 ) 

3  -FXU(3>*(TR02+DTHR3-»-HCBH3)    ♦    FXU(4  )*(  TR02+DTHR4-HCBH4) 
RETURN 

MOMENTS    FOR    SUSPENSION    OPTION    2,    SOLID    FRONT    AND    REAR    AXLES 

FWDRIV    =    1,0-RWDRIV 

ROLL    MOMENT 

30    SNPU    =    -<FYU(l)+FYU(2) )*ZFD1    -    ( FYU (3 ) +FYU(4) )*ZRD3 

1  ♦(SI(2)-SI{in*TSF02       ♦    (SI(4)-SI(3))*TS02 

2  ♦12.0»RWDRIV*TQD(2)    ♦    12.0*FWDRI V*TQD ( 1) 

PITCH    MOMENT 


SNTU    = 


(SI(l)+Sn2))*A    -    (SI(3>+SI(4))*B 
+FXU(1)*(ZFD1RF+TPF+HCGH11    ♦    FXU( 2)*( ZFD1RF-TPF+HCGH2 ) 
♦FXU(3)*(ZRD3R+TPR*HCGH3)       ♦   FXU(4)*( ZRD3R-TPR+HCGH4} 


YAW   MOMENT 

SNPSU  =    FYU(1)*(A+HCAH1)     ♦   FYU( 2 )* ( A+HCAH2 ) 

1  -FYU(3)*(B-HCAH3)     -   FYU(4 )* ( B-HCAH4) 

2  -FXU(1)*(TF02-RFPF+HCBH1)    +    FXU (2 ) *(TF02+RFPF-HCBH2 ) 

3  -FXU(3)*(TR02-RPR+HCBH3)       ♦    FXU (4)*(TR02+RPR-HCBH4) 

FRONT    AXLE    ROLL   MOMENT 


UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 
UMOM 


1010 
10  20 
10  30 
1040 
1050 
1060 
10  70 
1080 
10  90 
ilOO 
1110 
1120 
1130 
1140 
1150 
1160 
1170 
1180 
1190 
12  00 
UIO 
1220 
1230 
12  40 
12  50 
1260 
12  70 
12  80 

12  90 
1300 

13  10 
13  20 
1330 
13  40 
13  50 
1360 
13  70 
13  80 

13  90 

14  00 
1410 
14  20 
1430 
14  40 
14  50 
14  60 
14  70 

14  80 
1490 
1500 

15  10 
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C  '                                                                                                                                                              UM0M15  20 

SNPF    =  FZU( 1)*(TF02-RFPF+HCBH1 )    -    FZU( 2  J *(TFC2  +  RFPF-HCBH2 )                    UM0M1530 

1  -FYU(1)*(RH0F+TPF+HCGH1)       -    FYU( 2 ) » (RH0F-TPF+HCGH2)  UM0M1540 

2  +(SI( 1)-SI<2) )*TSF02  -  12 .0*FWDRI V*TQD ( 1 )  UM0M1550 
C  UM0M15  60 
C  REAR  AXLE  ROLL  MOMENT  UMOM1570 
C  UMDM1560 

SNPR    =  FZU(3)*(TRC2-RPR+HCBH3)    -    FZU ( 4 )* ( TR02+RPR-HCBH4 )                          UM0M1590 

1  -FYU(3)*(RH0+TPR+HCGH3)       -    FYU ( 4) * { RHO-TPR* HCGH4)  UMOMlbOO 

2  ■»-(SI(3)-SI(4)  )*TS02  -  12 .0*RWDRIV*TQU  ( 2 )  UM0M1610 
RETURN  UMOM1620 
END  UM0M1630 
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SUBROUTINE    VGGRNT  VGOROOIO 

C  HV0SM-VD2    VERSION  VG0R0O20 

C  REVISED    OCTOBER    1975      CALSPAN    CORPORATION  VG0R0030 

C0MMON/INPr/PHI0,THElA0,PSI0tPO,Q0,RO,XC0P,YCOP,ZC0P,UO,V0,WO»  VG0R00  40 

1  A,B,DEL10,DEL20,DEL30,PHlR0,DEL10Df0EL20D,DEL30D,  VGDR0050 

2  PHIROD»TFfTR»ZF,ZRtRHOf AKRStXMUR,  VG0R0060 

3  XMS,XMUF,XIX tXlY,XIZ,XlXZ,CF,AKF,XLAMF»0ME&FfCFP»EPSF,VGOR0O70 

4  RF,CR,AKR,XLAMR,OMEGR,CRP,£PSR,RR»TS»THMAX,DTCOMP,TO,    VGOROOfaO 

5  TltDTCMPl,DTPRNT,MODE,EBAR,EM,AAA,HMAX,HMIN,BET,G,  VG0R0090 

6  HED(36),DADE (3) ,XIR,X1,Y1,Z1,X2,Y2,Z2,PHIC (50),DELB,       VGOROIOO 

7  DELE,DDEL,NDEL,PSIF(50),TQF(50),TQR(50),TB,TE,TINCR,       V60R0110 

8  NZTAb,NZ5,XBDRY(4,5) tPSbDRY(4,5) ,YBDRY(2t5),NBX(5),  VG0R0120 

9  NBY(5),NTBL1 ,NTBL2,NTBL3»ZGP(21,21,5)  VG0R0130 
C0MM0N/INPT/XB(5) ,XE { 5 ) , XINCRJ 5 ) ,NX (5 ) , YB (5) , YE( 5) , YINCR ( 5 ) t NY < 5 ) »VG0R 01 AO 

I  XXZGP5(21) ,YYZGP5(2n , AMUG( 5 ) ,PSBDRO< A ,5 ) tUVWMIN ♦PORMI N    VGC^OlbO 

COMMON/ INPTl/YC IP, YC2P,ZC2P,DELTCtPHICl,PHIC2fAMUC»XIPS,  VG(^0160 

1  CPSP,OMGPS,AKPS,EPSPS,XPS,RWHJB,RWHJE,DRWHJ,INDCRB,       VGOR0170 

2  PSIFIOtPSlFDO  VGOR0180 
DIMENSION  YCIP(2)  VGQR0190 
EQUIVALENCE  (YC  IP  ( 1 )  ,YC1P  )  VG0R0200 
COMMON  /lNTG/NEQ,T,DTf VAR(&0) fDER( 50)  VG0R0210 
EQUIVALENCE     (U,VAR(1))  ,(V,VAR(2) ), (W,VAR(3)), (P,VAR(4) ) , (Q , VAR { 5 ) ) VG0R02 20 

1  , (R, VAR (6  1), (DELI, VAR (7) ),( DEL  ID, VAR (8) ) , (DEL2, VAR( 9) ),VGOR0230 

2  (DEL2D,VAR(10)),(DEL3,VAR(11) ),(DEL3D,VAR( 12)),  VG0R0240 

3  (PHIR,VAR( 13) ),(PHIRD,VAR(14) ),(THETTP,VAR{15) ) ,  VG0R0250 

4  (PHITP,VAR(16)),(PSITP,VAR(17)),(XCP,VAR(18)),  VG0R0260 

5  IYCP,VAR(19) ) ,(ZCP,VAR(20) ),(PSIFI,VAR(21) ),  VGCR0270 

6  (PSIFID,VAR(22) )  V&0R0280 
EQUIVALENCE    (DU,DER( I) ), (DV,DER(2) ) , ( DW,D ER( 3 ) ) , (DP,DER (4) J ,  VG0R02  90 

1  (DQ,DER(5) ), (DR,DER(6) ) , ( DD£L1,DER ( 7) ) , (DDEL ID ,DER( 8 ) )VG0R0300 

2  , (DDEL2,0ER<9) ),(DDEL2D,DER(10)),(DDEL3,DER(11) ),  VG0R0310 

3  (DDEL3D,DER( 12)), (DPHIR,DER(13)),(DPHIR0,DER(14) ),  VG0R0320 

4  (DTHTTP,DER(15)),(DPHITP,DER( 16)),(DPSITP,DER(17)),         VG0R0330 

5  (0XCP,DER{18)  ),(DYCP,DER(19)) ,(DZCP,DER(20)),  VG0R0340 

6  (DPSIFI,DER(21)), (0DPSFI,DER(22) )  VG0R0350 
EQUIVALENCE     (VAR( 9) , PHIF ) , ( VAR( 10) ,PHIFD) , (DER( 9) , DPHIF) t                         VG0R0360 

1  (DER(IO) ,DPHIFD)  VG0R0370 

EQUIVALENCE    (VAR ( 13 ) ,DEL4) , ( VAR( 14 ) ,DEL4D ) , ( DER( 13 ) ,DDEL4) ,  VGOR03  80 

1  (DER(14),DDEL40)  VGOR0390 

COMMON    /OIMV/X1P,X2P,X3P,X4P,YIP,Y2P,Y3P,Y4P,Z1P,Z2P,Z3P,Z4P,PHI1,VGOR0400 

1  PHI2,PHI3,PHI4,PSI1,PSI2,PSI3,PSI4,CAYW(4),CBYW(4),       VG0R0410 

2  CGYW(4) ,ZPG1(4),THGI(4),PHGI(4),CPG(4),SPG(4),CTG(4),VG0R04  20 

3  STG(4),CAGZ(4),CBGZ(4),CGGZ(4),D1(4),D2(4),D3(4),  VG0R0430 

4  XLM1(4),XLM2(4),XLM3(4),AMTX(3,3),CMTX(3,4),XGPP(4),    VG0R0440 

5  YGPP(4)  ,Z&PP(4),DMATX(10,11),DELTA(4)  ,CAR(4),CBR(4),    VGOR04I)0 

6  CGR(4),FR(4),HI(4),FC(4),TI(4),AX(4),BX(4),CX(4),  VG0R0460 

7  CTXG(4) ,U6(4),STXG(4) ,AY(4),BY(4),CY(4),CPYG(4),  VG0R0470 

8  SPYG(4>,VG(4),PSIIP(4),PHICI(4),CAC(4),CBC(4),CGC(4),VG0R04  80 

9  FCXU(4),FCYU(4),FCZU(4),FS(4),CAXW(4),CBXW(4),CGXW(4)VG0R04  90 
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TIME       1725 


UPDATE    RECORD 


COMMON    /DIMV/AS(A) ,B S(4) ,CS (4) ,CAS (4) ,CBS (4) ,CGS(4 

1  BETBR(4),FSXU(4),FSYU(4) ,FSZU(4) ,FRXU 

2  FRZUU)  ,FXU(4),FYU(4)  ,  FZU(4  )  ,  SI  t  4)  ,F1 

3  F2FI (2) ,F2RI(2),CAH(4) tCBH (4) ,CGH(4) 
DIMENSION    XP(4) ,YP(4),ZP (4),PHII(4) ,PSII{4I 
EQUIVALENCE     (XP ( 1 )  ,X IP  ) ,  ( YP ( 1 ) , YIP ) , ( ZP ( 1 ) ,Z1P) , (P 

1  (PSII(l) fPSIl) 

COMMON    /COMP/SUMM,THETNt PHIN,PSINtPIf RADtGAMl,GAM2 


),BETP(4), 
(4),FRYU{4) , 
FI(2),F1RI(2), 


VGOR05  00 
VGOROSIO 
VG0RG520 
V6CR05)30 
VG  OR  05  40 
VG  OR  05  50 


GAM6,GAM7,GAM8,GAM9,THETT,PHIT,PSIT,ZR 
TF02,TIZ,RH02,RH0MURtAMUF,BMURfZPRtTM 
BQ2APB,RFTF,TS02tRRTS,BR0MURtXMUF02tA 
XlZRtRTR,RHMR2I,XIXP,XIZP,XlXZP,XIYZP 
ZRD3tZRD3R»ZFD3RtZFD12,TIZ2,T&6l,DDlP 
,TANTP,SPHlPtCPHTP,SECTPtSFXS,SFYStSFZ 
SNPSS,lPRtCAY,CBY,CGY,CAX,CBX,CGX»SFY 
SFYUR,SFZU,COSTH,SINTH,COSPS,SINPS,CO 
ANG2tCPHI,SPHI,CPSItSPSItPltP7,P3,P4, 
COMMON    /C0MP/TRH,DISTX,DISTY,DISTD,DISTS,D21,Zt:TAH 

1  ZETA3D,SFZ1  ,  SNPU  ,i)NTU  ,HCGH1  ,HCGH2  tHCG 

2  TERM2fSNPSUfSNPR,HCbrilfHCdH2tHCBH3,HC 

3  HCAH3,HCAH4,UQ,WP,URfQR»VP,PR,P2,02,R 

4  ,PHIRD2,RPHRD,GCTH,GSTH»GCTSP,GCTCP,XX 

5  XX2,YYl,YY2,THGl,THGZ,PHGl,PHb2,ZZltZ 
DIMENSION    HCAH(4),hCBH(4) ,HCGH(4) 

EQUIVALENCE     (HCAH(l) tbCA HI) , ( HCbH( 1) ,HCBH 1 ) , ( HCGH( 
COMMON    /COMPN/    FRSP( 4 ) ,F RCP (4 ) , ICBHIT, JCB HIT , 

1  DPSINT,TANPCl,TANPC2,PHIClRtPHlC2R, 

2  PH12D,LCB1(4),LCB2(4),IHIT,AJMTX(3, 

3  SFRX(4) tSFRY(4),SFRZ(4),TlPSl,T2PSI 
LOGICAL    LCBl,LCb2 

COMMON /ADTNL/   U 1  ,U2,U3 tU4 ,V1 , V2 t V3 ♦ V4 , Wl t W2, W3 t W4t 

1  XIYPtSPHIC tCPHIC,APTCHltAPTCH2,APTCH 

2  SL0PE1,SL0PE2,XTRA(300) 
DIMENSION    UI (4>,VI(4),WI (4) 

EQUIVALENCE     (UK  I)  ,U  1 )  ,  (  VI  ( 1 )  ,V  1  ) ,  (  WI  (  1 )  ,  Wl ) 
DIMENSION    APITCH(4) 
EQUIVALENCE     ( APITCH( 1) ,A P7CH1 ) 

COMMON    /TIRIN/    AKT <4 ) ,SI GT (4) ,XLAMT (4 ) , AO (4 ) » Al (4) 
A4{4) ,0MEGT(4) , AMU( 4) , RW (4 ) ,FJP(35, 
A12(4),0MT2A2(4»,0MT2MI(4) ,A23(4»,I 
XIF,RHOF,TSF,PHlF0,PHIF0D,DbL40,DEL 
AKDSf AKDSl»AKDS2t AKCS3f PHIRC(50) tDT 
NCAMF ,NCAMR,NDTHF  »NDTHR 
XMUR02,BXMR02»XMTR04,ZFO,TSF02,RHO 
RHF2MF,RF2MFI,RTF,RRTR,D3PD4,D3MD4 
DD3M4,ZFDlRF,ZRD34tRFPF,RPF2MfWFMF 
PHIFD2,RPHFD,ZFD1,ZFD2,ZRD4,TPF,SL 
PHI3D,PHI4D,DTHFI,DTHF2»DTHR3.DTHR 
DTDD2,DTDD3tDTDD4tFJF(4),SNPF 
YC3P,YC4P,YC5P,YC6P,YCLP, 
ZC3P,ZC4P,ZC5P,ZC6P,ZCLPt 


HIK  D.PHII), 

VG OR 05  60 
,GAM3,&AM4,GAM5,VG0R05  70 
0,TR02,  VGOR0580 

4,RHMR2f A02APB,  VG0R0590 
XMF02»XMTF04,  VGOR0600 

,DlPD2fDlMD2,  VG0R0610 

2,D01M2tRPR»PHRPVGOR06  20 
S,SNPS,SNTS,  VGGR0650 

U»SFXU,SFYUF,  VGGR064G 

SPH,SINPH,ANG1,  VGQR065C 
P5»P6,TX,TY,TZ  VGORO06O 
tZETA4Df ZETA3,  VG0R067C 
H3,HCGH4,TERM1,  VGOR06tO 
BH4,HCAH1 ,HCAH2»VGOR06  90 
2,VR,WQ,PU,PHIR2VGCR07  00 
X,YYY,1X,IY,XX1,VG0R0710 


Z2,LLL 

1),HCGH1) 

AMUCMP,PHIID, 
3),6MTX(3,3), 
fXMUGI(4) 


3,APTCH4, 


COMMON  /INSUS/ 


COMMON  /SUSCMP/ 


fA2(4),A3(4), 

4),A234(4), 

TIR(4) 

40D,ISUSt 
HF(50),DTHR(50) 

F2,RHFMUF, 

tD43tDD3P4, 

,PHFP,PHIF2, 

0PE3tSL0PE4, 

4,DTDD1, 


COMMON/NEWCRB/ 


VG  OR  07  20 
VG0R073G 
VG  OR  07  40 
VG  OR  07  50 
VG  OR  07  60 
V COR 07 70 
VG0R07a0 
VG OR  0790 
VGOR08  00 
VG0R0810 
VGOR08  20 
VG0R0t>30 
VG0R084O 
VG0R08  50 
VG  OR  08  60 
VG0R08  70 
VG  OR  06  60 
VG  OR  08  90 
VGQR0900 
,VG0R0910 
VG  OR  09  20 
VG0R09  30 
VG  OR  09  40 
VGDR0950 
VG0R0960 
VG  OR  09  70 
VG  OR  09  80 
VG  OR  09  90 
VGORIOOO 


536 


DATE   01/14/76 


TIME   1725 


UPDATE  RECORD 


2 

3 
4 
i> 


31 
32 


30 


COMMON 
DO    17 
XCPHI    = 
XSPHI    = 
XCPSI    = 
XSPSI    = 
TMP4    = 
TMP3    = 
CAYWd) 
CBYW(I) 
CGYW(I) 


PHlC3,PHIC4,PHIC5,PHIC6,NCRBSLf 
TANPC3,TANPC4,TANPC5fTANPC6,TANPCL» 
PHIC3R,PHIC4Rf PHlC5R,PHIC6R,PHICLRt 
YCMP(6) ,ZCMP(6),PHICM(6) 

/RUFNES/    DELG,DGMAX,NfcNa,IRUF 

I=lf4 


AMTX( 1,2)*TMP4 
AMTX(2t2)*TMP4 
AMTX(3,2)*TMP4 


COS{PHII(I )) 

SINCPHIKD) 

COS(PSII(I)  ) 

SIN(PSII(I)) 
XCPHI  ♦  XCPSI 
XSPHI  *  XCPSI 

=-AMTX(l,l)*XSPSI+ 

=-AMTX(2»l)*XSPSI+ 

=-AMTX(3f 1)*XSPSI+ 
IF(INDCRB.LE.O)    GO    TO    3 
LCBKIl    =    RW(I),GT.YC1P-YP<1) 
LCB2(1)    =    RWd  ).LE.YP(I)-YCLP 
IF(ICBHIT,EQ.O)    GO    TO    3 
PHGK  I)     =    0.0 
THGKI)    =    0.0 
ZPGK  I)    =   0.0 
SPGd)     =   0.0 
CPG(I)    =    1.0 
STG(I)    =   0.0 
CTG( I )    =    l.O 

IF( .N0T.LCB2(I))    GO    TO   4 
ZPGKI)    =    ZCLP+(YP(I)-YCLP)*TANPCL 
PHGKI)    =    PHICLR 
SPGd)    =   SIN(PHGI{I)  ) 
CPG(I)    =   COS(PHGId)  » 
GO    TO    30 

INTRP5    LOOKS    UP    THGI  ,    PHGI,     ZPGI, 
IFdRUF.EQ.O)    GO    TO    31 

IFtXPd  J+RWd).LT.O.O.OR.XP(I)-RW(I  ).GT.D&MAX) 
CALL    RUFFRCd,ZGP) 
XMUGICIJ    s    AMU(I) 
GO    TO    33 
CALL     INTRP5(I) 
CPGd)    =   COS(PHGId)  ) 
SPGd)    =   SIN(PHGId)) 
CTG(I)    =  COSCTHGKD) 
STGd)     =   SIN(THGI(I)) 
CAGZ(I)    =  CPG(  I)*STGd) 
CBGZd)    =  -SPGd) 
CGGZ(I)    =   CTGd)*CPGdl 
PI    -    CBYWd)*CGGZd) 
P7    =   CBGZd)*CGYWd) 
P3    =    CGYW(I)*CAGZ(I) 
P4    s   CGGZ(I»*CAYW(I) 
?5    *   CAYW(I)*CBGZd) 


AMTX(1,3)*TMP3 
AMTX(2,3)»TMP3 
AMT  *(3f3)*TMP3 


AND  XMUGI  FOR  EACH  WHEEL, 


GO    TO   31 


VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 
VGOR 


1010 
10  20 
1030 
10  40 
10  50 
1060 
10  70 
10  80 
1090 
1100 
1110 
1120 
1130 
1140 
1150 
1160 
1170 

ueo 

1190 
12  00 
1210 
1220 
12  30 
1240 
1250 
12  60 
12  70 
12  80 

12  90 

13  00 
1310 
1320 
13  30 
1340 
13  50 
13  60 
13  70 
13  80 

13  90 
1400 
1410 
1420 
1430 
1440 

14  50 
1460 
14  70 
1480 
1490 
1500 
1510 
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33 


17 


90 


P6 

Dl( 

D2( 

D3( 
CAL 


GO 
IF( 

CAL 

XMU 

CAG 

CBG 

CGG 

PI 

P7 

P3 

P4 

P5 

P6 

Dl( 

D2( 

D3( 

CAH 

CBH 

CGH 

HCA 

HCa 

HCG 

COM 

IF( 

VI 

V2 

V3 

V4 

Wl 

W2 

W3 

W4 

GO 

IF( 

VI 

V2 

V3 

V4 

Wl 

W2 


=  CA 
I)  = 
I)  = 
I)  = 
L  GC 
XMU 
IF 
NOT 
FLA 
FLA 
TO  b 
.NOT 
L  CR 
GKI 
Z(  I) 
Z(I) 
Z(I) 
=  Cb 
=  CB 
=  CG 
-  CG 
=  CA 
=  CA 
I)  = 
I)  = 
I)  = 
(I) 
(I) 
(I) 
H(I  ) 
M(I  ) 
H(I  ) 
TINU 


G2(I)*CBYW(I) 

P1-P7 

P3-P4 

P5-P6 
P(I) 
GKI)  1 
ICBHIT. 

SET  IN 
T  TERRA 
T  TERRA 


S    SET    IN    INTRP5 

NE.O    AND    LCBKI)    AND    LCB2(I)    BOTH      FALSEt       XMUGl(I) 

THIS    INTERVAL.       RETAINS    LAST    VALUE,     SHOULD    BE    FOR 
IN.    (RADIAL    SPRING    TIRE    MODF    IN    CREIMP   REQUIRES 
IN    PREVIOUS    TO    CURB    HIT) 


.LC 
BIM 
)    = 


YW{ 
GZ( 
YW( 

G2( 
YW( 
GZ( 

PI 

P3 

P5 

=    A 

=    A 

=    A 


B 1  ( I  )  )  GG    TO    30 
P(I) 

AMUC*AMU( I) 
CPG(I)*STG(I) 
-SPG  (I) 
CTG(I)*CPG(I) 
I)«CGGZ(I) 
I )*CGYW(I) 
I)*CAGZ(I) 
I)*CAYW(I) 
I)*CfaGZ( I) 
I)«CBYW( I) 
-P7 
-P4 
-Pfc 

MTX(1»1)*CAR(I )+AMTX(2,I)*CBR(I ) +AMTX ( 3, 1 ) ♦CGR ( I ) 
MTX( 1,2)*CAR(I )+AMTX(2,2)*CBR(I ) +AMTX( 3t 2 ) *CGR ( I ) 
MTX(  1,3)*CAR(I  )+AMTX(2,3)*CBR(I)+AMTX(3,3)*CGR(I) 
HI  (I )»CAH{I) 
Ml(T)*CbH(I) 
HI (I )*CGH( I) 


rsi 


US. NE.O)    GO    TO    90 
=    V+A*R-ZFD1*P-HCGHI* ( P+PH I 1 D )+DTDDl*DELl D 
=    V+A*R-ZFD2*P-HCGH2*(P+PHI2D)-DTDD2*DEL2D 
=    V-b*R-ZRD3*P-(RHG+TPR+HCGH3 )*(P+PHIRD) 
-    v-B*R-ZF!D3*P-(RHC-TPR-»-HCGH4)*(P+PHIPD) 
=    W-A*Q+(TF0  2+DTHF1 )*P+DEL lU+HCBHl* ( P+PHIID) 
=    W-A*Q-(TFG2-»-DTHF2)*P+D£L2D+HCBH2*(P  +  PHI2D) 
=    W+B*Q+DEL3D-(RPR-TR02-HCBH3)*(P+PHIRD) 
=    W+B*0+DEL3D-(RPP+TR02-HCBH4)*(P+PHIRD) 
TO    95 

ISUS.EQ.2)    GO   TO    91- 

=  V  +  A*R-ZFDl*P-HCGHl*<P4PHIlD)-»-DlDDl*DbLlD 
=  V+A*R-ZFD2*P-HCGH2* ( P+PH I2D )-OTDD?*D tL2D 
=  V-B*R-ZRD3*P-HCGH3« ( P+PH 130 I+DTDD3*DEL3D 
=  V-B*R-ZRD4«P-HCGH4* {P+PHI4D)-DTDD4*DEL4D 
=  W-A*0+(TF02+DTHF1)*P+DEL1D+HCBH1*{P+PHI1D)- 
=    W-A»Q-{ TF02+DTHF2)*P+DEL2D*HCBH2*( P+PHI2D) 


VGCRlt>20 
VG0R15  30 
VGCRli;40 
VG0R15I>0 
VG  CR  15  60 
VG0R15  70 
VGCR1580 
VG  OR  15  90 
VG  OR  16  00 
VG0R1610 
VG0R1620 
VG  OR  16  30 
VG  OR  1640 
VGOR16  50 
VG0R1660 
VG0R1670 
VG  OR  16  60 
VG0Rlt)90 
VGGR17  00 
VG0R1710 
VG0R17  20 
VG0R17  30 
VG  OR  17  40 
VG0R17  50 
VG  OR  1760 
VG  OR  17  70 
VGOR  1780 
VGCR1790 
VGOR  18  00 
VGOR 13 10 
VGOR  18  20 
VGOR  18  30 
VGOR 18  40 
VGOR  18  50 
VGOR 18 60 
VGOR 1870 
VGOR  18  80 
VGOR  18  90 
VGOR  1900 
VG0R1910 
VGOR  19  20 
VG0R1930 
VGOR 1940 
VGOR  19  50 
VGOR  19  60 
VGOR  19  70 
VG0R19B0 
VGOR 19  90 
VGOR  2000 
VGOR  20  10 
VG0R2020 
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W3  =  W  + 

W4  =  W  + 

GO  TO  9 

91  VI  =  V+ 

V2  =  V  + 

V3  =  V- 

V4  =  V- 

Wl  =  W- 

W2  =  W- 

W3  =  W  + 

W4  =  W  + 

95    DO    170 

10  AX (I)  = 
BX(1>  = 
CX(I)  = 
DISTX  = 
CTX6( I) 
CTXGd  ) 
STXG(I) 
UG(I)    = 

11  AY(I)  = 
BY(I)  = 
CY(I)  = 
DISTY    = 

12  CPYG(I) 
CPYG(I) 
SPYGd) 
VG(I)  = 
DISTD  - 

13  CAZW  = 
CBZW  = 
CGZW  = 
PSIIPd 

14  CAC(I) 
CBC(I) 
CGC ( I ) 

15  ASCI)  = 
BS(I)  = 
CS(I)  = 
DISTS  = 
CAS(I) 
CBS (I  ) 
CGS(I) 


B*Q+(TR02 

B*Q-(TR02 

5 

A*R-ZFD1* 

A»R-ZFD1* 

B*R-ZRD3* 

B*R-ZRD3» 

A*Q+DEL1D 

A»Q+DEL1D 

B*Q+DEL3D 

b*Q+DEL3D 


♦DTHR3)*P+DEL3D+ 
♦D1HR4)*P+DEL4D+ 

P-(RHOF+TPF+HCGH 
P-(RHOF-TPF+HCGH 
P-(RH0-»-TPR-i-HCGH3 
P-(RH0-TPR+HCGH4 
-(RFPF~TFC2-HCBH 
-{RFPF+TF02-HCBH 
-(RPR-TR02-HCBH3 
-(RPR+TR02-HCBH4 


HCBH3*(P+PHI3D) 
HCBH4*(P+PHI4D) 

1)*(P+PHIFD) 

2)*(P+PHIFD) 

)*(P+PHIRD) 

)*(P+PHIRD) 

1)*(P+PHIFD) 

2)*(P+PHIFD) 

)*(P+PHIRD) 

)*(P+PH1RD) 


1=1,4 
CBY*CGGZ(I)-CGY« 
CGY*CAGZ{1)-CAY* 
CAY*CBGZ(I)-CBY* 
SQRT(AX(I)**2+BX 
=  (CAX»AX(I)+CBX 
=  SIGN(AMIN1 (ABS 
=  SIGN(SQRT( 1.0- 
UI(I)*CTXG(I )-WI 
CGX*CBGZ(I)-CBX* 
CAX*CGGZ(I )-CGX* 
CBX*CAGZ(1)-CAX* 
SQRT(AY(I)**2+bY 
=  (CAY*AY( I)+CBY 
=  SIGNiAMINKABS 
=  SIGN(SQRT(1.0- 
VI(I)*CPYG(I)-WI 
SQRT(Dl(I)**2-»-D2 

-  AMTX( li2)*XSPHI 

-  AMTX(2,2)*XSPHI 

-  AMTX(3,2)*XSPHI 
)    =    PSII(I)*(CAGZ 
=   DKD/DISTD 
=   D2n)/DISTD 
=   D3(I)/DISTD 

CGCn)*CBGZ(I)-C 
CAC{1)*CGGZ(I)-C 
CBC(I)*CAGZ(I)-C 
SQRT{AS(I)**2+BS 
=   AS(I)/DISTS 
=   BS(I)/DISTS 
=   CS(I)/DISTS 


CBGZ(I) 

CGGZ(I) 

CAGZ(l) 

(I)**2+CX( I)**2} 

♦bX(I)+CGX*CX(I) ) /DISTX 

(CTXGd)), 1.0), CTXG(I)) 

CTXGd)**2),CGX*DISTX-CX(I  )) 

d)*STXG(I) 

CGGZd) 

CAGZ(I) 

CbGZd) 

d)**2+CY(l)**2) 

*BYd)+CGY*CYd)  ) /DISTY 

(CPYG(I)  ),1,0),CPYG( 1)) 

CPYG(I)**2),CGY*DISTY-CY(I )) 

d)»SPYG{I  ) 

d)**2+D3(  I)**2) 

♦  AMTXd,3)*XCPHI 
+    AMTX(2,3)*XCPHI 

♦  AMTX(3,3I*XCPHI 
(l)*CAZW-»CBGZ(I)*CBZW+CGGZd)*CGZW) 


BC(I)*CGGZd) 
GCd)*CAGZ(I) 
ACd)*CBGZd) 
(I)**2+CS( I>**2) 


16    CALL    TIRFRCCI) 

170    CONTINUE 
RETURN 
END 


VG  OR  20  30 
V&0R20  40 
VGGR2050 
VG  OR  20  60 
VG OR  20 70 
VG  OR  20  80 
VGDR2090 
VG0R2100 
VG0R2110 
VG0R2120 
VGDR2130 
VG0R2140 
VG0R2150 
VGOR2160 
VG0R2170 
VG0R2180 
V&0R2190 
VG  OR  22  00 
VG0R2210 
VGOR22  20 
VG0R2230 
VG0R2240 
VG  OR  22  50 
VG  OR  22  60 
VGOR2270 
VGOR  22  80 
VG  OR  22  90 
VGOR 2300 
VGOR  23  10 
VGOR 23 20 
VGOR  23  30 
VGOR  23  40 
VGOR  2350 
VGa^2360 
VGOR  23  70 
VGOR  2380 
VG0R2390 
VGOR 2400 
VGOR 24 10 
VG0R2420 
VGOR 2430 
VGOR  2440 
VGOR 24 50 
VGOR 24 60 
VGOR  2470 
VGOR 2480 
VG0R2490 
VG0R2500 
VGOR 25 10 
VGOR  25 20 
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DATE       01/14/76  TIME       1725  UPDATE    RECORD 


SUBROUTINE    VPOS  VPOSOOIO 

C  HV0SM-VD2    VERSION  VP0S0020 

C  REVISED    OCTOBER    1«)75       CALSPAN    CORPORATION  VP0S0030 

COMM0N/INPT/PHI0,lHETAO,PSIO,PO,GO,RO,XCOP»YCOP,ZC0P»UO<Vp.tWO,  VPOS  00  40 

1  A,B,DEL10,DEL20,DEL30,PHIR0,DELlGD,DEL20D,DE|.30Dt  VPOSOOIO 

2  PHIROD,TF,TR,ZFtZRf RHOf AKRSfXMURt  VP0S0060 

3  XMS,XMUF,XlX,XIY,XlZ,XIXZ,CF,AKF,XLAMF,0KFCF,tfP»EPSF,VP0S00  70 

4  RF,CR,AKR,XLAMR,0MEGP,CRPtEPSR,RRtTSfTHMAX,DT|:ii#1P,T0t    VPOSOOcO 

5  TltDTCMPl,DTPRNT,MODEtEBAR,EM,AAA»HMAX,HMINf bET,&,  VPOS0090 

6  HED(36),DADF(3) ,XIR ♦ XI ,Y1 , Zl , X2 , Y2, Z2, PHIC ( 50) , DELB,       VPOS 01 00 

7  DELE,DDEL,NDtL,PSlF(5O),T0F(50),TQR(50),TB,TE,TlNCR»       VPOSOl  10 

8  NZTAL,NZ5,XBDRY(4,5) .PSbDRY(4,5) tYtDRY(2»5),NPX(5),  VPCS0120 

9  NBY(5),NTbLl,NTBL2,NTBL3tZGP(21,21,5)  VP0S0130 
C0MM0N/INPT/XB(5) tXE(5),XlNCR(5) ,NX(5),YB{5) , YE ( 5) t YINCR (5 ) tNY « 5) t VP0S0140 

1  XXZGPb{21) ♦YYZGP5(21) i AMUG( 5 ) ,PSBDR0(4,5 ) tUVWMlN ,PQRHI N    VPOS 01 50 

COMMON /INPTl/YC IP tYC2P,ZC2P,UELTC» PHI C1.PHIC2,AMUC,XIPS»  VPOS 01 60 

1  CPSP»OMGPS,AKPS,EPSPS,XPS,RWHJB,KWHJE,DRWHJ,INDCRB,       VP0S0170 

2  PSIFIO.PSIFDO  VPOSOlbO 
DIMENSION  YCIP(2)  VP0S0i9C 
tOUIVALENCE  ( YCIP ( 1 )  t YCl P  )  VPOSOZOO 
COMMON  /lN1G/NE0»TtDTTVAR(50) ,DER(50)  VP0S0210 
EQUIVALENCE     (U,VAR(1  ))  ,( V,VaR(2)  ), {W,VAR(3) ), (P,VAR(4) ), ( Q  ,VAR( 5 ) ) VP0S02 20 

1  f (RtVAR(6)) t(DELl,VAR(7) ) t <DEL1D»VAR(8) ) » ( DEL2, VAR(9 ) ), VPOS 02 30 

2  (DEL2D,VAR(10)),{DEL3tVAR(ll) ),(DEL3D,VAR( 12) ),  VPOS0240 

3  (PK1R,VAR(13)  )»(PH1RD,VAR(14) ),(THETTP,VAR(15) ) .  VP0S0250 

4  (PhITP,VAR(16)) ,(PSITP,VAR( 17) ), (XCP,VAR(18) ),  VP0S026O 

5  (YCPfVAR(19)  )  ,(ZCPtVAR(20) )»(PSIF1,VAR(21) ),  VPUS0270 

6  (PS1FID,VAR(22)  )  VP0S02b0 
EQUIVALENCE     (DU,DER(  1)  ) ,  (  DV,  DER  {  2  )  )  ,  (DWtDER  (  3  )  )  t  (DPtDER  (  <»)  )  t                 VPOS 02 90 

1  (DttDER( 5) ), (DR,DER(6)  ) ,  (  DDEL 1 ,DER ( 7) ) , ( DDEL1D,DER (8 ) ) VPOS0300 

2  ,(DDEL2,DEK(9) ),(DDEL2D,DER(10) ), (DDEL3,DER(11)),  VP0S0310 

3  (DDEL3D,DER(  12) ), (DPHIR,DER(13) ), (DPHIRD»DER(14»),  VP0S0320 

4  (DTHTTP,DER(  It))),  (DPHITP,DER(  16)  )  ,  (  DPS  ITP,  DER(  17  )  )  ,  VPOS  0330 

5  (DXCP,DER( 18)  ), (DYCP,DtR( 19) ) ,(DZCP,DER(20)),  VP0S0340 

6  (DPSIFI,DER( 21) ), (DDPSFI,DER(22)  )  VP0S0350 
EQUIVALENCE     (VAR(9)»PHIF ) , ( VAR ( 10) » PHIFD ) , (DER( 9 ) , DPHI F) ,  VPOS 03 60 

1  (DER( 10)  ,DPHIFD)  VPOS03  70 

EQUIVALENCE     (VAR ( 13 ) ,DEL4  ) , ( VAR ( 14 ) ,DEL4D ) , { DER ( 13 ) ,DDfL4>»  VP0S0380 

1  (DtR(  14)  ,DDEL4D)  VP0S0390 

COMMON    /DIM V/X 1 P, X2P » X3P, X4P, Y 1 P, Y2 P, Y 3P, Y4P,Z IP »Z2P,Z3P,Z4P, PHI  1, VPOS 0400 

1  PHI2,PHI3,PHI4,PS11,PSI2,PSI3,PSI4,CAYW(4),CBYW(4),       VP0S0410 

2  CGYW(4) ,ZPGI(4),THGi(4),PHGI(4) ,CP&(4 ) , SPG (4 ) , CTG(4 ) ♦VP0SC420 

3  ST&(^),CAGZ(4),CBGZ(4),CGGZ(4),DI(4),D2(4),D3(4) ,  VP0S0430 

4  XLM1(4) ,XLM2(4) ,XLM3{4),AMTX(3,3),CMTX(3,4) ,X&PP(4),    VP0S0440 

5  YGPP(4) ,Z&PP(4),DMATX(10,11) ,DELTA(4) ,CAR(4),CBR(4),    VPOS0450 

6  CGR(4),FR(4) ,HI(4),FC(4),TI(4),AX(4),BX(4),CX(4),  VPOS0460 

7  CTXG(4) ,UG(4),STXG(4) ,AY{4),bY(4),CY(4),CPYG(4),  VP0S0470 

8  SPYG(4) ,VG(4),PSIIP(4) ,PHICI(4) ,LAC(4) ,CBC (4 ) ,CGC (4 ) , VP0S0480 

9  FCXU(4) ,FCYU(4),FCZU(4),FS(4) ,CAXW<4) ,CBXW(4) ,CGXW(4| VP0S0490 
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DATE   01/14/76 


TIME   1725 


UPDATE  RECORD 


C 

c 
c 


COMMON    /DIMV/AS(4),BS(4)  ,CS (4) ,CAS (4) ,CBS (4 ) , CGS (4  )  ,BETP (4) , 

1  BETBR(4),FSXU(4) ,FSYU{4) ,FSZU(4) ,FRXU ( 4) , FRYU (4 ) , 

2  FRZU(4) fFXU(4)rFYU(4) »FZU(4),SI ( 4) , F1FI(2 ) , FIRI ( 2 ) , 

3  F2FI(2),F2RI{2),CAH(41 tCBH(4) ,CGH(4) 
DIMENSION    XP(4),YP(4),ZP(4),PHII(4),PSII(4) 

EQUIVALENCE     (XP ( 1 )  ,X  IP  )  ,  ( YP ( 1 ) , YIP ) , ( ZP (1 ) ,Z1P)  ,  (PHII ( 1 ) ,PHI1 ) , 
I  (PSIH1),PSI1) 

COMMON    /COMP/SUMM,THETN,PHIN,PSIN,PItRAD,GAMl,GAM2,GAM3fGAM4,GAM5 

1  GAM6,&AM7,GAM8,GAM9,THETT,PHIT,PSIT,ZR0,TR02, 

2  TF02,TIZ,RH02tRH0MUR»AMUF,BMUR,ZPRtTM4,RHMR2,A02APB, 

3  B02AP8,RFTF ,TS02 ,RRTS ,BROMUR tXMUF02 ,AXMF02»XMTF04, 

4  X1ZR»RTR,RHMR2I,XIXP,XIZP»XIXZP,XIYZP,D1PD2,D1MD2, 

5  ZRD3tZRD3R,ZFD3R,ZFD12tTIZ2tTG61,DDlP2,DDlM2,RPR,PHR 

6  tTANTP,SPHTP,CPHTP,SECTPtSFXS,SFYS,SFZStSNPS,SNTSt 

7  SNPSS,TPR,CAY,CBY,CGY,CAX,CBX,CGX,SFYUtSFXU,SFYUF, 

8  SFYUR,SFZUtCOSTH,SINTH,COSPS,SlNPS,COSPH,SINPH,ANGl, 

9  ANG2,CPHI,SPHI,CPSIf$PSI,Pl,P7»P3fP4,P5,P6tTX,TY,TZ 
COMMON    /C0MP/TRH,DISTX,DISTY,DISTD,DISTS,D21,ZETA4,Z£TA4D,ZETA3, 

1  ZETA3D,SFZl,SNPU,SNTU,HCGHl,HCGH2tHCGH3tHCGH4,TERMl, 

2  TERM2,SNPSU,SNPR,HCBHl,HCbH2tHCBH3,HCBH4,HCAHl,HCAH2 

3  HCAH3,HCAH4,UQ,WP,URtQR,VP,PR,P2,Q2,R2,VR,WQ,Pg,PHIR 

4  ,PHIRD2,RPHRD,GCTH,GSTH,GCTSP,6CTCPtXXX,YYY,IX,lY,XXl 

5  XX2,YYl,YY2,THGlfTHG2,PHGl,PHG2,ZZl,ZZ2,LLL 
DIMENSION   HCAH(4),HCBH(4)  ,HCGH(4) 

EQUIVALENCE     (HCAH( 1) ,HCAH1) , ( HCBH( 1 ) ,HCBH1 ) , ( HCGH( 1 ) ,HCGH1 ) 
COMMON    /COMPN/    FRSP ( 4 ) ,F RCP (4 ) , ICBHIT, JCBHIT  , 

1  DPSINT,TANPCltTANPC2,PHIClR,PHlC2R»AMUCMP,PHIlD, 

2  PHI2DtLCBl(4)»LCB2(4),IHIT,AJMTX(3t3)tBMTX(3,3», 

3  SFRX(4)fSFRY(4),SFRZ(4),TlPSI,T2PSItXMUGX(4) 
LOGICAL    LCB1,LCB2 

COMMON/ADTNL/   U1»U2,U3 t U4rVl , V2, V3 , V4i Wl, W2f W3,W4t 

1  XIYP,SPHIC,CPHIC»APTCH1,APTCH2,APTCH3,APTCH4, 

2  SL0PE1,SL0P£2»XTRA(300) 
DIMENSION    UI(4>,VI(4>,WI (4) 

EQUIVALENCE  (UI ( 1 } « U 1 ) t ( VI ( 1 ) tV 1 ) t ( WI ( 1 ) « Wl ) 

DIMENSION  APITCH(4) 

EQUIVALENCE     ( APITCH( I ) ,APTCH1 ) 

COMMON    /INSUS/    XIF ,RHOFf TSF,PHIF0,PHI FODt DEL40,DEL40D, ISUS t 

1  AKDS,AKDSl,AKDS2f AKDS3tPHIRC(50),DTHF(50),DTHR(50) 

2  NCAMF,NCAMR,NDTHF,NDTHR 

COMMON    /SUSCMP/    XMUR02 ,BXMR02 ,XMTR04t ZFO, TSF02,RHOF2,RHFMUF, 

1  RHF2MF,RF2MFI,RTF,RRTR,D3PD4,D3MD4,D43,DD3P4, 

2  DD3M4,ZFDlRF,ZRD34,RFPF,RPF2M,WFMF,PHFP,PHIF2f 

3  PHIFD2,RPHFD,ZFD1,ZFD2,ZRD4,TPF,SL0PE3,SL0PE4, 

4  PH13D,PHI4D,DTHFl,DTHF2,DTHR3fDTHR4,DTDDl, 

5  DTDD2tDTDD3tDTDD4»FJF(4)fSNPF 

ISl    =    ISUS+l 
LONGITUDINAL   WHEEL    CENTER   VELOCITIES 


VP  OS  05  00 
VP0S0510 
VPOS0520 
VP0S0530 
VP0S0540 
VP0S0550 
VP0S05  60 
,VP0S05  70 
VP0SG580 
VP0S05  90 
VP0S0600 
VP0S0610 
PVP0S0620 
VP0S0630 
VP0S06  40 
VPGS06  50 
VP0S06  60 
VPOS06  70 
VPDS0680 
,VP0S06  90 
2VP0S0700 
,VP0S0710 
VP0S0720 
VP0S0730 
VP  OS  07  40 
VP0S0750 
VP0S0760 
VP OS 07 70 
VP  OS  07  80 
VP  OS  07  90 
VP0S08  00 
VP0S0810 
VP OS  08 20 
VP0S0&30 
VP0S08  4O 
VP0S08  50 
VP  OS  08  60 
VP0S08  70 
tVP0S08  80 
VP  OS  08  90 
VP  OS  09  00 
VP  OS  09  10 
VP OS 09 20 
VPOS0930 
VP0S09  40 
VP0S09  50 
VP  OS  09  60 
VP  OS  09  70 
VP0S09  80 
VP0S0990 
VPOSIOOO 


541 


DATt   01/14/76 


TIME       1725 


UPDATE    RECORD 


GO    TO     (10,ll,12»tISl 
SUSPE  ISION    OPTION    0,    INDEPENDENT    FRONT    AND    SOLID    AXLE    REAR 

10  IF(NDTHF,EQ.O)    GO    TO    101 
CALL    INTKPC(DTHF,DELB,DtLt,DDELtDELl,DTHFl,DTDDl) 
CALL    IN7RPC(DTHF,DELB,DELE,DDEL,DEL2tDTHF2tDTDD2) 

101    Ul    =    U-(TF02+DTHF1)»R+ZFD1*Q 
U2    =    U+tTF02*L)THF2)*R+ZFD2*Q 
U3    =    U-(TR02-RPR)*R+(ZRD3R+TPR)*G 
U4    =    U+(TR02+RPR)*R-»-(ZRD3R-TPR)*G 
GO    TO    13 

SUSPENSION    OPTION    1,    INDEPENDENT    FRONT    AND    REAR 

11  IF(NDTHP.EQ.O)     GC    TO     111 
CALL    INTRPC(DTHF,DELB,DELF,DDEL,DELI,DTHF1,DTDD1) 
CALL    INTRPC(DTHF,DtL&,DELE,0DtL,DEL2tDTHF2,DTDD2) 

111  IF(NDTHR.EQ.O)     GO    TU    112 
CALL    INTKPC(UTHK,DELb,DELF»DDEL,DEL3,DTHR3,DTDD3) 
CALL     INTRPC(DThR,DELti,DELf  tDDEL,DFL4,DTHR4,DTDD4) 

112  Ul    =    U-(TF02+07HF1)*R+ZFD1*Q 
U2    =    U+(TF02+DTHF2)*R+ZFD2*Q 
U3    =    U-(TR02+DTHR3)»R    +    ZRD3*Q 
U4    =    U+{TRC2  +  D7HR4)*R    •»•    ZRD4»Q 
GC    TO    13 

SUSPENSION    OPTION    2,    SOLID    FRONT    AND    REAR    AXLES 


12  Ul 
U2 
U3 
U4 

13  CON 


=  U- 
=  U  + 
=  U- 
=  U* 
TINU 

EA 


SFY 
SFY 

AMT 
AMT 
AMT 
AMT 
AMT 
AMT 
AMT 
AMT 
AMT 
CAY 


SF 
UF  = 
UR  = 
X(  It 
X{2, 
X(3, 
X(  1, 
X(2, 
X(3, 
X(l» 
X(2, 
X(3, 
=    A 


(TF02 
(TF02 
ITR02 
(TR02 
t 

FCRME 

CH    WH 

NOT 

SFXU 

YUF    A 

0.0 

0.0 

1)    = 

1)  = 
i)    = 

2)  = 
2)    = 

2)  = 

3)  = 
3)  = 
3)  = 
MTXl.l 


-RFPF)«R+(ZFD1RF+TPF )*W 
+RFPF)«R  +  (ZFL:1RF-TPF)*Q 

-RPR)*R    +(ZRD3R*TPR)*0 
+RPR)*R    +(ZRD3R-TPR)*0 

RLY,    TIRFRC(l)    WAS    CALLED    FROM    VGbRNT 

EEL.    THE    SUM    OF    THE    FORCES    FOR    ALL    WHE 

ZEROED    IN    TIRFRC    BUT    IN    VPOS    FOR    EACH 

,SFYU,SFZU 

ND    SFYUR    NO    LONGER    USED 


COSTH*COSPS 

COSTH*SINPS 

-SINTH 

-CUSPH*SINPS+SlNPH*SINTH*COSPS 

COSPH*COSPS-»-SlNPH*SINTH»SINPS 

COSTH*SINPH 

SlNPH*SINPS+COSPH»SINTH*COSPS 

-C0SPS*SINPH  +  C0SPH=>SIN1H*SINPS 

COSTH*COSPH 

,2) 


VPOS  10  10 
VPOS  10  20 
VPOS  1030 
VPOS  iO  40 
VPOS  10  50 
VPOS 1060 
VPOS 10 70 
VPOS  10  60 
VPOS  10  90 
VPOS 1100 
VPOS  11 10 
VP0S1120 
VP0S1130 
VP0S1140 
VPOS  1150 
VPOS 1160 
VPOS  11  70 
VPOS  il  60 
VPOS  11 90 
VPOS  1^00 
VPOS 1210 
VPOS  1220 
VP0S1230 
VPOS  12  40 
VPOS 12 50 
VP0S12fc0 
VPCS1270 
VPOS  12  60 
VP0S1290 
VPOS 1300 
VPOS  13  10 
VPOS 1320 
VPOS 1330 
VP0S1340 
SEPARATELY  FOR  VPOS  13 50 
ELS  WAS  THEREF0RVP0S1360 
RUNGE-KUTTA  STEPVP0S12  70 
VPOS  13  80 
VPOS  1390 
VPOS 1400 
VPOS 14 10 
VPOS 1420 
VPOS  1*^30 
VPOS 1440 
VP0S1450 
VP0S1h60 
VPOS  14  70 
VPOS  14  to 
VPOS  14  90 
VP0S1500 
VP0S1510 
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c 
c 
c 
c 


DATE   01/1^76 

TIME 

1725 

CBY  =  AMTX(2,2) 

CGY  =  AMTX(3,2) 

CAX  =  AMTX( 1,1) 

CBX  =  AMTX(2,1) 

CGX  =  AMTXO.l) 

UPDATE    RECORD 


IF(ISUS.E0.2)    GO    TO    21 
YTMP    =    TF02+D1HFI 
ZTMP    =    ZFDl 
GO    TO    31 

21  YTMP    =    TF02-RFPF 
ZTMP    =    ZFO+DELl+TPF 

31  XIP    =    XCP+AMTXCl,l)*A+AMrX( 
YIP    =    YCP+AMTX(2,1)*A+AMTX( 
ZIP    =    ZCP+AMTX(3,1)*A+AMTX( 
IF(ISUS.EQ.2)    GO    TO    22 
YTMP    =    -TFU2-DTHF2 

ZTMP    =    ZFD2 
GO    TO    32 

22  YTMP    =    -TF02-RFPF 
ZTMP    =    ZF0-»-DEL2-TPF 

32  X2P    =    XCP*AMTX(1,1)*A+AMTX( 
Y2P    =    YCP+AMTX(2,1)*A+AMTX{ 
Z2P    =    ZCP+AMTX(3,1)*A+AMTX( 
IF(ISUS.EQ.l)    GO    TO    23 
YTMP    =    TR02-RPR 

ZTMP    =    ZR0+DEL3*TPR 
GO    TO    33 

23  YTMP    =    TR02+DTHR3 
ZTMP    =    ZRD3 

33  X3P    =    XCP-AMTX{1,1)*B+AMTX( 
Y3P    =    YCP-AMTX(2,1)*B*AMTX< 
Z3P    =    ZCP-AMTX(3,1)*B+AMTX( 
IF(ISUS.EQ.l)    GO    TO    24 
YTMP    =    -TR02-RPR 

ZTMP    =    ZR0+DEL3-TPR 
GO    TO    34 

24  YTMP    -    -TR02-OTHR4 
ZTMP    =    ZRD4 

34  X4P  =  XCP-AMTX(1,1)*B*AMTX{ 
Y4P  =  YCP-AMTX{2,1)*B+AMTX{ 
Z4P    =    ZCP-AMTX(3,1)*B+AMTX( 


lt2)*YTMP+AMTX(l,3)*ZTMP 
2,2»*YTMP+AMTX(2,3)*ZTMP 
3,2)«YTMP+AMTX(3,3)*ZTMP 


l,2)*YTMP+AMTX(l,3)*ZTMP 
2,2)*YTMP+AMTX(2,3)*ZTMP 
3,2)*YTMP-fAMTX(3,3)*ZTMP 


1,2)*YTMP+AMTX(I,3)*ZTMP 
2,2)*YTMP+AMTX(2»3)*ZTMP 
3,2)*YTMP+AMTX(3,3»*ZTMP 


1,2)*YTMP+AMTX{1,3)*ZTMP 
2,2)*YTMP+AMTX(2,3)*ZTMP 
3,2)*YTMP*AMTX(3,3)*ZTMP 


QUADRATIC    INTERPOLATION    SUBROUTINE    INTRPL t ADDITIONAL    ENTRY    INTRPC 


-iH=^ISUS.EQ.2)    GO   TO    50 
CALL    INTRPC (PHIC,DELB,OELE,DDEL, DELI, PHI I.SLOPE  I) 
PHI I    =    PHIl*RAD 
SLOPEl    =  SLOPEl*RAD 
PHIID    =    SL0PE1*DEL1D 


VPOS15  20 
VPOS15)30 
VP0S1540 
VP0S1550 
VP0S15  60 
VP0S15  70 
VPOS1580 
VPOS 15  90 
VP0S1600 
VP0S1610 
VP0S1620 
VP0S163G 
VP0S1640 
VPOS  16  50 
VPOS  16  60 
VPOS  1670 
VPOS 1680 
VPOS  16  90 
VP0S1700 
VPOS  17  10 
VPOS 1720 
VP0S1730 
VP0S1740 
VP0S1750 
VP0S1760 
VPOS 1770 
VPOS  17  80 
VPOS 1790 
VPOS 18 00 
VP0S1810 
VPOS  18  20 
VPOS 1830 
VPOS  18  40 
VPOS  18  50 
VPOS  1860 
VPOS  18  70 
VP0S1880 
VPOS 18 90 
VPOS 1900 
VPOS  19  10 
VP0S1920 
VPOS 1930 
VPOS 1940 
VPOS 1950 
VPOS 19  60 
VP0S1970 
VPOS 1980 
VPOS 1990 
VPOS  20  00 
VP0S2010 
VPOS 2020 
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DATE       01/14/76            TIME       1725  UPDATE    RECORD 

CALL    INTRPC(PHlC,DtLb,DELE,DDtLfDEL2,PHI2,SL0PE2)  VPOS2030 

PHI2    =    -PHI2*RAD  VP0i,2040 

SL0PE2    ^    -SL0PE2*RAD  VPOS2GbO 

PHI  2D    ~    SLOPE2*DEL2L  VP0S2060 

GO    TD    5  1  VP0S20  70 

'50    PHII    =    PWF  VP0S20t;0 

PHI  2    =    PHIF       VPOS20  90 

PHIID    -    PHIFD —  VP OS 2100 

PHI2D    =    PHIFD  VP0S2110 

'51    IF( ISUS.EQ.l)    GO    TO    52  VP0S212C 

PHI3    =    PHIH  VPGS2i30 

PHI4    =    PHIR  VP0S2140 

PHI3D    =    PHIRD  VPOS2i50 

PHI4D    =    PHIRD  VP0S2160 

GO    TO    53  VP0S2170 

52  CALL  INTRPC(PHlRC,DELb,DELE,DDEL,DtL3,PHI3,SLCPE3)  VPOS2ieO 
PHI3  =  PHI3*RAD  VP0S2190 
SL0PE3  =  SL0Pt3*kAD  VP0S2200 
PHI3D  =  SL0PE3*DtL3D  VP0S22  10 
CALL  1NTRPC(PHIRC,DELB, DELE, DDtL,DbL4,PHl4, SLOPED)  VPQS2220 
PHlH  -  -PH14«RAD  VPDS2230 
SLOPED  =  -SL0PE4*RAD  VP0S2240 
PHI4D    =    SL0PEA*DEL4D  VP0S2250 

53  CONTINUE  VP0S2260 
C  VP0S2270 

40    IF(INDCRB.EQ.O)    GO    10    5  VP0S2280 

IFdHIT.EQ.l.OR.lNDCRB.LT.O)    GO    TO    6  VPCS2290 

5  CALL  DRIVER(PSIC0N,PS1SLP,J)  VP0S2300 
IF(J.Nc.O)  GO  TO  5001  VP0S2310 
PSICON  =  0.0  VP0S2320 
PSISLP  =  0.0  VP0S233O 
IF(NTBL1.N£,0)  CALL  INTRPC ( PS  IF , lb » IE , 1 INCR, T  , PSICON, PSISLP )  VP0S2340 
PSICCN  =  PSICON*RAD  VP0S2350 
PS1SLP=PSISLP*RAD  VPCS2360 

5001    CONTINUE  VP0S2370 
C               FORMERLY    PSI FP=PSI 1, NO    LONGER    USED. FORMERLY    PS1F1D=< PS 11-PS1FP}/DT VPOS 23 60 

PSIl    -    PSICON  VP0S239G 

PSIFID    =    PSISLP  VP0S2400 

PSIFI    =    PSll  VP0S2410 

GO    TO    7  VPDS2420 

6  PSIl    =    PSIFI  VPCS243G 

7  PSI2    =    PSIl  VP0S24*r0 
C  VP0S2450 

IF( ISUS.EQ.l )    GO    TO    54  VP0S2460 

PSI3    =    AKRS»PHIK  VP0S2470 

PSI4    =    PSI3  VPGS248C 

RETURN  VP0S2490 

54  PSI3  =  AKDS+AKDS1«DEL3+AKDS2*DEL3«*2+AKDS3*DEL3**3  VPOS2500 
PSI4  =  -(AKDS+AKDSl*DEL4+AKDS2*DEL4**2+AKDS3*DtL4*«3)  VP0S25  10 
RETURN  VP0S2520 
END  ■                                                          VP0S2530 
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DATE       01/14/76 


TIME       1725 


UPDATE    RECORD 


SUBROUTINE    WHEEK /AKT/ ,/S IGT/,/XLAMT/,/RWHJB/,/RWH JE/, /DRWHJ/ ,  WHEEOOIO 

1    /NFJP/,/RW/,FJP,/NO/)  WHtEOOZO 

C                                    HV0SM-VD2    VERSION  WHEE0030 

C                                     REVISED    DCTObER    1975         CALSPAN    CORPORATION  WHEE0040 

DIMENSION    FJP(50)  WHEE0050 

1    DA    =    4,0*0.01745  WHEEG060 

FJP(  1)     =   0,0  WHEE00  70 

N    =    NFJP  WHLEOOeO 

IF     (N.LE.NO)    GO    TO    3  WHEE0090 

PRINT    2tN,N0  WHEEOIOO 

2  FORMAT    ('ODIM.    FOR    FJP    TOO    SMALL,', 16, •    NEEDED.*,    16,»    PROVIDED. WH EEOl 10 
1    •)                                                           .  WHEE0120 

STOP  WHEEOIBO 

3  CONTINUE  WHEEOIOO 
NL  ~  N-1  WHEEOiSO 
OD  =  (RWHJE-RWHJB)/FLOAT(NL)  •  WHEE0160 
DDK  =  DD*AKT  WHEE0170 
K  =  0  WHEE0180 
D  =  0.0  WHEE0190 
DO  10  J=2,N  WHEE02  00 
FJP(J)  =  FJP(J-1)+DDK  WHEE0210 
D  =  D+DD  WHEE02  20 
IF  (K.NE.O)  GO  TO  10  WHEE0230 
IF  (D.LT.SIGT)  GO  TO  10  WHEE0240 
X  =  DDK  WHEE0250 
DDK  =  DDK*XLAMT  WHEE0260 
FJP(J)  =  FJP(J)+(DDK-X)*(D-SIGT)/DD  WHEE0270 
K  =  1  WHEE0260 
CONTINUE  WHt£02  90 
R  =  RW  WHEE03  00 
DO  19  J=2,N  WHEE03  10 
B  =  1.0  WHEE0320 
DDK  =  DD/R  WHEE0330 
Z=DDK  WHEE0340 
ANG  =0.0  WHEE03  50 
F  =  Z*B  WHEE03  60 
ANG  =  ANG* DA  WHEE03  70 
Y=l-Z  WHEE0380 
X  =  COS (ANG)  WHEE03  90 
IFtX.LE.Y)  GO  TO  16  WHEE0400 
F  =  F+2.0*(X-Y)*B  WHEE0410 
GO    TO    201                                                                                                                          .  WHEE0420 

16    B    =    FJP(J)/F  WHEE0430 

FJP(J)     =  DDK*B  WHEE0440 

IF    (J.EQ.N)    GO    TO    1901  WHEE0450 

I=J-»-l  WHEE0460 

DO    18       L«=I,N  WHEE04  70 

ZsZ+DDK  WHEE0480 

300    ANG    =0.0  WHEE0490 


10 
15 


200 


201 
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DATE       Ol/U/Vo 


TIME      rr^'j> 


UPDATE    RECORD 


301 


18 
19 
1901 


20 


F    =    Z*B 

ANG    =    ANG+DA 

Y  =  1~Z 

X    =    COS  (ANG) 

IF(X.LF.Y)     GO    TO    lb 

F    =    e  +  2.0*{X--Y)*B 

GO    10    301 

FJP(L)    =    FJP(L)-P 

R    =    R-DD 

DD    =0.0 

DO    20    J-2tH 

DD  =  DU-»-»-JP(  J  ) 

FJP(J)=FJP(J"1 )+DD 

RETURN 

END 


WHEEOSOO 
WHEE05  10 
WHEE05  20 
WHEE05  30 
WHEE05  40 
WHEE05  50 
WHEE0360 
WHEE05  70 
WHEE05fc0 
WhEEOi.90 
WMLL0600 
WHEE0610 
WHEE0620 
WMEE0t>20 
WhEE06^0 
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4.        SYSTEM  REQUIREMENTS 

The  HVOSM  is  executed  at  Calspan  Corporation  on  an  IBM/370  Model  165 
under  the  System  370  Operating  System.   The  source  programs  are  compiled  with 
the  IBM  Fortran  H  compiler.   Input  requirements  consist  of  a  card  reader 
(Fortran  unit  5),  a  sequential  data  set  (FORTRAN  unit  2)  for  temporary  storage 
of  the  card  input,  and  a  sequential  data  set  containing  road  roughness  data 
(FORTRAN  unit  4).   Output  requirements  consist  of  two  sequential  data  sets 
(FORTRAN  units  1  and  3)  which  store  certain  data  for  subsequent  processing. 
Unit  1  is  used  by  the  HVOSM  Vehicle  Graphics  Program.   Unit  3  is  currently 
not  used  but  is  intended  to  store  data  for  subsequent  time  history  plotting. 
In  addition,  FORTRAN  units  6  and  11  through  30  are  used  for  printed  output. 

The  JCL  required  to  execute  the  HVOSM  using  the  loader  from  object 
and/or  load  modules  is  illustrated  in  Figure  4,1-1,  where  DSHV0SV2  is  the 
HVOSM  load  module  name. 

The  Calspan  procedure  LOADGO  is  shown  in  Figure  4.1-2.   The  HVOSM 
program  version  to  be  executed  is  stored  as  module  name  as  a  member  of  the 
partitioned  data  set  LOADLIB,  and  core  storage  size  (GCORE)  varies  as  a 
function  of  program  version  and  buffer  size. 

Approximate  core  storage  requirements  for  each  program  version, 
including  system  routines  but  excluding  1/0  buffers,  are  indicated  below. 

HV0SM-RD2    133200  bytes 
HV0SM-VD2    148300_bytes 
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//  .  BXEC  . 
//GO. SYS L 
//GfJ.FTOl 
//  DCb=(R 
//GG.FT0  2 
//  DCb=(R 
//GC.FT03 
//GO. FT04 
//GO.FTll 

7/'dcb='(r 

//&0.FT12 
//  DCB=(R 
//GO. FT  1 3 
//  DCb=(R 
//G0.FT14 
//  DCQ=(R 
//GU.FTIS 
//  DCB=(R 
//GO. FT 16 
//  DCB  =  i  ^ 
//G0.FT17 
//  DCb=(R 
//GO.FTia 
//  DCb={R 
//GU.FT19 
//  DCb=(R 
//G0.FT20 

'7/"'dcb=("r 

//GG.FT21 
//  DCB=(R 
//GO.FT22 
//  DCci=|R 
//Gp.FT2  3 
//  DCB=(R 
//GG.FT24 
'//  DCB=(R 
//GU.FT25 
//  DCB=(R 
//GQ.FT26 

"//"dcb=Tr 

//G0.FT27 

7/~"dC6=(R 

//G0.FT28 

7/  Dca=(R 

//G0_.FT2  9 

//  ""dcb=Tr 

/^GO.FT3  0 

"//    DCB=('R 

//GG.SYSI 


LGA.DGLrG 
I.M    0  0    OS 
f^OOl     UD 
ECFM=VBS 
FOOl    DD 
tCFM^FL, 
t-001     DU 
FOOl     OD 
rOOl     DD 
ECFM^VPA 
t-001     L.D 
£CFM=VBA 
FOOl     DD 
r:CFM-\/L>A 
FOOl    DD     S 
hCFM=VBA 
FOOl     DD 
ECFM=VbA 
FOOl     DD 
ECF.M=VBA 
FOOl     DD 
ECFM^VbA 
FOOl     DD 
ECFM=VbA 
FOOl    DD 
tCFM=V6A 
FOOl     Dp 

ecfm=vb"a 

FOOl  DD 
tCFM^VBA 
FOOl  DD 
ECFM=VBA 
F00_1  DD 

ecfm^vb'a 

FOOl  DD 
FCFM-VFA 
FOOl  Dp 
£CFM=VBA 
FOOl  DD 
ECFM=VbA 
FOOl  DD 
ECFM-VBA 
F001_  DD 
ECFM=VBA 
FOOl  DD 
tCFM^^'VBA 
FOOl  Dp 
£CFM=VbA 
N  DD  * 


=  L0 
NIT 
LRt 
SN  = 
KEC 
UMM 
J  MM 

bLK 
YSD 
bLK 
YSC 
BLK 
YSU 
BLK 
YSC 
BLK 
Y  S  t  i 
BLK 
YSu 
LiLK 
YSC 
BLK 
YSO 
BLK 
YSO 
BLK 
YSC 
BLK 
YSO 
sLK 
YSO 
BLK 
YSO 

bLk 

YSO 
BLK 
YSO 

YSO 
3LK 
YSU 


BLK 
YSC 
BLK 
YSU 
BLK 


r.32 

ACL 

=  9T 

CL  = 

ul.D 

L-S 

Y 

Y 

I'T^ 

siz 

ui  = 
siz 

01  = 
SIZ 
Ul  = 
SIZ 
07  = 
SIZ 
01  = 
ilZ 
0T  = 
SIZ 
0T  = 
SIZ 
01  = 
SIZ 
0T  = 
SIZ 
01  = 
SIZ 
01  = 
SIZ 
0T  = 
SIZ 
01  = 
SIZ 
01  = 
SiZ 
0T  = 
SIZ 
0T  = 
SIZ 
01  = 
SIZ 
01  = 
SIZ 
Ul  = 
SiZ 


P  <  T  G 11 M  L-  =  •  { .1 , 0_0  }  • 

IB (DSHVCSR2 ) ,DI SP=SHR 
R  A CK , D S N  =  L  CDS. R  C  L  L ,  pl  S P  = 
200 , B  LK  S I Z  r  =  eO  0^ ) , L  AB  EL  = 
S  I N 1  ON  I  T  =  S  Y  S  D  A  ,  DI  S  P  =  (  N  t  W 
b,bLKSIZF  =  6400  )  ,SPACE  =  {T 


(N__EWjCA 
(  1t»tOO 
jDJLETE 
RK,(l,l 


TLGLj 

i  /r'etpd: 
),  

)  fRLSt ) 


100) 


A  ,  SP  A  C  E 
E=64A7» 
A  ,  SPACE 
L  =  64'+7» 
A  .1  SPACE 
t  =6^-4  7, 
A, SPACE 
E  =  64 H  /  T 
A, SPACE 
t=6447, 
A, SPACE 
E=f -4^7, 
A, SPALt 
E=o447, 
A, SPACE 
t  =  6^'^7» 
A, SPACE 

A, SPACE 

t=6447T 

A.tSP^CE 
t=64A7, 

A  rSPAC_t 
E  =  64A-7, 
A,  SPACE 
E=6m'H7t 
A, SPACE 
c=6447t 
A,SP_AC£ 
E  =  64'+7» 
A, SPACE 
E=6447, 
A, SPACE 
E=64A7, 
A, SPACE 
L  =  6"447, 
A  ,  SPACE 
fc=64A7, 


=(TkK, 
LRL CL= 
=  (1RK, 
LRFCL= 
=  (  T  R  K  , 
LRECL= 
={TKK, 
LRECL= 
=  (T.aK, 
LRECL= 
=(1KK, 
LRECL= 

=  (  1  '^  K  , 

LRECL= 
=(TPK, 
LRFCL= 
=(TRKt 
LRECL= 
=(TRK, 
LRf  CL  = 
=( TRK, 
LR£CL= 
=ITRK, 
LRECL= 
=(TRK, 
LRECL= 
=(TRK, 
LReCL= 
=(TRK, 
LRLCL= 
=(TRK, 
LRFCL= 
=(TRK, 
LR&CL= 
=(TRK, 
LRFCL= 
=(TRK, 
LRlCL= 
=(TRK, 
LR£CL= 


(oa 

13  7, 
(0,1 
137, 

(0,1 
13  7, 

.(  Q  » 1 
137, 
(0,1 
13  7, 
(0,1 
137, 
(  0,1 
137, 
(0,1 
137, 
(0,1 

12  7, 

137, 
(0,1 

13  7, 
(0,1 
137, 
(Ojl 
13  7, 
(0,1 
137, 
(0,1 
13  7, 
(0,1 
137, 
(0,1 
137, 
(0,1 
13  /, 
(0,1 
13  7, 
(0,1 
137, 


BUFNC=2 
S)  ,RLS£ 
bOFNC=2 
^>),RLSE 
bOFNC=2 
y),i-<.,LSE 
B0FN0=2 
5)  iRLSE 
bOFNO=2 
&  )  »  R  LS F 
BUFN0=2 
5  )  ,  R,L>  E 
b0FN0=2 
"-■> )  ^R  L  S.E 
BUFNb=2 
5) jRLSE 
BUFN0=2 
5),RLS£_ 
BO FN 6= 2 
5),RLSE 
bOFNO=2 
5)  ,,^LSE 
B0FN0=2 
^)iR.kSl. 
BOFNO-2 
5),RLSE 
50 FN  0=2 
5  )  ,  R  LS_E 
S0FNd=2 
t>l,:<L_S_F 
B0FNG=2 
e>)  ,RLSL 
BUFNU=2 
5)  ,RLSE 
BO FN 0=2 
5)j,RLSE 
B0FN0=2 
5)  ,RLSfe 
B0Ffsi0=2 


.l__„ 


j- 


t 


I 


HVOSM  DATA  DECK 


Figure  4.1-1    HVOSM  JOB  CONTROL  LANGUAGE 
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//  EXEC  L0ADGO,&LINES=15OO0,GTIME=« { ,3C)» 

*«♦   CAL  PROCEDURES   ASMFG,  ASMGG,  _„ASMHG ,,  FORTGGt  FORTHGt  G0«  LQA.DGiL    Qi 

**♦ 

XX       PROC    LC0PY=1, LLINES=10G0,tLIB=0UMMY,LPARM=,ENTRY=MAINt 
XX  LOUT=A,LFORMS=STDl,GOUT=AtGPORMS=STDl, 

XX  GCARDS=2  000tGOUT=A,GFORMS=STDl,GCOPY=X,GLINES=5COO.GCORE=128K, 

XX  GTIME=' (  ,20) • ,GPARM  =  ,DUMP  =  DEFAULT, 

XX  PLOTTER=NONE»LqNG=XrPAPER=SG  _  __     _        

XXGO       EXEC       PGM=L0ADER,PARM=»SIZE=&GC0RE,£LPARM,EP=CENTRY/{;GPARM', 
IEF653I    SUBSTITUTION    JCL    -    PGM=LOADER ♦PARM= 'S I ZE=128K, , EP=MAIN/» t 

XX       region=&gcore,time=(;gtime,acct=gdump 

IEF653I  SUBSTITUTION  JCL  -  REGI0N=128K,TIME= ( , 30) , ACCT=DEFAULT 
«*♦ 

XXFT05F0ai  DD  ODNAME=SYSIN  ' ~ 

*♦♦ 

XXFT06F00I    DD    SYSOUT=  ( tGOUT, COPY&GCOPY, &GFORMS ) t SPAC E=( 4  ,&GLINES ,RLSE )  , 
IEF653I    SUBSTITUTION    JCL    -    SYSOUT=( A ,C0PY1 ,STD1 ) ,SPACE= ( 4, 15000,RLSE ) t 
XX  UNIT=SYS0UT, 

XX  DCB=(BLKSIZE=6447,RECFM=VBA,LRECL=I37tBUFN0_=2)  _  _ 

*** 

XXFT07F001    DD    SYSOUT=B » UNIT=SYSOUT, 

XX  SPACE=( 1,CGCARDS,RLSE  ), 

IEF653I    SUBSTITUTION    JCL    -    SPACE=(1 , 2000 ,RLSE ) , 

XX  DCB=(BLKSIZE=3120,RECFM=FB,LRECL=80,BUFN0=2y 

*♦* 

XXPLOTLIB  "  "  DD'  DSN=SYSTEM.GENSUBStDISP=SHR ~ 

♦*♦ 

XXPLOTTER   DD   DDNAME=&PL0TT ER  "  ~ 

IEF653I  SUBSTITUTION  JCL  -  DDNAME=N0NE  _       _  

***  ""■   "  ■      "" "  

XXCALCOMP  DD  S Y$QUT=(C , PLOTWRTR ,£PAPER ) ,UNIT=SYSDA,  

IE  F653 I  SUBSTI TUT  ION  JC L  -  SYSOUT  =  rC, PLOTWRTR , SG ) ,UN IT=S YSDA, 

XX  DCB=(LRECL=40CtBLKSIZE=4000,BUFNO=2),         

XX  SPACE={TRKt(100,50) ,RLSE),FCB=CL0NG.&PAPER" 

IEF653I  SUBSTITUTION  JCL  -  SPACE=(TRK, (100 ,50 ) ,RLSE ) t FCB=XSG  

*♦♦  "  

_XXLpX DO  DSN  =  C£GPLOTTER,UNIT  =  SYSDA,DISP=(MOD,PASS)  J 


IEF653I  SUBSTITUTION  JCL  -  DSN=GSNONE,UNIT=SYSDA ,0ISP={ MOD, PASS) , 

XX  SPACE=(CYL,(20,I0)),FCB=GLONG  

IEF653I  SUBSTITUTION  JCL  -  SPACE=(CYL, (20, 10) ) ,FCB=X" 
*** 

XXSYSL IB   DD  DSN="aLLI B  , DI SP  =  SHR , DCB=  ( RECFMsU^B LKSIZE  =  13^30T 

iEF653I_  SUBSTITUTION  JCL  -  DSN=DUMMY,DISP=SHR ,DCB= ( RECFM=UtBLKSIZE=13030) 

XX  DD  dsn=system.f6rtsubs,disp=shr 

XX  DD  dsn=sysufortlib,disp  =  shr 

XX  DD  dsn=system.gensubs,disp=shr 

^^  __       DD  dsn=system.imsl,disp=shr  

XXSYSLOUT    DP    S YS0UT=( GLOUT ,C0PY£ LCOPY, SLFORMS ) ,SPACE= (I , £LLINES,RLSE ) , 

IEF653I    SUBSTITUTION    JCL   -    SYSOUT=( A ,COPYI ,STD1) ,SPACE=(I, lOOO.RLSE ) , 

XX UNIT=SYSDA, 

XX"  DC6=(B"LKSIZE  =  3I46,RECFM=FBSA,LRECL  =  121,BUFN0=2) 

*** 

^XlYSUDUflP      DD      rYSOU~r=A, UNTt=S YSOUT  t~SPACE  =  ( TM^        30 )  , RLSE  ) 


//GO.SYSLIN    DD    DSN  =  L0ADLIB{'DSRCM0D)  ,DfSP=SHR 
//GO.SYSIN    DD    * 

Figure  4.1-2         Calspan  Procedure  LOADGO 
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5.        HVOSM  PREPROCESSING  PROGRAM 

A  listing  OS  the  HVOSM  Preprocessing  Program  routines  is  provided 
in  this  section. 


.50 


DATE       01/07/76  TIME       2017  UPDATE    RECORD 


REAL*4    LW  00000010 

READ(5,100)     IVEH,IVER,IOUT,IRD,IFDfLW  00000020 

100  FORMAT( 5I4f FIO.O)  00000030 
IF(IVEH.NE.O)  CALL  VEHLI B (IVEH, I VERf lOUT )  00000040 
IF(LW,NE.O.O)  CALL  VEHCAL(LW)  00000050 
IFtlRD.EQ.O)  GO  TO  10  00000060 
READ(5,101)    SltS2tS3fYl,Y2fR,B,DBS  00000070 

101  FORMAT( 8F8,0)  00000080 
CALL    RBDTCH{SltS2tS3»Yl,Y2tRtB,DBS)  00000090 

10    IFdFD.EQ.O)    GO    TO    99  00000100 

READ(5,102)    SlfS2fS3tYl,Y2,Y3,R,Bl,B2,DBS  00000110 

102  F0RMAT(10F8,0)  00000120 
CALL    FB0TCH(Sl»S2tS3tYl,Y2,Y3,RtBltB2,DBS)  00000130 

99    STOP  00000140 

END  00000150 
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DATE   01/07/76 


TIME       2017 


UPDATE    RECORD 


SUBROUT 
DIMENSI 
REAL*4L 
DATA    PS 

1  P 

2  P 
3 

4 
5 
DATA    G/ 

C  -CALCU 

C  BASSO, G 

C  DYNAMIC 

C  AERONAU 

LW2  =  L 
LW3=  LW 
WT  =  2. 
WUT  =  1 
WUF  =  0 
WUR  =  W 
WS  =  WT 
WFT  =  ( 
WRT  =  W 
WFS  =  W 
WRS  =  W 
A  =  WRS 
B  =  LW- 
XMS  =  W 
XMUF  = 
XMUR  = 
TF  =  12 
TR  =  11 
XIZ  =  X 
XIX  =  X 
XIYT  = 
XIYU  = 
XIY  =  X 
XIXZ  = 
XIR  =  0 
FN  =  1. 
SK  =  4. 
RK  =  42 
AKF  =  R 
AKR  =  0 
CF  =  0. 
CR  =  0. 
TS    =    0. 


INE    VEHCAL(LW)  000000  10 

ON    PS2PI(3),PS2I(3),PP1(2),PSPI(3)  00000020 

W,LW2tLW3  00000030 

2PI/4HLB-S,4HEC**»4H2/IN/       t  00000040 

S2I/4HLB-S,4HEC**,4H2-IN/       ,  00000050 

SPI/4HLB-S,4HEC/I ,4HN          /       ,  00000060 

PPI/4hLB/I,4HN         /                          f  000000  70 

DIN/4HIN       /                                             ,  00000080 

PLB/4HLB       /  000000  90 

386.4/,     PI/3.1415927/  00000100 

0110 

LATION    OF    VEHICLE     PARAMETERS  FROM:                                                                                0120 

.L.,     "FUNCTIONAL    DERIVATION    OF    VEHICLE    PARAMETERS    FOR  0130 

STUDIES",    NATIONAL    RESEARCH  COUNCIL    OF    CANADA,    NATIONAL                    0140 

TICAL    ESTABLISHMENT,    REPORT    NO.    LTR-ST-747,     SEP    1974  0150 

0160 

W*LW  00000170 

2«Lw  oooooieo 

451E-3*LW3  00000190 

26.6+0. 111*WT  00000200 

.385*WUT  00000210 

Ul-WUF  00000220 

-WUT  00  00  02  30 

62.72 7-0. 0629*LW)*WT/100.  000002  40 

T-WFT  00000250 

FT-WUF  00000260 

RT-WUR  000002  70 

♦LW/WS  00000280 

A  00000290 

S/G  00  0003  00 

WUF/G  00000310 

WUR/G  00  0003  20 

.571+0. 419*LW  00000330 

. 211  +  0. 428«LW  00000340 

MS*26.352*WT**0.577  00000350 

MS*4,752*WT**0.546  00000360 

(3.1104*WT**1.82)/G  00000370 

XMUF*(144.+A*A)+XMUR*( 144,+B*B )  00000380 

lYT-XIYU  00000390 

0.0  00000400 

.12484*XMUR*TR*TR  00000410 

696-1.4l5E-4*WT  00000420 

0*FN*FN«PI*PI*XMS  00000430 

.17+0.125E-2*WT  00000440 

K*SK/200.  00000450 

.5*SK-AKF  00  00  04  60 

246*SQRT( AKF*WFS/(2.0*G) )  0000  04  70 

416*SQRT(AKR*WRS/(2.0*G) )  00000480 

702*TR  00000490 
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WRITE(6tl00) 
WRITE(6tl01) 


WRITE(6f  102) 


LW 

XMS 

XMUR 

XIY 

XIXZ 

A 

TF 

TS 

AKR 

CR 


tDIN 


,WT      tPLB 

,PS2PI 

,P»2PI 

,PS2I 

,PS2I 

tDIN 

tDIN 

*DIN 

,PPI 

tPSPl 


tWS 

tXMUl 

tXIX 

»XIZ 

tXIR 

fB 

tTR 

,  AKF 

tCF 


PLB    ,WUF    ,PLB    ,WUR    tPLB 
,PS2PI  , 


,PS2I 

.PS2I 

tPS2I 

vDIN 

tDIN 

tPPI 

tPSPI 


100  FORMAT  (1  HI 

1  9Xt36HWHEELBASE  LW         = 

2  10Xt36HTDTAL    VEHICLE    WEIGHT  WT 

3  10Xt36HSPRUNG    WEIGHT  WS 

4  10Xt36HFR0NT    UNSPRUNG    WEIGHT  WUF       = 

5  10Xt36HREAR    UNSPRUNG    WEIGHT  WUR       = 

101  FORMAT ( lH0tl9X,22HHV0SM    INPUT    PARAMETERS t 25X 
1    9Xt31HSPRUN&    MASS  XMS  =tF10.3 

9Xt31HFR0NT    UNSPRUNG    MASS  XMUF  =tF10.3 

9Xt31HREAR    UNSPRUNG    MASS  XMUR  =tFl0.3 

9Xt31HR0LL    INERTIA  XIX  =tF10.3 

9Xt31HPITCH    INERTIA  XIY  =tF10.3 

9Xt31HYAW    INERTIA  XI2  =,F10.3 

9Xt31HR0LL-YAW    INERTIA    PRODUCT  XIXZ  =,F10,3 

9Xt3lHREAR    AXLE    ROLL    INERTIA  XIR  =tF10.3 

102  FORMAT (IH    t 

1    8Xt31HSPRUNG   MASS   CG.    LOCATION  A  =tF10,3 

9Xt31H  B  =:tF10.3 

9Xt31HFR0NT    TRACK  TF  =tF10,3 

9Xt31HREAR    TRACK  TR  =tF10,3 

9X,31HREAR    SPRING    TRACK  TS  =tF10.3 

9Xt31HFR0NT   SPRING    RATE  AKF  =,F10,3 

9Xt31HREAR    SPRING    RATE  AKR  =tF10.3 

9Xt3lHFR0NT   DAMPING    COEF.  CF  =,F10,3 

9Xt31HREAR    DAMPING    COEF.  CR  =tF10.3 

RETURN 

END 


2 
3 

5 
6 

7 
8 


2 
3 
4 
5 
6 
7 
8 
9 


F10.3t2Xt 
F10.3t2Xt 
F10.3t2Xt 
F10,3t2Xt 
F10.3t2Xt 
lOHCARD  F 
2Xt3A4,3X 
2Xt3A4t3X 
2X,3A4t3X 
2X,3A4t3X 
2Xt3A4t3X 
2Xt3A4t3X 
2Xt3A4t3X 
2Xt3A4t3X 

2XtA4tllX 
2XtA4tllX 
2X,A4tllX 
2XtA4tllX 
2XtA4tllX 
2X,2A4,7X 
2Xt2A4t7X 
2Xt3A4,3X 
2X,3A4,3X 


A4   / 

A4   / 

A4   / 

A4   / 

A4   ) 

lELD   // 

t7H201 

t7H201 

t7H201 

t7H201 

t7H201 

t7H201 

,7H201 

t7H201 

t7H202 
t7H2  02 
t7H202 
,7H202 
t7H202 
,7H204 
t7H205 
t7H206 
t7H206 


00000500 

00000510 

00  0005  20 

00000530 

0000  0540 

00  000550 

00000560 

00  0005  70 

00  000580 

00  0005  90 

00  000600 

00  000610 

000006  20 

00000630 

00  0006  40 

00000650 

00  0006  60 

1/    00  0006  70 

2/    00000680 

3/    00  0006  90 

4/    00  0007  00 

5/    00000710 

6/    00000720 

7/    00  000730 

8)    00  000740 

00  00  0750 

1/    00000760 

2/    00000770 

3/    00  000780 

4/    00000790 

6/    00000800 

1/    00000810 

1/    000008  20 

1/    000008  30 

4)    00  000840 

00  0008  50 

000008  60 
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UPDATE  RECORD 


SUBROUT 

COMMON 
REAL*8 
WRITE{6 

1000  FORMATC 

1  10X,11 

2  10X,57 

3  10X,57 

4  10X,57 

5  10X,57 

6  10X,57 

7  10X,57 

8  10X,57 

9  10X,57 
A  10Xt57 
B  10X,57 
C    10X,50 

N  =  NRD 
IF( IVER 
WRI7E(6 

1001  FORMATC 
WRITE(6 

1002  FORMAT{ 

1  9X,56 

2  10X,26 

3  10X,36 

4  10Xt20 
t)    10X,20 

6  10X,20 

7  10X,20 
IF( lOUT 

1003  FORMAT( 
RETURN 
END 


INE    VfcH 

/VDATA/ 

VEH 

,1000) 

IHl, 

h«**CAU 

H         VAL 

HBASED 

hTIRE    R 

HBLOCK 

HZF,     ZR 

HARE    MA 

HRADI  I 

HED     IF 

HINITIA 

hERNAL 

HTIRE    P 

C(IVEH) 

.E4).2  ) 

,1001) 

3X,10A8 

,1002) 

IHO, 

H         VAL 

HTHE    FO 

HSPRUNG 

HTIRE    R 

H 

HlIRE    R 

H 

.NE.O) 

10A8) 


LIBCIV 
VEHd 


tH,IVtR,lOUT) 
0,50,10),ZCOND(5,10),NRDC<10),NVDC(10) 


TION: 
UtS  OF 
ON,  AN 
ADII  A 
DATA  S 
ARE  P 
Dt  TO 
OR  RAT 
ZF,  ZR 
L  EOUI 
CALL  T 
ROPERT 


/ 

ZF, 
D  ARE 
ND  TI 
UBROU 
RINTE 
THE  I 
ES,  1 

ARE 
LI  BR  I 
0  SUB 
lES  A 


ZR  GIV 
CONSI 
RE  RAT 
TINE. 
D  WITH 
NITIAL 
NITIAL 
INPUT. 
UM  CAN 
ROUT  IN 
ND  CEN 


LN  IN  FIEL 

STENT  WITH 

ES  AS  PER 

THE  VALUE 

THE  DATA 

CENTER  OF 

EQUILIBKI 

BY  DELET 

BE  ASSURE 

E  INITEQ  B 

TER  OF  GRA 


DS  7, 
,  LOA 
REFER 
S  USE 
SET  B 
GRAV 
UM  WI 
ENG  Z 
D  BY 
ASED 
VITY 


8  OF  CA 
DING  CON 
ENCE  IND 
D  IN  DET 
E  LOW  .  I 
ITY  ELEV 
LL  NOT  B 
F,  ZR  FR 
AN  AUTOM 
ON  THE  S 
LOCATION 


RD  203  ARE 
DITIONS, 
ICATED  IN 
ERMINING 
F  CHANGES 
ATION,  TIR 
E  MAINTAIN 
OM  CARD  20 
ATIC  INT- 
UPLIFD 

// 


DC (I VEH) 

I,J,IVEH) ,I=1,10),J^1,N) 


N  =  NV 

( (VEH( 

) 

(ZCOND(I,IVEH) ,1=1,5) 


U6S    OF    ZF,     ZR    ON    CARD    203    WERE    COMPUTED    BASED    ON 
LLOWING    PARAMETERS    :  / 

MASS    CG    HEIGHT    ABOVE    GROUND    = ,F10.3 t2X, 2HIN         / 
ADII  FRONT    =,F10.3,2X,2HTN       / 

REAR       =,F10.3,2X,2HIN       / 
ATES  FRONT    = , F10,3 , 2X , 5HLB/IN       / 

REAR       =,F10.3,2X,5HLB/IN        ) 
WRITE( 10UT,1003)     (  (V EH( I , J , I VEH  )  , 1=1 , 10 ) ,J  =  1,N) 


00  0000  10 

0000  00  20 

00  0000  30 

00  0000  40 

00  0000  50 

00  000060 

/  00  00  00  70 

/OO 00 00 80 

/OO  00  00  90 

/OO 000100 

/OO  0001 10 

E/00 000120 

-/OO 000130 

3/00  000140 

/00000150 

/OO 000160 


00  000170 
00000180 
00000190 
00000200 
00  000210 
00000220 
00  00  02  30 
/OO 00 02  40 
00  000250 
00  0002  60 
00  0002  70 
00  000260 
00  00  02  90 
00  00  03  00 
00000310 
00000320 
00  0003  30 
00  0003  40 
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BLOCK    DATA 

00  00  00  10 

COMMON    /VDATA/    VEH( 10,50 

, 10 ) , ZCOND ( 5 , 10 ) , NRDC ( 10  ) , NVDC ( 10 ) 

00  00  00  20 

DIMENSION 

Vll(10,20)  ,V12( 10,20) ,V13(10,20),V14(10, 20),V15(  10,20), 

00  0000  30 

1 

V2 1(10,20) ,V22(10,20),V31(10,20) ,V32(10,20), 

00000040 

2 

V41( 10,20) ,V42( 10,20),V5l(10,20) ,V52(10,20), 

00  0000  50 

3 

V61( 10,20)  ,V62(10,20) 

00  00  0060 

REAL*8    VEH 

,V11,V12,V13,V14,V15,V21 

,V22,V31,V32,V41,V42,V51,V52, 

00  0000  70 

1 

V61 

,V62 

00  0000  60 

I 

EQUIVALENCE     (V11(1,1),VEH(1,1,1)), 

(V12(l,l) ,VEH(1,10,1)), 

000000  90 

1 

(V13(1,1),VEH(1,19,1)) 

,(V14(1,1),VEH(1,28,1) ), 

00  000100 

2 

(V15(1,1),VEH(1,37,1)) 

, 

00  000110 

3 

(V21(1,1),VEH(1,1,2) ), 

(V22(1,1),VEH(1,10,2)), 

00000120 

4 

(V31(1,1),VEH(1,1,3) ), 

(V32(1,1),VEH(1,10,3)), 

00  000130 

5 

(V41(1,1),VEH(1,1,4) ), 

(V42(1,1),VEH(1,10,4)), 

00  000140 

6 

(V51(l,l  ),VEH(1,1,5) ), 

(V52(l,l) ,VEH(1,10,5)) 

00  000150 

7 

(V61(1,1),VEH(1,1,6) ), 

(V62(l,l) ,VEH(1,10,6)) 

00  000160 

DATA    NRDC/18,14,14,14,15 

, 10,4»0/ 

00  000170 

DATA    NVDC/38,15, 15,15, 16 

,10,4*0/ 

00000180 

DATA    ZCOND/23.0          ,14,0 

,14.0 

,1098.       ,1098. 

00000190 

1 

24.6          ,14.4 

,14.4 

,1210.       ,1680. 

00  000200 

2 

24.03       ,13.2 

,13.2 

,1450.       ,1450. 

00  0002  10 

3 

19.48       ,12.8 

,12.8 

,1500.       ,1500. 

00000220 

4 

23.17       ,12.6 

,12.6 

,760.          ,1060. 

00  0002  30 

5 

19.85       ,11.83 

,11.83 

,1240.       ,1240. 

/ 

00  00  02  40 

C 

0250 

C      1963    FORD    DATA     (VEH.    NO.    1) 

FROM    REFERENCE    1 

0260 

C 

0270 

DATA    Vll/ 

00000280 

1 

8H             1963,    8H    FORD    GA, 

8HLAXY    FOU,    8HR    -    DOOR, 

8H    SEDAN       , 

00  0002  90 

2 

8H 

,    8H                       , 

8H 

,    8H                       , 

8H               200, 

00000300 

3 

8H10.818 

,    8H0.608          , 

8H0.945 

,    8H6000.          , 

8H35477.       , 

00  00  0310 

4 

8H35800. 

,    8H-192.          , 

8H435.6 

,    6H                       , 

8H               201, 

00  000320 

5 

8H54.63 

,    8H64.62          , 

8H61.2 

,    8H60.5             , 

8H-2.0            , 

00  000330 

6 

8H46.52 

,    8H                       , 

8H 

,    8H                       , 

8H              202, 

00  000340 

7 

8H 

f    8H                       , 

8H 

t    8H                       , 

8H                       , 

00000350 

8 

8H 

,    8H10.138      , 

8H12.038 

f    8H                       , 

8H              203, 

0000  03  60 

9 

8H131.0 

,    8H300,            , 

8H600. 

,    8H300.            , 

8H600.            , 

00  000370 

A 

8H.05 

,    8H-3.0            , 

8H5.0 

,    8H                       , 

8H               204, 

000003  80 

B 

8H194.0 

,    8H300.            t 

8H600. 

,    8H300.            f 

8H600.            , 

000003  90 

C 

8H.05 

,    8H-4.0            , 

8H4.5 

,    8H                       , 

8H               205, 

00000400 

D 

8H1.3 

,    8H58.0            f 

8H0.001 

,    8H1.75             , 

8H97.0            , 

00000410 

E 

8H0.001 

V    8H                       , 

8H 

t    8H                       , 

8H               206, 

0000  0420 

F 

8H266000. 

,    8H59244.       , 

8H0.059 

,    8H                       , 

8H                       , 

00000430 

G 

8H 

t    8H                       , 

8H 

,    8H                       , 

8H               207, 

00000440 

H 

8H492.0 

,    8H600.            , 

8H0.4 

,    8H5000.          , 

8  HO  .0  75          , 

00  0004  50 

I 
1 

8H1.5 
DATA    VI  2/ 

t    8H                       • 

8H 

f    6H                       f 

8H              208/ 

00  000460 
00000470 

1 

8H-5.0 

,    8H5.0              , 

8H1.0 

t    8H                       t 

BH                       , 

000004  80 

2 

8H 

,    8H                      , 

8H 

,    8H                       t 

8H              209, 

00000490 
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3    8H-5.7            , 

8H-3.9            , 

8H^2.45          , 

,    8H-1.3            , 

,    8H-0.4 

,                 000005  00 

4    8H0,3               , 

8H0.6                , 

8H0*65             , 

,    8H0.3               , 

r    8H          1 

209, 

r                 00  000510 

5    8H-0.4            , 

8H-1.3             , 

.     8H                       , 

r     8H                          , 

,    8H 

,                 000005  20 

6    8H                       1 

8H                        , 

8H                        , 

8H                        , 

r    8H          2 

209, 

f                 000005  30 

7    6H-5,0            , 

8H5,0               , 

8H0.5                , 

»    8H                        , 

,    8H 

,                  00000540 

8    8H                        , 

.    faH                       , 

,     ttH 

r     8H                          , 

,    8H 

210 

r                  000005  50 

9    8H.1079         , 

8H.1053          , 

8H.1030 

,    8H.1011          , 

,    8H.0994 

,                 00  0005  60 

A    8H.0981          1 

,    8H.0971          , 

8H.0964          , 

>    8H,0959          , 

,    8H          1 

210, 

f                 000005  70 

B    8H.0958          1 

8H.0960          , 

,     8H.0965          1 

.    8H.0973          1 

r    8H.0984 

f                  000005  80 

C    8H.099fc          , 

8H.1015          , 

,    8H.1035          , 

»    8H.1058          , 

,    8H          2 

210, 

,                 000005  90 

D    8H.108i>          1 

r    8H.1114          , 

8H.1147          , 

r    8H                        1 

f    8H 

,                  00000600 

E    8H                         , 

8H                          , 

f     8H                        , 

r     8H                          , 

»    6H          3 

210, 

r                  00000610 

F    8H-5.0             , 

,    8H5.0               , 

8H5.0                , 

8H                          , 

»    SH 

,                 00  00  06  20 

G    6H                         , 

8H                       , 

»     6H                        , 

1     8H                          1 

r    8H 

211, 

,                  000006  30 

H    8H0.G92          1 

r     8H0.092           1 

,     8H0.092          , 

r     8H                         , 

,    8H 

,                 00  000640 

I    8H                         , 

8H                         , 

)     8H                        , 

,     8H                         , 

,    8H          1 

211/                 00000650 

DATA    V13/ 

00  000660 

1    8H0,0                1 

,    8H12.2             , 

8H6.5                , 

,    8H13,6             , 

,    8H1,0 

,                 00000670 

2    8H3.0               , 

r     8H                          , 

6H                        1 

»    8H 

,    8H 

212, 

r                  00  00  06  80 

3    BHl.O               , 

r     6H1.0                 , 

6H1000.          1 

»    6H1000.           , 

r    8H110, 

, 

,                  00000690 

4    8H192.             , 

,    8H0.1                , 

8H                        , 

»    8H                         , 

,    8H 

213, 

,                 00000700 

i)    eH3.0                , 

8H3.0               , 

8H                        , 

.    8H                        , 

,    8H 

1 

,                  00000710 

6    8H                         1 

»    6H                        , 

»     8H                        , 

r    8H                         1 

,    8H 

214, 

,                 00000720 

7    8H7.62            1 

.    8H1.4                , 

,     6H0.48 

,    8H0.942          , 

,    8H0.0 

) 

,                 00000730 

8    8H3.12             , 

r     8H6.21              1 

fcH6.43             , 

,    8H4.62             , 

,    8H          1 

214 

r                 00000740 

9    8H1.0               , 

8H9.25             , 

r     bH0,384          , 

r    8H0.0                , 

»    8H10.0 

1 

>                  00000750 

A    8H       lO.ElO, 

,    8H       lO.ElO, 

BH                        , 

f     8H                          , 

,    8H          2 

214, 

,                  00000760 

B    8H7.62            , 

r     8H1,4                 , 

8H0.476          , 

»    8H0,691          , 

r    8H0.O 

1 

,                 00000770 

C    8H3.12             , 

.     &H6.21              , 

,    &H6.43 

,    8H4.62             , 

»    8H          3 

214, 

,                  00  00  07  80 

D    8H1.0               1 

»    8H9.25             , 

»     6H0,381           1 

,    6H0,0               , 

,    8H10.0 

,                 00  000790 

E    6H        lO.ElO, 

,    8H       lO.ElO, 

8H                        , 

r     8H                         , 

r    8H          4 

214, 

,                 00000800 

F    8H500.             , 

,    8HA900.           , 

,     8h400.             1 

»     8H                        1 

r    8H 

1 

r                  00  0008  10 

G    8H                        1 

f    8H                        , 

,     6H                       , 

r     8H                          , 

r    8H 

215, 

r                  00000820 

M    8H500,             1 

,    8H563.             , 

,     8H&94. 

►    8H618.             , 

,    8H630. 

1 

,                 00  0008  30 

I    8H621. 

,    8H600.            , 

r     6H561,              1 

r    8H516.             , 

»    8H          1 

215/                 00000840 

DATA    VlH/ 

00000850 

1    8H480,             1 

r    8H438.            , 

&H420.             , 

,    8H                       , 

»    8H 

1 

f                 00  0008  60 

2    8H                         , 

,    8H                       , 

,     6H 

f    8H                       , 

►    8H          2 

215, 

00000870 

3    8H0.0               , 

r    8H-120,          , 

,     6H-144.          , 

r     8H-165.          , 

>    8H-180.          , 

r                  00  0008  80 

4    8H-192.          , 

,    8H-204,          , 

»     8H-216.          , 

,    8H-231.          , 

,    8H          3 

215, 

,                 00  0008  90 

b    8H~249.          , 

,    8H-267.          , 

,     6H-268.          1 

r    6H                         , 

r    8H 

1 

f                 00000900 

6    8H 

r    8H                        , 

r     8H                        , 

»    6H                        , 

1    8H         4 

215, 

r                  00  000910 

7    8H0.0 

,    8H1000.          1 

,     8H20.0             , 

►    8H                         , 

,    8H 

1 

r                   000009  20 

8    8H 

r    8H                        , 

»     8H                        , 

r    eH                        1 

,    8H 

216, 

f                 00000930 

9    8H0.960 

,    8H0.974          1 

,     8H0.985 

,    8H0.996          1 

,    8HU0 

I 

,                 00  0009  40 

A    8H1.030 

,    8H1.010          , 

r     8H1.0 

,    8H0.O95          , 

r    8H          1 

216, 

>                 00000950 

B    8H0.982 

►    8H0.972 

►     8H0.952 

,    8H0.930          1 

»    8H0.907          , 

,                 00000960 

C    8H0.859 

,    8H0.814          , 

,     8H0.770 

,    8H0.727          , 

,    6H         2 

216, 

,                 00  000970 

D    8H0,687 

,    8H0,645          1 

,     &H0.609          , 

,    8H0.&86          1 

,    8H0.56] 

, 

,                 00  0009  80 

E    8H0,536 

,    8H0.515 

,     8H0.550          1 

,     8H0.488          , 

,    8H         3 

216, 

,                 00000990 

F    8H0.t75 

,    8H0.465          1 

,     8H0.4&4 

,    8H0.4A4          , 

»    8H0,441          1 

,                 00  001000 
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G 

8H0.438 

f 

8H0.435 

t 

8H0.432 

t 

8H0.429          , 

8H         4 

216, 

H 

8H0.425 

f 

8H0.422 

» 

8H0.419 

t 

8H0.416          , 

8H0.414          , 

I 

8H0.410 

♦ 

8H0.407 

♦ 

64.0,404 

t 

8H0.401          , 

,    8H          5 

216/ 

DATA    V15/ 

1 

8H0,398 

f 

8H0,395 

f 

8H0.391 

t 

8H0.388          , 

r    8H0.385          t 

2 

8H0.382 

t 

8H 

t 

8H 

t 

8H                       1 

,    8H          6 

216, 

3 

8H9. 6136-5 

* 

8H. 02853 

t 

8H60.336 

» 

8H                       , 

8H 

t 

c 

c 
c 

4 

8H 

f 

8H 

» 

8H 

t 

8H                        1 

,    8H 

217/ 

1971    DODGE    DATA 

(VEH. NO. 

2) 

FROM   REFERENCE    2 

DATA    V21/ 

1 

8H             1971 

8H    DODGE 

c. 

8H0R0NET 

8HCURB    LOA, 

8HDING 

, 

2 

8H 

8H 

8H 

8H                       , 

8H 

200, 

3 

8H7.57 

8H0.51 

8H0,82 

8H312.            , 

,    8H22800.       , 

4 

8H22600. 

8H530. 

8H550. 

8H                       , 

8H 

201, 

5 

8H47.7 

8H70.3 

8H59.8 

8H61.8             , 

,    8H 

6 

8H47,0 

8H 

8H 

8H                       , 

,    8H 

202, 

7 

8H 

8H 

8H 

8H                       , 

r     8H 

8 

8H 

8H11.5 

8H11.5 

8H                       1 

t    8H 

203, 

9 

8H105. 

8H84.0 

8H0.0 

8H483,0          , 

,    8H0.0 

A 

8H0.5 

8H-2.4 

8H2.1 

8H                        , 

r    8H 

204, 

B 

8H120. 

8H204. 

8H0.0 

8H744.             , 

,    8H0.0 

C 

8H0.5 

8H-4.4 

8H3.6 

8H                       , 

r    8H 

205, 

D 

8H6,85 

8H40.0 

8H.01 

8H5.48             , 

,    8H38,0 

E 

8H.01 

8H 

8H 

8H                       , 

,    8H 

206, 

F 

8H40400, 

8H-5100. 

8H0.02 

8H                       , 

f    8H 

G 

8H 

8H 

8H 

8H                       , 

,    8H 

207, 

H 

8H-3.0 

8H3.0 

8H1.0 

8H                       , 

,    8H 

I 

8H 

8H 

8H 

8H                       , 

,    8H 

209/ 

DATA    V22/ 

1 

8H-.52 

8H.04 

8H.27 

8H.31               , 

,    8H.08 

2 

8H-.54 

8H-.95 

8H 

8H                       , 

,    8H          1 

209, 

3 

8H-3.0 

8H3.0 

8H1»0 

8H                       1 

,    8H 

4 

8H 

8H 

8H 

8H                       , 

,    8H 

210, 

5 

8H.04 

8H.07 

8H.10 

8H.13               , 

r    8H.16 

6 

8H.19 

8H.22 

8H 

8H 

r    8H          1 

210, 

7 

8H-3.0 

8H3.0 

8H1.0 

8H                       , 

,    8H 

6 

8H 

8H 

6H 

8H 

,    8H 

211, 

9 

8H.60 

8H.45 

8H.30 

8H.15 

,    8H0.0 

A 

8H-.15 

8H-.30 

8H 

8H                       , 

►    8H         1 

211, 

B 

8H0.0 

8H9.4 

8H0,7 

8H9.4 

►    8H1,0 

c 
c 
c 

C 

8H2.71 

8H 

8H 

8H                      , 

,    8H 

212/ 

1971 

CHEVROLET 

DATA    (VEH    NO. 

3)    FROM   REFERENCE    2 

DATA    V31/ 

1  8H  1971,    8H    CHEVROL, 

2  8H0N         CUR,    8HB    LOADIN, 

3  8H10.3  ,    8H0.63  , 

4  8H41700.       ,    8H1790.         , 


8HET    BROOK,  8HW00D    STA,  8HTI0N   WAG, 

8HG  ,  8H  ,  8H  200, 

8H1.03  ,  8H5920.  ,  8H41400.       , 

8H750.  ,  8H  ,  8H  201, 


00  0010  10 
00  0010  20 
000010  30 
00  0010  40 
00  0010  50 
00  0010  60 
000010  70 
00  0010  80 
10  90 
1100 
1110 
00  001120 
00  001130 
00001140 
00001150 
00001160 
00001170 
00  001180 
00001190 
00001200 
00  00  1210 
00001220 
00  001230 
00  001240 
000012  50 
00  001260 
0000  1270 
00  0012  80 
00001290 
00  001300 
00  00  1310 
00  0013  20 
00001330 
00001340 
00  0013  50 
00001360 
00001370 
00001380 
00001390 
00001400 
00001410 
00  001420 
00  001430 
1440 
1450 
1460 
00001470 
00001480 
00001490 
00001500 
00001510 
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5 

8H64.3 

8H60.7            , 

6H63.5            , 

»     8H63,5 

SH 

00  0015  20 

6 

8H45.3 

8H                       , 

8H 

»    8H 

8H 

202, 

00  0015  30 

7 

6H 

8H                       1 

r     8H                       , 

)    8H 

8H 

00  0015  40 

8 

8H 

8H11.1             , 

r     8H10.8              , 

,     8H 

8H 

203, 

00  0015  50 

9 

8H141. 

8H141.             , 

r     8H0.0 

r    8H451.2 

8H0.O 

00  001560 

A 

8H0.5 

8h-3.5             , 

•     8H2.3               , 

»    8H 

8H 

204, 

00001570 

B 

8H210. 

8H189.            i 

r     8H0.0               , 

r    8H861. 

8H0.0 

00  0015  80 

C 

6H0.5 

8H-3.6            , 

,     8H2.3               , 

,    8H 

8H 

20  5, 

00001590 

D 

8H5.07 

8H43.0            1 

r     6H.01               , 

r    8H4,41 

8H73,0 

00001600 

E 

8H.01 

8H                       , 

r     &H                         , 

r    8H 

8H 

206, 

00001610 

F 

8H408000, 

8H-62000.    , 

,     &H0.033          , 

r     8H 

8H 

00  001620 

G 

8H 

8H                       1 

.     8H                       , 

r     8H 

8H 

207, 

00  0016  30 

H 

8H-4,0 

8H3.0               , 

»     8H1.0               , 

r    8H 

8H 

00  001640 

I 

8H 

8H                       1 

8H                       , 

,    8H 

8H 

209/                 00001650 

DATA    V3i:/ 

00  0016  60 

1 

6H.28 

BH.61               , 

»     8H,79               , 

>    8H,79 

8H.5 

000016  70 

^ 

8H0.0 

8H-,83            , 

,     8H-1.68 

r    8H 

8H          1 

209, 

00  0016  80 

3 

8H-4.0 

8H3.0               , 

&H1.0               , 

r    8H 

8H 

00  00  16  90 

4 

8H 

8H                       1 

r     8H                        , 

,    8H 

8H 

210, 

00  001700 

5 

8H.25 

8H.22               , 

,     8H.19 

r    8H.16 

8H.13 

00  001710 

6 

8H.10 

8H.07               , 

,     8H.04 

,    8H 

8H          1 

210, 

00  001720 

7 

8H-4.0 

8H4.0               , 

»     8H4.0               1 

r    8H 

8H 

0000  1730 

8 

8H 

8H                       , 

r     8H                        1 

r     8H 

8H 

211, 

00001740 

c> 

8H.09 

8H.15               , 

r     8H  ,  2  1                , 

>    8H 

8H 

00  001750 

A 

8H 

8H                       , 

r     SH                        , 

r     8H 

8H          1 

211, 

00001760 

B 

8H0.0 

6H14.8             1 

,     6H,07               , 

r     6H14.8 

8H1,0 

00  001770 

C 

8H3.08 

6H 

r     6H 

»    8H 

8H 

212/                 00001780 

C 

17  90 

C       1971    PONTI AC 

DATA     (VEH.    NO, 

,    4)     FROM    REFERENCE    2 

1800 

C 

18  10 

DATA    V41/ 

000018  20 

1 

8H             1971, 

8H    PONTIAC, 

»     8H    TRANS-A 

,    8HM       CURB 

8HL0ADING     , 

00001830 

2 

8H 

8H                        , 

,     6H 

,    8H 

8H 

200, 

00  00  18  40 

3 

8H8.0 

8H0,53            , 

r     8H0.82 

,    8H2760, 

8H18500.       , 

000018  50 

4 

8H18900, 

8h230.            , 

r     8H530.             , 

>    8H 

8H 

201, 

00001660 

S 

8H40, 

8H68.               , 

,     8H61,9 

r    8H60.4 

8H 

1 

00001870 

6 

8H45.5 

8H 

f     8H 

r    8H 

SH 

202, 

000018  80 

7 

8H 

8H                       , 

r     8H 

,    8H 

8H 

1 

00001890 

8 

8H 

8H7.4               , 

r     8H7.1 

f    8H 

8H 

203, 

0000  1900 

9 

8H99. 

8H99.               , 

(     eHO.O 

r     8H247.5 

8H0,0 

1 

00001910 

A 

8H0.5 

8H-2,0 

,     8H2.5 

,    8H 

8H 

204, 

00  00  19  20 

B 

8H147. 

8H147. 

r     8H0.0 

r    8H588. 

8H0.0 

, 

00001930 

C 

8H0.5 

8H-3.3 

r     8H3.7 

r    8H 

8H 

205, 

00001940 

Q 

8H7,28 

8H3.5               , 

r     8H.01 

,    8H2,1 

8H55.0 

, 

00001950 

E 

8H,01 

8H                       , 

r     8H 

r     SH 

8H 

206, 

00  0019  60 

F 

8H356000, 

8H630000. 

r     &H-,008 

,     8H 

8H 

, 

000019  70 

G 

8H 

8H                       , 

r     8H                          1 

»     8H 

8H 

207, 

00  0019  80 

H 

8H-2.0 

8H4.0               , 

r     8H1.0                1 

»    8H 

8H 

f 

00  001990 

I 

8H 

8H                       , 

r     &H                          , 

»    8H 

8H 

209/                 0000  2000 

I 

DATA    V42/ 

00  00  20  10 

1 

8H.54 

» 

8H.76               , 

r     8H.75                , 

,    8H,54 

t 

8H.10 

f 

00  00  20  20 
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2 

8H-.47 

8H-.73 

8H 

8H                       , 

8H         1 

209, 

0000  20  30 

3 

8H-2.0 

8H4.0 

8H1.0 

8H                       , 

8H 

00  0020  40 

4 

8H 

8H 

8H 

8H                       , 

8H 

210, 

0000  20  50 

5 

8H.03 

8H.06 

8H.09 

8H.12               1 

8H.15 

000020  60 

6 

8H.18 

8H.21 

8H 

8H                       , 

8H          1 

210, 

00  00  20  70 

7 

8H-2.0 

8H4.0 

8H1,0 

8H                       , 

8H 

0000  20  80 

8 

8H 

8H 

8H 

8H                       , 

8H 

211, 

00002090 

9 

8H.12 

8H.135 

8H,15 

8H.165            , 

8H.18 

00  002100 

A 

8H,195 

8H.21 

8H 

8H                       , 

8H          1 

211, 

00002110 

B 

8H0.0 

8H8.0 

8H0,7 

8H8.0               , 

8H1,0 

00  00  2120 

C 

8H3,42 

8H 

8H 

8H                       , 

8H 

212/                 00002130 

c 

2140 

c 

1971 

VOLKSWAGEN 

DATA    (VEH 

NO 

.    5  J     FROM 

REFERENCE    2 

2150 

c 

2160 

DATA    V51/ 

0000  2170 

1 

8H          1971 

8HV0LKSWAG» 

8HEN    SUPER, 

8H    BEETLE    , 

•    8H 

1 

00002180 

2 

8H 

8H 

8H 

8H                        , 

8H 

200, 

00  00  2190 

3 

8H4.23 

8H0.36 

8H0.57 

8H1300.          , 

8H8900 

»          1 

00  00  2200 

4 

8H7900. 

8H0,0 

8H 

8H                       , 

,    8H 

201, 

00  00  22  10 

5 

8H57,1 

8H38,7 

8H53.8 

8H51,5            , 

8H 

1 

0000  22  20 

6 

8H 

8H 

8H 

8H                       , 

,    8H 

202, 

000022  30 

7 

8H 

8H 

8H 

8H                       , 

,    8H 

, 

00  0022  40 

8 

8H 

8H11.1 

8H10,9 

8H                       , 

8H 

203, 

0000  22  50 

9 

8H65,7 

8H98.55 

8H0.0 

8H460.             1 

r    8H0.0 

1 

,                 00  00  22  60 

A 

8H0.5 

8H-1.8 

8H3.4 

8H                       , 

,    8H 

204, 

00  002270 

B 

8H115. 

8H69,0 

8H0.0 

8H333.5          , 

8H0.0 

1 

0000  22  80 

C 

8H0.5 

8H-1.85 

8H3.35 

8H                        1 

,    8H 

205, 

00  0022  90 

D 

8H5,53 

8H35,0 

8H.01 

8H4.27            , 

,    8H40.0 

1 

00002300 

E 

8H.01 

8H 

8H 

8H                      , 

,    8H 

206, 

0000  2310 

F 

8H93000. 

8H28300, 

8H 

8H0.0               1 

,    8H.03025       1 

0000  23  20 

6 

8H-1.56E-2» 

8H~6.48E- 

-4f 

8H 

8H                      , 

,    8H 

207, 

0000  2330 

H 

8H-2.0 

8H3,0 

8H1.0 

8H                      , 

r    8H 

1 

r                 00002340 

I 

8H 

8H 

8H 

8H                      , 

f    8H 

209/                00002350 

DATA    V5  2/ 

00002360 

1 

8H.04 

8H.5 

8H1.0 

8H1.59            , 

r    8H2.21 

1 

,                 0000  2370 

2 

8H3.31 

8H 

8H 

8H                       1 

r    8H         1 

209, 

,                 00002380 

3 

8H-2,74 

8H-2,04 

8H-1.3 

8H-0.58         , 

r    8H0.14 

t 

»                 0000  23  90 

4 

8H0.86 

8H 

8H 

8H                      , 

r    8H         2 

209, 

00  002400 

5 

8H-3.0 

8H3.0 

8H3.0 

8H                       1 

f    8H 

1 

00002410 

6 

8H 

8H 

8H 

8H                       , 

r    8H 

210, 

0000  2420 

7 

8H.09 

8H0.0 

8H-0,9 

8H                       , 

r    8H 

1 

r                 00002430 

8 

8H 

8H 

8H 

8H                       , 

r    8H          1 

210, 

,                  00  00  2440 

9 

8H-3.0 

8H3.0 

8H3.0 

8H                       1 

r    8H 

1 

00002450 

A 

8H 

8H 

8H 

8H                       , 

r    8H 

211, 

,                 0000  2460 

B 

8H,20 

8H.29 

8H.38 

SH                      , 

t    8H 

1 

►                 000024  70 

C 

8H 

8H 

8H 

8H                       , 

,    8H          1 

211, 

000024  80 

D 

8H0.0 

8H7,35 

8H0.3 

8H7.35 

,    8H1.0 

1 

,                 00002490 

E 

8H4.13 

8H 

8H 

8H                      1 

)    8H 

212> 

'                00002500 

c 

2510 

c 

1971 

VEGA    DATA 

(VEH.    NO.    < 

b) 

FROM    REFERENCE    3 

2520 

c 

2530 
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DATA    V61/ 

00002540 

1    8H             1971, 

8H    VEGA    23, 

8H00    SPORT, 

8H    COUPE 

,    8H2-PASSEN, 

00  00  2550 

2    8HGER    LOAD, 

8H                        , 

8H                       , 

8H 

,    8H 

200, 

00  00  2560 

3    8H5.831          , 

8H0.424          , 

8H0.575          , 

8H2000. 

,    8H12000,       , 

00  0025  70 

4    8H15600,       , 

8H-100.          , 

8H250.             , 

8H 

,    8H 

201, 

00  00  25  80 

5    8HA3.87         , 

8H53.13          , 

6H55.1             , 

8H54.1 

,    8H1.31 

00  00  25  90 

6    8H38.0            , 

8H                       , 

8H                       , 

6H 

,    8H 

20  2, 

00  00  26  00 

7    8H                       , 

8H                       , 

8H                       , 

8H 

,    8H 

00  00  26  10 

8    8H                         , 

8H8.58             , 

6H7,21             , 

8H 

,    8H 

203, 

0000  26  20 

9    6H96.0             , 

6H                        , 

8H                       , 

8H 

,    8H 

0000  26  30 

A    8H                        , 

8H-2,2            , 

8H3.64            , 

8H 

,    8H 

204, 

00  00  26  40 

B    8H121.0          , 

8H                       , 

&H                       , 

8H 

,    8H 

00  00  26  50 

C    8H                         , 

8H-2.2            , 

8H4.85             , 

8H 

,    8H 

205, 

00002660 

D    8H2.0               , 

8H37.0            , 

8H0.01             , 

8H2.0 

,    8H58,0 

00  00  26  70 

E    6HG.01             , 

8H                       , 

6H                         , 

8H 

,    8H 

206, 

0000  26  80 

F    6H0.0                , 

8H11690.       , 

8H-0.01          , 

8H 

,    8H 

00  00  2690 

G    8H                         , 

8H                        , 

8H                         , 

8H 

,    8H 

207, 

00  00  27  00 

H    8H-4.0             , 

8H4.0                , 

6H1.0                , 

8H 

,    8H 

0000  2710 

h    8M                         , 

8H                        , 

8H                        , 

6H 

,    8H 

209/ 

00  002720 

DATA    V62/ 

00  002730 

1    8H-4.7i>          , 

8H-3.08          , 

8H-1.75          , 

8H-0,73 

,    8H0.0 

» 

00  002740 

2    8H0.48             , 

6H0.65             , 

8H0.78             , 

8H0.83 

,    8H          I 

209/ 

00002750 

(;♦*♦♦«♦*« 

2760 

C 

REFERENCES 

2770 

C 

1       MCHENRY, R.R. 

AND    DELtYS, 

N.J.,    "VEHICLE    DYNAMICS    IN    SINGLE 

2780 

c 

VEHICLE    ACCIDENTS    -    VALIDATION    AND    EXTENSIONS 

OF    A    COMPUTER 

2790 

c 

PROGRAM",    CALSPAN    REPORT 

NO,    VJ-2251 

-V-3,    DEC 

1968 

28  00 

c 

28  10 

c 

2       SCHURING,D.J 

.,KUNKEL,D.T 

,, MASSING, D. 

E., ROLAND, 

rR.D.  ,"THE 

INFLUENCE 

28  20 

c 

OF    TIRE    PROPERTIES    ON    PASSENGER    VEHICLE    HANDLING   -    VOLUME    III    - 

28  30 

c 

APPENDICIES 

A-E",    CALSPAN    REPORT   NO. 

ZM-5350-K-3,    JUNE 

1974 

28  40 

c 

2850 

c 

3       DELEYS,N.J. 

AND    SEGAL, D, 

J.,    "VEHlCLt 

REDIRECTION    EFFECTIVENESS 

28  60 

c 

OF    MEDIAN    BERMS    AND    CURBS",    CALSPAN 

REPORT    NO 

.    HF-5095- 

\/-2, 

2870 

c 

MAY    1973 

28  80 

c 

28  90 

c*******« 

29  00 

END 

00  002910 
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SUB 

c 
c 

C 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 

c 


ROUTINE    FBDTCH(SltS2tS3fYl,y2,Y3fRfBl,B2tDBS) 

PROGRAM    TO    COMPUTE    AND    PUNCH    HVOSM    V-4    TERRAIN    TABL 
FLAT    DITCH    BOTTOM    CROSS    SECTIONS 


ES 


INPUTS  REQUIRED: 

SI  =  SHOULDER  SLOPE 
=  SIDE  SLOPE 
=  BACK  SLOPE 
=  LATERAL  POSITI 
=  LATERAL  POSITI 
DITCH  BOTTOM  (I 
=  LATERAL  POSITI 
AND  BACK  SLOPE 
R  =  TANGENT  POINT  0 

MEASURED  ALONG 
Bl  =  TANGENT  POINT 

INTERSECTION  M 
B2  =  TANGENT  POINT 

INTERSECTION  M 
DBS=  LATERAL  RUN-OU 


S2 
S3 
Yl 
Y2 

Y3 


ON  OF  SHOULDER  BREAK  (INCHES) 

ON  OF  INTERSECTION  OF  SIDE  SLO 

NCHES) 

ON   OF    INTERSECTION    OF    FLAT    DIT 

(INCHES) 
F  SHOULDER  ROUNDING  FROM  SHOUL 
SHOULDER  AND  SIDE  SLOPES  (INCH 
OF  SIDE  SLOPE-DITCH  BOTTOM  ROU 
EASURED  ALONG  SLOPE  AND  BOTTOM 
OF  DITCH  BOTTOM-BACK  SLOPE  ROU 
EASURED  ALONG  BOTTOM  AND  SLOPE 
T   DISTANCE    OF    THE    BACK    SLOPE    ( 


OUTPUT: 

PRINTED  AND  PUNCHED  TERRAIN  TABLES  INCLUDING  HVOS 
(USW  MUST  SUPPLY  TABLE  FRICTION  COEFFICIENTS  ON 


TABLE 
TABLE 
TABLE 
TABLE 
TABLE 

NOTE: 


1  =  SHOULDER 

2  =  SHOULDER-SIDE  SLOPE  ROUNDING 

3  =  SIDE  SLOPE 

A    =    SIDE    SLOPE-BOTTOM    ROUNDING 
5    =    DITCH    BOTTOM,    BACK    SLOPE    ROUNDING   AND   BACK    SLOPE 


BEGINNING,  END  AND  INCREMENT  IN  THE  X»  DIRECTION  A 
FOR  ALL  FIVE  TERRAIN  TABLES  AND  ARE  FIXED  AT  VALUE 
XB=-500,    XE=9500,    AND   DX=5000. 


BETWEEN 


METHOD: 

THE   THREE    ROUNDINGS    ARE    COMPUTED    AS    CIRCULAR    ARCS 

TANGENT    POINTS    AS   DETERMINED   BY    R,B1,AND    B2. 

THE   EDGE    OF    PAVEMENT    IS    ASSUMED   TO    LIE    ALONG   THE    X»    AXIS 

AT    0.0    ELEVATION. 

IF    THE    ELEVATION    DROP   AT    10   FT.    FROM    THE    EDGE    OF    PAVEMENT 

DUE   TO    SHOULDER    SLOPE    AND    ROUNDING    EXCEEDS    lO"    THE 

IS    MOVED   LATERALLY   TO   MEET    THIS    CONSTRAINT. 


00  000010 
00  0000  20 
FOR  R0UND00000030 
00  0000  40 
000000  50 
000000  60 
000000  70 
000000  80 
00  000090 
00000100 
00000110 
00  000120 
CO  00  01  30 
00000140 
00  000150 
00000160 
00  000170 
00  000180 
00  000190 
00000£00 
00  000210 
000002  20 
000002  30 
00000240 
00  0002  50 
00000260 
000002  70 
00  00  02  80 

000002  90 
00000300 
00000310 
00  000320 

000003  30 
00000340 
00000350 
00000360 
00000370 
00000380 
00000390 
00  000400 
00000410 
00000420 
00  000430 
00  000440 
00000450 


PE    AND    FLAT 

CH    BOTTOM 

DER    BREAK 

ES) 

NDING    FROM 

(INCHES) 
NDING    FROM 

(INCHES) 
INCHES) 


M    CARD    14 
THIS    CARD). 


RE    THE 
S   OF 


SAME 


COMPUTATIONAL   CONSTRAINTS: 


SIDE  SLOPE00000460 
00000470 
00000480 
00  000490 
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C                            THE   THREE    INPUT    SLOPES    MUST    BE   NON-ZERO.  00000500 

C                            THE    BACK    SLOPE    IS    ENTERED    AS    A    NEGATIVE    QUANTITY.  00000510 

C                            THE    DITCH    BOTTOM    IS    ASSUMED    HORIZONTAL.  00000520 

C                            0<Y1<Y2<Y3  00000530 

C  INPUTS    MUST    BE    COMPATIBLE    SUCH    THAT    THE    LATERAL    POSITION    OF    T000005^0 

C                            END   OF    THE    SHOULDER    ROUNDING    IS    LESS    THAN  THE    LATERAL    POSITI000000550 

C                             OF    THE    BEGINNING    OF    THE    SIDE    SLOPE-BOTTOM  ROUNDING.    IF    THIS       00000560 

C                            CONDITION    IS    NOT    MET    AN    ERROR    MESSAGE    IS    OUTPUT.  00000570 

C                            Y3-Y2>B1+B2  00000580 

(;♦♦*♦♦♦  00000590 

DIMENSION    X(  10)  tY(30), ZOO)  00000600 

IND    =    0  00000610 

1    Zl    =    Y1*S1  00000620 

Z2    =    Z1+S2*(Y2-Y1)  00000630 

Z3    =    Z2  '                           00000640 

YA    =    Y1-R/SQRT(S1**2+1.)  00000650 

Z4    =    Z1-S1»(Y1-Y4)  00000660 

Y5    =    Y1+R/SQRT(S2**2*1.)  00000670 

Z5    =    Z1+S2*(Y5-Y1)  00000660 

YCl    =    S1*S2*(Z5-Z4+Y5/S2-YA/S1)/(S1-S2)  00000690 

ZCl    =    -YC1/S1+Z44Y4/S1  00000700 

Rl    =    SQRT(  (YA-YCl)**2-»-(Z4-ZCl)**2)  00000710 

WRITE(6,9000)    YCl, ZCl, Rl  00000720 

OOOO    FORMAT  (  »  1*  ,  lOX  ,  •  YC1=  »  ,  Fl  0.2  ,  lOX  ,  'ZCls  • ,  F10.2  , 'R  1  =  »  ,  FIO  .2  )  00  0007  30 

IF(IND.EO.l)    GO    TO    10  00000740 

YY    =    12  0.0  00  0007  50 

IF        { (YY.GT.Y5)  .OR. (SI. GT. 0.08333) .OR. (YY.LT.Yh)  )       GO    TO    10  00000760 

ZIT    =    ZC1-SQRT(R1**2-(YY-YC1)**2)  00000770 

IF(Z1T.LE.10.)     GO    TO    10  00000780 

ZZ    =    S1*YY  00000790 

DEL    =    10. -ZZ  00000600 

ZID    =    ZZ+DEL  00000810 

A    =    Sl**2+1.  00000820 

D    =    -2.*(YY-»-Sl**2*YCl-Sl*ZCl  +  ZlD*Sl)  00000830 

C    =     (S1*YC1 )**2-2.*Sl*ZCl*YCl+ZCl*«2+2.*ZlD*Sl*YCl-2.*ZlD*ZCl  00000840 

C    =    C+ZZ**2+2.*ZZ*DEL  +  DEL*"«'2+YY**2-R1**2  00000850 

YT    =    (-D-SQRT(D**2-4.*A*C))/( 2.*A)  00000860 

ZCl    =    S1*YT+ZC1-S1*YC1  00000870 

YD    =    YT-YCl  000008  80 

YCl    =    YT  00000890 

Yl     =    Yl+YD  00000900 

Y2    s    Y2+YD  00000910 

Y3    =    Y3+YD  00000920 

IND    =    1  00  00  09  30 

WRITE(6,V001)    YC1,ZC1,Y1,Y2,Y3  00000940 

9001    FORMAT( •0», 'PROFILE    MODS.    YC 1-' , FIO .2 , •     ZC 1=  •  ,F  10.2 , »    Y1=»,F10.2,    00000950 

1                     •    Y2=»,F10.2,»    Y3=»,F10.2    )  00000960 

GO    TO    1  00000970 

10    Y7    =    Y2+B1  00000980 

Z7    =    Z2  00000990 

Y6    =    Y2-B1/SQRT(S2**2+1.  )  00001000 
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IF(Y6.GE.Y5)    GO    TO    569 

WRITE{6,7000)       Y5tY6 
7000    FORMAT(»0  INPUT    INCOMPATAB ILI TY      Y6<Y5 

1  10X,»Y5    =»tF12,3,10X,»Y6    =»,F12.3) 

STOP 
569    Z6    =    Z2~S2*<Y2-Y6» 

YC2    =    Y7 

R2    =    (Y7-Y6)*SQRT(S2**2*1.)/S2 

ZC2    =    27-R2 

Y8    =    Y3-B2 

Z8    =    Z3 

Y9    =    Y3+B2/SQRT(S3**2-H.) 

Z9    =    Z3*S3*(Y9-Y3) 

YC3    =    Y8 

R3    =    -( Y9-Y8)*SQRT(S3**2*1.)/S3 

ZC3    =    Z3-R3 
200    WRITE(6,2001)    SI f S2 t S3tYl tY2, Y3 t R, Bl, B2 ,DBS 
2001    FORMAT(»    S1=»»F8.6,«     S2=»tF8.6,«    S3=»tF8.5,» 


STOP*    / 


Y1=»,F8,2,»    Y2=», 


F8.2,»    Y3=»tF8.2,»    R=«,F8.1,»    Bl=»,F8.2f»    B2=»tF8,2t 


9010 
100 
101 


1011 


102 


DBS=» tF8. 
NC    =    500 
DO    100    M=6f7 
WRITE(M, 90101    NC 
FORMAT  (  76X,I^) 
CONTINUE 


1) 


IZ 
ZI 
XB 
XE 
DX 
YB 
YE 
XNB  = 


1 

0,0 
-500. 
9500. 
5000. 
0. 
Y4 
0. 


YNB    =   0. 
DY    =    .S+Y^ 
N   =    3 
Z(l)    = 
Z(2)    = 
Z(3»    = 
NCRD    - 
DO    1011 


0. 

•  5*Z4 
Z4 
1 
1=4,9 


Z(I)    =    0.0 

GO    TO   900 

IZ    =    2 

ZI    =   0.0 

YB    «    Y4 

YE    -   Y5 

N   =    (YE-YB)/6.*1 

IF(N«GT.21)    N=21 

DY    =    <YE-YB)/(N-1) 

DO    110    1=1, N 


000010  10 
0000  10  20 
00001030 
00  0010  40 
GO  00  10  50 
00  0010  60 
0000  10  70 
00  0010  80 
00001090 
00001100 
00  001110 
00001120 
00  001130 
00001140 
00  001150 
0000  1160 
00  00  1170 
00001180 
00001190 
00  001200 
00  001210 
00001220 
00  001230 
00  0012  40 
00001250 
00  00  1260 
00001270 

000012  80 
00001290 
00001300 
00  001310 

000013  20 
00  001330 
00001340 
00  0013  50 
00001360 
0000  1370 
00001380 
00  00  1390 
00  001400 
00  001410 
00001420 
00001430 
00  001440 
00001450 
00001460 
00001470 
00001480 
00001490 
00001500 
00001510 
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110 


1101 


103 


1031 


104 


111 


1041 


10  5 


Yd)     =    YE+(  1-1  )  *DY 

Z(I)     =    ZCl-SQRl (R1**2-(Y(  1)-YC1)**2) 

NCRD    =    N/9    ♦    1 

IF(MOD(N,9),E0.O)    NCRD    -    NCRD~1 

NF    =    9*NCRD 

1F(NF,EQ,N)     GO    TO    900 

NPl    =    N+1 

DO    1101     I=NP1,NF 

Z(I  )    =    0.0 

GO    TO    900 

IZ    =    3 

Zl    =    0.0 

YB    =    Y5 

YE    =    Y6 

N    =    3 

DY    =    (YE-YB)/2. 

Z(l)     =    lb 

Z(2)    =    Z5+.5*(Z6-Z&) 

Z(3)     =    Z6 

NCRD    =    1 

DO    1031     1=4,9 

Z(I  )     =    0.0 

GO    TO    900 

IZ    =    4 

ZI    =    0.0 

YB    =    Y6 

YE    =    Y7 

N    =     (YE-YB)/6.-»-l 

IF{N.GT.21)     N    =    21 

DY    =    |YE-YB)/(N-1) 

DO    111     I=1,N 

Yd  )    =    YB+(I-1)«DY 

Z(I )    =    ZC2+SQRT(R2** 

NCRD    =    N/9    ♦    1 

IFtMOD{N,9).EQ.O)    NCRD    = 

NF    =    9»NCRD 

IF(NF.EQ.N)    GO    TO    900 

NPl    =    N+1 

DO    1041     I=NP1,NF 

Zd)    =    0.0 

GO    TO    900 

IZ    =    5 

ZI    =    1.0 

N    =    21 

YB    =    Y7 

DY    =     (Y9-Y8)/18. 

Z(l )    =    Z6 

Yd)    =    YB 

DO    742    J=l,19 

JJ    =    J*l 

Y(JJ)    =    Y8+{J-1)*DY 


(Y(  I)-YC2)**2) 


NCRD-1 


00  0015  20 
00  00  15  30 
00  001540 
00  0015  50 
00  001560 

000015  70 
00001580 
00001590 

000016  00 
00001610 
00  001620 
000016  30 
00  00  16  40 
00  0016  50 
00001660 
000016  70 
00  0016  80 
00001690 
00  001700 
0000  1710 
0000  1720 
00  0017  30 
00  001740 
00  0017  50 
00001760 
00001770 
00  00  1780 
00001790 
000018  00 
00  001810 
00  0018  20 
00  00  1830 
00001640 

000018  50 
00001860 
00  00  18  70 
00001880 
0000  18  90 
00  001900 
00001910 
00  001920 

000019  30 
0000  1940 
00  0019  50 
00  0019  60 
00001970 
0000  19  80 
00  00  1990 
00  00  2000 
0000  20  10 
00  002020 
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1051 
900 


1000 
301 


742    Z(JJ)    =    ZC3+SQRT(R3**2-(Y(JJ)~YC3)**2) 
Y(21)    =    Y(20»+DBS 
Z(21)    =    Z(20)*S3*(Y(21)-Y(£0)) 
YE    =    Y(21) 
X(l)    =    XB 
X(2)    =    XB*DX 
X(3)    =    XE 
DO    1052    1=4,9 
1052    X(I)    =    0.0 
DX    =    3. 
OY    =    21. 
NCRD   =    3 
DO    1051    1=22,27 
Z  ( I)    =    0  .0 
Yd  )    =    0.0 
CONTINUE 
ICRD    =    500+IZ 
DO    301    M=6,7 

WRITE(M,1000)    XB,XE,DX,YB,YE,DY,XNB,YNB,ZI,ICRD 
F0RMAT(9F8.2,4X,I4) 
CONTINUE 
ITAB   =    0 
DO    901    K=l,3 
DO    902    J=1,NCRD 
ITAB    =    ITAB*1 
IB    =   J  ♦9-8 
IE    =    IB+8 
DO    302    M=6,7 
WRITE (M,  1001)    (Z(I),I  =  IB, IE), ITAB, ICRD 

302  CONTINUE 

1001    F0RMAT<9F8.2,2I4) 
902    CONTINUE 
901    CONTINUE 

GO    T0(102,103,104,105,950),IZ 
950    CONTINUE 

DO   303    M=6,7 

ITB    =    ITAB 

DO    310    J=l,3 

IB    =    J*9-8 

IE    =    IB-t-8 

ITB    =    ITB+1 

WRITE(M,I001) 
310    CONTINUE 

ITB    =    ITB*1 
,  WRITE(M,100l) 

NC    =    506 

WRITE(M,9010) 

303  CONTINUE 
RETURN 
END 


(Y(I),I=IB,IE),ITB,ICRD 


(X(I), 1=1, 9), ITB, ICRD 


NC 


000020  30 
0000  20  40 
00  00  20  50 
00002060 
0000  20  70 
0000  20  80 
00  0020  90 
00  00  2100 
0000  2110 
00002120 
00  002130 
00  002140 
00  002150 
0000  2160 
00  00  21  70 
00002180 
00  002190 
00  0022  00 
0000  2210 
000022  20 
00  00  22  30 
0000  22  40 

000022  50 
00002260 
0000  2270 
00  00  22  80 
00  00  2290 
00  00  2300 
00002310 
00  00  2320 
0000  2330 
00002340 
00  002350 
0000  2360 

000023  70 
00002380 
0000  2390 
00002400 
0000  2410 
00  002420 
00002430 
00002440 
00002450 
00  00  2460 
0000  2470 
00002480 

000024  90 
00002500 
0000  2510 
0000  25  20 
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SUB 
C 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 
c 
c 
c 
c 
c 

c 
c 
c 
c 
c 
c 


ROUTINE    RBDTCH(SltS2f S3tYl,Y2,RfB,DBS) 

DITCH   BOTTOM    CROSS    SECTIONS 

INPUTS   REQUIRED: 
S1=SH0ULDER    SLOPE 
S2=SIDE    SLOPE 
S3=bACK    SLOPE 

Y1=LATERAL  POSITION  UF  SHOULDER  BREAK  (INCHES) 
Y2=LATERAL  POSITION  OF  INTERSECTION  OF  SIDE  AND  B 
R=TANGENT  POINT  OF  SHOULDER  ROUNDING  FROM  SHOULDE 
MEASURED  ALONG  SHOULDER  AND  SIDE  SLOPES  (INCHES 
B=DITCH  WIDTH,  MEASURED  HORIZONTALLY  BETWEEN  TANG 
DBS=    LATERAL    RUN-OUT    DISTANCE    OF     THE    BACK    SLOPE    ( 

OUTPUT: 

PRINTED  AND  PUNCHED  TERRAIN  TABLES  INCLUDING  HVOS 
USER  MUST  SUPPLY  TABLE  FRICTION  COEFFICIENTS  ON  T 

SHOULDER 

SHOULDER-SIDE  SLOPE  ROUNDING 

SIDE  SLOPE 

DITCH    BOTTOM    ROUNDING 

BACK    SLOPE 


ACK    SLOPES 

R    BREAK 

) 

ENT    POINTS 

INCHES) 


M    CARD    14 
HIS    CARD 


TABLE 
TABLE 
TABLE 
TABLE 
TABLE 


NOTE 


BEGINNING,  END  AND  INCREMENT  IN 
FOR  ALL  FIVE  TERRAIN  TABLES  AND 
XB=-500,  XE=9500,  AND  DX=5000. 


THE  X»  DIRECTION  ARE  THE 
ARE  FIXED  AT  VALUES  OF 


METHOD: 

SHOULDER-SIDE    SLOPE    ROUNDING    IS    COMPUTED    AS    A    CIRCULAR    ARC 

TANGENT    POINTS    AS    DETERMINED    BY    R. 

DITCH    BOTTOM    IS    COMPUTED    AS    TWO    CIRCULAR    ARCS    AS 

BY    B    AND    GEOMETRIC    SLOPE    AND    ELEVATION    CONSTRAINT 

THE    EDGE    OF    PAVEMENT    IS    ASSUMED    TO    LIE    ALONG    THE 

AT    0.0    ELEVATION. 

IF    THE    ELEVATION    DROP    AT    10»    FROM    THE    EDGE    OF    PAV 

SHOULDER    SLOPE    AND    ROUNDING    EXCEEDS    10"    THE    SIDE 

LATERALLY    TO    MEET    THIS    CONSTRAINT 


DETERMINED 

S. 

X»    AXIS 


EMENT 
SLOPE 


COMPUTATIONAL    CONSTRAINTS: 

THE   THREE    INPUT    SLOPES    MUST    BE    ENTERED    AS    NON-ZER 

THE    BACK    SLOPE     IS    ENTERED    AS    A    NEGATIVE    QUANTITY 

0<Y1<Y2 

INPUTS    MUST    BE    COMPATIBLE    SUCH    THAT    THE    LATERAL    P 

OF    THE    END    OF    THE    SHOULDER    ROUNDING    IS    LESS    THAN 


OSITION 
THE    LATERAL 


00  000010 
000000  20 
00  0000  30 
00000040 
00  00  0050 
00  0000  60 
000000  70 
0000  00  80 
00  0000  90 
(00000100 
00000110 
00  000120 
(00000130 
00  000140 
00  00  0150 
00  000160 
00000170 
00  000180 
00  000190 
00  000200 
00000210 
00  0002  20 
00  0002  30 
00  000240 
00  0002  50 
00  00  02  60 
00  0002  70 
00  00  0280 
00  0002  90 
00000300 
00000310 
00000320 
000003  30 
BE00  000340 
00  000350 
00  000360 
00  00  03  70 
00  0003  80 
0000  03  90 
DUE  T000000400 
IS  M0V00000410 
00  0004  20 
00000430 
00000440 
0000  04  50 
00000460 
00  000470 
00000480 
0000  0490 


SAME 
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C 

c 

DIMENSION 
IND    =   0 


POSITION   OF    THE    BEG 
CONDITION    IS   NOT    ME 


INNING    OF    THE    BOTTOM    ROUNDING.    IF    THIS 
T    AN    ERROR    MESSAGE    IS   OUTPUT. 


X(10),Y(30),Z(30) 


Zl    =   Y1*S1 

Z2    =    Z1+S2*(Y2-Y1) 

Y3    =    Yl-R/SQRT(Sl**2+I.) 

Z3    =    Z1-R*SI/SQRT(S1**2+ 

Y4   =    Y1+R/S0RT(S2**2-H.) 

Z4    =    ZI*R*S2/S0RT(S2**2+ 

YCl    =    S1*S2*{Z4-Z3+Y4/S2 


1.) 

I.) 
-Y3/SI)/(S1-S2) 


9000 


9001 


10 


ZCl    =   -YC1/SI+Z3+Y3/S1 
Rl    =    SQRT({Y3-YC1)**2+(Z 
WRITE(6,9000)YCltZCltRl 
FORMAT!  '1»,10X,»YC1=»,FI 
IF(IND.EQ.l)    GO    TO    10 
YY    ~    120. 

IF       (<YY.GT.Y4^).0R.{S1.G 
ZIT    =   ZCl-SQRT(Rl*Rl-( YY 
IF(Z1T.LE.10.)    GO    TO    10 
ZZ    =    S1*YY 
DEL    =    lO.-ZZ 
ZID    =    ZZ+DEL 
A   =    Sl**2^1. 

D   =    -2.*(YY*S1**2*YC1-S1 
C    =    (S1*YC1)**2-2,*S1*ZC 
C   =    C+ZZ**2*2.*ZZ*DEL*DE 
YT    =    C-D-SQRT(D*D-4.*A*C 
ZCl    =    S1*YT+ZC1-S1*YC1 
YD    =    YT-YCl 
YCl    =   YT 
Yl    s   Yl+YD 
Y2    =    Y2+YD 
IND    =    1 

WRITE(6,9001)YCl,ZClfYl, 
FORMAT(  'OS 'PROFILE    MODS 
I  •Y1=»,F10.2,10X»« 

GO    TO    1 

R2  «  .5*B*SQRT(1.*S2**2) 
R3  =-.5*B»SQRT(l.*S3**2) 
Al  s  R3/S3-SQRT(R3**2-(. 
A2  =  -R2/S2+SQRT(R2**2-( 
Zll  =  S2*S3*{B*Z2/S3-Z1/ 
Z9  =  Zl  1-412 
ZIO    =   Z11-R3 

Z7    *    Z9+SQRT(R2**2-( .5*B 
Z8    =    Z10-»-SQRT(R3**2-(.5* 
Y7    =   Y1'KZ7-Z1)/S2 
IF(Y7.GT.Y4)    GO    TO   569 
WRITE(6»7000) 


3-ZCl)**2) 
0.2,10X,»ZCl=»fF10.2,10X,«Rl=» ,F10.2) 


T .0.08333) .OR. (YY.LT.Y3))       GO    TO    10 
-YC1)**2) 


♦ZC1*Z1D*S1) 

1*YC1+ZC1**2+2,*Z1D*S1*YC1-2.*Z1D*ZC1 

L**2*YY**2-R1**2 

))/(2.*A) 


Y2 

.    YCl=»tF10.2f 10X,»ZCl=»fF10.2,10X, 

Y2=»,F10.2) 

/S2 

/S3 

5*B)**2)/S3 

.5*B)**2J/S2 

S2+Y1-Y2+A1*A2 )/ ( S2-S3 ) 


)*»2) 
B)**2) 


00000500 
00000510 
00  00  05  20 
000005  30 
00  00  05  40 
00  00  05  50 
00  00  05  60 
000005  70 

000005  80 
00  0005  90 

000006  00 
00000610 
000006  20 
00000630 
00  0006  AO 
00  0006  50 
00  00  06  60 
00  000670 

000006  80 
00  0006  90 
00  000700 
00000710 

000007  20 
00  0007  30 
00  000740 
00000750 
00000760 
00000770 
00000780 
00000790 
00000800 

000008  10 
00000820 
000008  30 
000008^ 
000008  50 
00  0008  60 
00000870 

000008  80 
00  0008  90 
00000900 
00000910 

000009  20 
00  000930 
00000940 
00000950 
000009  60 
00000970 
000009  80 
00000990 
00  001000 
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DATE       01/07/76  TIME       2017                                                  UPDATE    RECORD 

7000    FORMAT(«0         INPUT  INCOMPATIBILITY      Y7<Y4       STOP*     )                                              00001010 

STOP  00001020 

569    Ye    =    Y2  +  (Z8-Z2)/S3  0000  10  30 

Yll    =    Y7+B/2.  00001040 

YC2    =    Yll  00001050 

ZC2    =    Z9  00001060 

YC3    =    Yll                  -  00  0010  70 

ZC3    =    ZIO  00  0010  80 

200    WRITE(6,2001)    SI , S2 ♦ S3 ,Y 1 ,Y2 , R ,B ,DBS  00001090 

2001    FORMAT(«    Sl  =  SFd.6,»    S2=',Fe.6,»    S3  =  »,F8.5,»    Y1  =  »,F8.2,»    Y2-»,  00001100 

1                    F8,2f'    R=»,F8.1,'     B=»,P8.2,»    DBS=',F8.1)  00001110 

NC    =    500  00001120 

DO    100    M=6,7  00  001130 

WRITE(M,9010)    NC  0000114^0 

9010    FORMAT (76Xt 14)  00  001150 

100  CONTINUE  00001160 

101  IZ  =  1  00001170 
ZI  =  0.0  00001180 
XB  =  -500.  0000  1190 
XE  =  9500.  00001200 
DX  =  5000.  00001210 
YB  =  0.  00001220 
YE  =  Y3  00  0012  30 
XNB  =  0.  00001240 
YNB  =0.  000012  50 
DY  =  •5*Y3  0000  12  60 
N  =  3  00  00  12  70 
Z(l)  =  0.  00001280 
Z(2)  =  .5*Z3  00  0012  90 
Z(3)  =  Z3  0000  1300 
NCRD  =  1  0000  1310 
DO    1011     1=4,9  00001320 

1011    Z(I)    =    0.0  00001330 

GO    TO    900  00001340 

102  IZ  =  2  00001350 
ZI  =  0.0  00001360 
YB  =  Y3  0000  1370 
YE  =  Y4  0000  1380 
N  =  (YE-YB)/6.+  l  00001390 
IF(N.GT.21)  N=21  00001400 
DY  =  (YE-YB)/(N-1)  00  00  1410 
DO  110  1=1, N  00001420 
Yd)     =    YB+(I-1)*DY  0000  1430 

110    Z(I)    =    ZC1-SQRT(R1**2-(Y( I)-YC1)**2)  00001440 

NCRD    =    N/9    ♦    1  00001450 

IF{MOD(N,9).EQ.O)  NCRD    =    NCRD-1                                                                                             00001460 

NF    =    9*NCRD  000014  70 

IF(NF.EQ.N)    GO    TO  900                                                                                                                      00001480 

NPl    =    N+1  00001490 

DO    1101     I=NP1,NF  00001500 

1101    Z(I)    =    0.0  0000  1510 
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DATE       01/07/76           TIME      2017 

GO    TO   900 

103 

IZ    =    3 

ZI    =    0.0 

YB    =    Y4 

YE    =    Y7 

N   =    3 

DY    =    (YE-YB)/2. 

Z(l)    =    Z4 

Z(2)    =    Z4+.5*(Z7-Z4) 

Z{3)    =    Z7 

NCRD    =    1 

DO    1031     1=4,9 

031 

Z(I)    =    0.0 

GO    TO    900 

104 

IZ    =    4 

ZI    =    0.0 

YB    =    Y7 

YE    =    Y8 

N    =    (YE-YB)/6.+l 

IF{N.GT.21)    N=21 

DY    =    (YE-YB)/(N-1) 

DO    111     1=1, N 

Yd)    =    YB+{I-1)*DY 

IF(Y(I).GE.Y11I    GO    TO    112 

Z(I)    =    ZC2+SQRT(R2**2-(Y(I)-YC2)**2) 

GO    TO    111 

112 

Z(I)    =    ZC3+SQRT(R3**2-(Y(I)-YC3)**2) 

111 

CONTINUE 

NCRD    =   N/9    ♦    1 

IF(MOD(N,9).EQ.O)    NCRD   =    NCRD-1 

NF    =    9* NCRD 

IFiNF.EQ.N)    GO    TO    900 

NPl    =   N+1 

DO    1041    I=NP1,NF 

041 

Zd)     =    0.0 

GO    TO   900 

105 

IZ    =    5 

ZI    =    1.0 

YB    =    Y8 

YE    =   Y8+DBS 

DY    =    (YE-YBI/2. 

N   =    3 

Z(l)    =    Z8 

Z(2)    =    Z8*S3*DY 

Z(3)    =    Z8^2.*S3*DY 

Xd)    =    XB 

X<2)    =    XB*DX 

X(3y    =    XE 

Yd)    =    YB 

Y(2)    =    YB*DY 

Y(3)    =   YE 

UPDATE    RECORD 


00  00 
0000 
00  00 
00  00 
0000 
00  00 
00  00 
0000 
0000 
0000 
00  00 
0000 
0000 
0000 
0000 
0000 
00  00 
0000 
0000 
0000 
00  00 
0000 
0000 
0000 
00  00 
0000 
0000 
00  00 
0000 
0000 
0000 
0000 
0000 
00  00 
0000 
0000 
0000 
0000 
0000 
0000 
0000 
00  00 
0000 
0000 
0000 
0000 
00  00 
00  00 
0000 
0000 
0000 


15  20 

15  30 
1540 
1550 
1560 
1570 
1580 
1590 
1600 
1610 

16  20 
1630 
16  40 
16  50 
16  60 
16  70 
1680 
16  90 
1700 
1710 
1720 
1730 
1740 
1750 
1760 
1770 
1780 
1790 
1800 
1810 
18  20 
18  30 
18  40 
1850 
1860 
18  70 
18  80 

18  90 
1900 
1910 

19  20 
19  30 
1940 
1950 
1960 
1970 
19  80 
1990 
2000 
2010 
2020 
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DATE       01/07/76 


TIME       2017 


UPDATE    RECORD 


1052 


900 


301 
1000 


302 

1001 

90  2 

901 

950 


303 


NCRD    =    1 

DO    1052    1=4,9 

Z(I)    =    0.0 

Yd)     =    0.0 

X  ( I  )    =    0  .0 

DX    =    3. 

DY    =    3. 

CONTINUE 

ICRD    =    500+IZ 

DO    301    ^.=6,7 

WRITEiMtlOOO)    XB,XE,DX,YB,YE,DY,XNB,YNB,ZI,ICRD 

F0RMAT(9h8.2,4X,I^) 

ITAB    =    0 

DO    901    K=l,3 

DO    902    J=1,NCRD 

ITAB    =    ITAB+1 

IB    =    J«9-8 

IE    =    IE-t-8 

DO    302    M=6,7 

WRITE<M,1001  )    ( Z(I ),I  =  IB, IE), ITAB, ICRD 

F0RMAT(9F8.2,2I4) 

CONTINUE 

CONTINUE 

GO    10(102,103, 104, 105, 950), IZ 

CONTINUL 

ITBl    =    ITAB+1 

ITB2    =    ITBl+l 

NC    =    50  6 

DO    303    M=6,7 

WRITE(M,1001) 

WRITE{M,1001) 

WRITE(M,9010) 

RETURN 

END 


(Yd  ), 1=1, 9), ITBl, ICRD 
(Xd)  ,  I=1,9),ITB2,ICRD 
NC 


00  00  2030 
0000  20  40 
00  00  20  50 
0000  2060 
00  00  20  70 
00  00  20  80 
00  00  20  90 
0000  2100 
00  00  2110 
00002120 
0000  2130 
00002140 
00  00  2150 
00  00  2160 
00  00  2170 
00  00  2180 
00  002190 
00  00  22t)0 
00  00  2210 
00  00  22  20 
00  00  22  30 
0000  2240 
00  00  2250 
00  00  22  60 
00  00  2270 
00  00  22  80 
00  00  22  90 
00  00  2300 
0000  2310 
00  00  23  20 
00  00  23  30 
00  00  23  40 
0000  23  50 
00002360 
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